Commentaires sur une source : GENERATION RECURSIVE DE SOUS RÉPERTOIRE

Sojiro49 Messages postés 12 Date d'inscription mercredi 4 janvier 2006 Statut Membre Dernière intervention 12 janvier 2006
11 janv. 2006 à 16:29

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

devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008
9 févr. 2004 à 22:18

Totalement d'accord :)
C'était simplement un complement à ton source et surment pas une critique.

cs_defrance Messages postés 24 Date d'inscription jeudi 6 mars 2003 Statut Membre Dernière intervention 20 novembre 2011
8 févr. 2004 à 11:48

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.

devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008
5 févr. 2004 à 05:59

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

devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008
5 févr. 2004 à 05:58

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

GENERATION RECURSIVE DE SOUS RÉPERTOIRE

Votre réponse

Discussions similaires