Comment savoir si un dossier contient des fichiers ou/et des dossiers?Résolu

Question

Salut,

       Comment savoir si un dossier
contient des fichiers ou/et des dossiers? Par exemple, j'utilise un
DirListBox et je veux savoir si le dossier contient des fichiers.



Merci

jpleroisse · Accepted Answer

Bonsoir,

' Exemple d'utilisation
Private Sub Command1_Click()
Dim rep As String, lt
'obtient le premier fichier ou r&#233;pertoire qui est dans "c:\Mes documents"
rep = Dir("c:\Mes documents\*.*", vbDirectory)
'boucle tant que le r&#233;pertoire n'a pas &#233;t&#233; enti&#232;rement parcouru
Do While (rep & lt <> "")
    'teste si c'est un fichier ou un r&#233;pertoire
    If (GetAttr("c:\Mes documents" & rep) And vbDirectory) = vbDirectory Then
        MsgBox "R&#233;pertoire " & rep
    Else
        MsgBox "Fichier " & rep
    End If
    'passe &#224; l'&#233;l&#233;ment suivant
    rep = Dir
Loop
End Sub

jpleroisse

Zlub · Answer

Salut Cire2003,


Tu peux utiliser la fonction DIR() qui te rennvois le contenu du dossier (voir l'exemple de Taz83)

Sinon, avec les FSO, tu peux t'en sortir &#233;galement (voir illustration PaPaOurs)


Ou alors, visiter cette liste d'exemples,


++

Zlub

econs · Answer

Utilise un filelistbox



File1.Path = Dir1.Path



File1.ListCount repr&#233;sente le nombre de fichiers dans le dossier s&#233;lectionn&#233; dans la dirlistbox Dir1.






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Comment savoir si un dossier contient des fichiers ou/et des dossiers?

3 réponses

Discussions similaires