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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
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