GENERATION RECURSIVE DE SOUS RÉPERTOIRE

Signaler
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008
-
Messages postés
12
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
12 janvier 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20087-generation-recursive-de-sous-repertoire

Messages postés
12
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
12 janvier 2006

Merci a defrance pour ce pti script compréhensible ^^ qui peut me servir, seulement je voudrais y ajouter la fonction qui permet d'attribuer des droits d'accès aux dossier créés. g donc rajouté ce qui suit:

Dim CommandeDOS
Dim WSHShell
Set WSHShell=WScript.CreateObject("WScript.Shell")

CommandeDOS = "cacls " & ??? & " /p " & ??? & " :r opearchiv:f"
WSHShell.Run(CommandeDOS)

A la place des ??? jveu mettre la variable qui a le nom du dossier mais je ne sais pas lakel c'est.

merci de m'aider
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008

Totalement d'accord :)
C'était simplement un complement à ton source et surment pas une critique.
Messages postés
24
Date d'inscription
jeudi 6 mars 2003
Statut
Membre
Dernière intervention
20 novembre 2011

Effectivement, c'est plus court mais le but était de jouer qu'avec du vbs simple. de plus va savoir si cette dll est bien présente sur toutes les versions de windows...
De plus le langage que tu donnes c'est du vb pas du vbs.
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008

Il existe une fontion dans une api qui le fait aussi de mainière très puissante: MakeSureDirectoryPathExists nomfichier
Elle permet de reconstruire l'aroboresence à partir d'un chemin d'accès

Dans le cas de cet article , ca devrait faire ca:

Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Sub Form_Load()
Open "c:\\test1.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, chemin
MakeSureDirectoryPathExists chemin
Loop
Close 1
End Sub

Vu sur vb france sur l'article:
http://www.vbfrance.com/code.aspx?ID=4454
Messages postés
148
Date d'inscription
dimanche 13 octobre 2002
Statut
Membre
Dernière intervention
13 novembre 2008

Il existe une fontion dans une api qui le fait aussi de mainière très puissante: MakeSureDirectoryPathExists nomfichier
Elle permet de reconstruire l'aroboresence à partir d'un chemin d'accès

Dans le cas de cet article , ca devrait faire ca:

Public Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long
Private Sub Form_Load()
Open "c:\\test1.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, chemin
MakeSureDirectoryPathExists chemin
Loop
Close 1
End Sub

Vu sur vb france sur l'article:
http://www.vbfrance.com/code.aspx?ID=4454