Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Armando RODRIGUES, Le 11/12/2008 21:04, Armando RODRIGUES a écrit :
Bonsoir,
Comment récupérer les noms de plusieurs répertoires contenus dans un répertoire. Merci pour votre aide.
Par exemple :
Private Sub Command1_Click() ListSubDir ("C:UsersJacques") End Sub
Private Sub ListSubDir(StartDir As String) Dim Tmp As String
Tmp = Dir(StartDir & "*.*", vbDirectory) While Tmp <> "" If (GetAttr(StartDir & "" & Tmp) And vbDirectory) = vbDirectory Then Debug.Print Tmp End If Tmp = Dir Wend End Sub
--
Cordialement,
Jacques.
Bonjour Armando RODRIGUES,
Le 11/12/2008 21:04, Armando RODRIGUES a écrit :
Bonsoir,
Comment récupérer les noms de plusieurs répertoires contenus dans un
répertoire. Merci pour votre aide.
Par exemple :
Private Sub Command1_Click()
ListSubDir ("C:UsersJacques")
End Sub
Private Sub ListSubDir(StartDir As String)
Dim Tmp As String
Tmp = Dir(StartDir & "*.*", vbDirectory)
While Tmp <> ""
If (GetAttr(StartDir & "" & Tmp) And vbDirectory) = vbDirectory Then
Debug.Print Tmp
End If
Tmp = Dir
Wend
End Sub
Bonjour Armando RODRIGUES, Le 11/12/2008 21:04, Armando RODRIGUES a écrit :
Bonsoir,
Comment récupérer les noms de plusieurs répertoires contenus dans un répertoire. Merci pour votre aide.
Par exemple :
Private Sub Command1_Click() ListSubDir ("C:UsersJacques") End Sub
Private Sub ListSubDir(StartDir As String) Dim Tmp As String
Tmp = Dir(StartDir & "*.*", vbDirectory) While Tmp <> "" If (GetAttr(StartDir & "" & Tmp) And vbDirectory) = vbDirectory Then Debug.Print Tmp End If Tmp = Dir Wend End Sub
--
Cordialement,
Jacques.
Armando RODRIGUES
c'est parfait!... merci Jacques ;)
"Jacques93" a écrit dans le message de news:
Bonjour Armando RODRIGUES, Le 11/12/2008 21:04, Armando RODRIGUES a écrit :
Bonsoir,
Comment récupérer les noms de plusieurs répertoires contenus dans un répertoire. Merci pour votre aide.
Par exemple :
Private Sub Command1_Click() ListSubDir ("C:UsersJacques") End Sub
Private Sub ListSubDir(StartDir As String) Dim Tmp As String
Tmp = Dir(StartDir & "*.*", vbDirectory) While Tmp <> "" If (GetAttr(StartDir & "" & Tmp) And vbDirectory) = vbDirectory Then Debug.Print Tmp End If Tmp = Dir Wend End Sub
--
Cordialement,
Jacques.
c'est parfait!... merci Jacques ;)
"Jacques93" <jacques@Nospam> a écrit dans le message de news:
ejA1219WJHA.1532@TK2MSFTNGP03.phx.gbl...
Bonjour Armando RODRIGUES,
Le 11/12/2008 21:04, Armando RODRIGUES a écrit :
Bonsoir,
Comment récupérer les noms de plusieurs répertoires contenus dans un
répertoire. Merci pour votre aide.
Par exemple :
Private Sub Command1_Click()
ListSubDir ("C:UsersJacques")
End Sub
Private Sub ListSubDir(StartDir As String)
Dim Tmp As String
Tmp = Dir(StartDir & "*.*", vbDirectory)
While Tmp <> ""
If (GetAttr(StartDir & "" & Tmp) And vbDirectory) = vbDirectory Then
Debug.Print Tmp
End If
Tmp = Dir
Wend
End Sub
Bonjour Armando RODRIGUES, Le 11/12/2008 21:04, Armando RODRIGUES a écrit :
Bonsoir,
Comment récupérer les noms de plusieurs répertoires contenus dans un répertoire. Merci pour votre aide.
Par exemple :
Private Sub Command1_Click() ListSubDir ("C:UsersJacques") End Sub
Private Sub ListSubDir(StartDir As String) Dim Tmp As String
Tmp = Dir(StartDir & "*.*", vbDirectory) While Tmp <> "" If (GetAttr(StartDir & "" & Tmp) And vbDirectory) = vbDirectory Then Debug.Print Tmp End If Tmp = Dir Wend End Sub