nom de repertoire!...

Le
Armando RODRIGUES
Bonsoir,

Comment récupérer les noms de plusieurs répertoires contenus dans un
répertoire. Merci pour votre aide.
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jacques93
Le #18116641
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
Le #18123291
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.


Publicité
Poster une réponse
Anonyme