lister le contenu d'un repertoire

Question

salut j'ai un repertoire,et je veux avoir la liste de son contenu et du contenu de ses sous repertoires sans toutes fois chercher ds les repertoires systemes ou fichiers caches
please help me

ok

Calade · Answer

Bonjour,

Il y a quelques jours, j'ai eu exactement le même problème que toi.

J'ai fait une petite recherche sur google et en quelques secondes j'ai trouvé mon bonheur sur ce site.

Tu peux donc restreindre tes recherches à VBFrance, ce que tu aurais du faire AVANT de poster ce message.


Calade

cs_ngoudjo · Answer

merçi de ne m'aider

Claiyah · Answer

bonjour
'declaration
Dim fso As FileSystemObject, dossier As Folder, sousdossier As Folder, Fichier As File

tu met ce code dans un boutton:
Set fso = New FileSystemObject
    Set dossier = fso.GetFolder("chemin du repertoire")
    scan dossier

et tu ajoute ce code aussi :

Public Sub scan(ByVal dossier As Folder)
On Error Resume Next
    For Each Fichier In dossier.Files
         ExtractFileName Fichier
    next
For Each sousdossier In dossier.SubFolders
        scan sousdossier
    Next
End Sub

'ajoute une list1 et list2 et label1 pour afficher les fichier et leur chemin (a toi de voir si tu veut afficher dans une liste ou pas...)
Public Function ExtractFileName(ByVal sFullPath As String) As String
On Error Resume Next

    If InStr(sFullPath, "") = 0 Or Right(sFullPath, 1) = "" Then
        ExtractFileName = ""
        Exit Function
    End If
    ExtractFileName = Mid(sFullPath, InStrRev(sFullPath, "") + 1)
    List1.AddItem ExtractFileName
    DoEvents
    List2.AddItem sFullPath
    Label1.Caption = List1.ListCount
End Function

je crois que c'est tout ce que tu veut
bonne navigation

cs_ngoudjo · Answer

thk
je vais le tester

Claiyah · Answer

tu teste toujours  ?


 No comment

Lister le contenu d'un repertoire

5 réponses

Votre réponse

Discussions similaires