repertoir et fichiers

Question

Je souhaite connaitre le nombre et les noms: de repertoire et fichiers contenus dans un repertoire defini, et pouvoir scruter les sous-repertoires et fichiers ETC...
Je n'ai pas grande idée sur la question, surtout le manque de connaissance encore en VB.
Merci.

cs_Gendarmette · Answer

Tu peux les lister dans une ListBox par exemple.
Voici en gros comment faire:


Public oFs As Scripting.FileSystemObject
Public oFolder As Scripting.Folder
Public oFile As Scripting.File

Private Sub Rechercher_Fichiers(sFolder As String)
Set oFolder = oFs.GetFolder(sFolder)
For Each oFile In oFolder.Files
List1.AddItem oFile.Name
Next
End Sub

Dim sFolder As String
Set oFs = CreateObject("Scripting.FileSystemObject")
sFolder = "Chemin"
Rechercher_Fichiers sFolder



Pour le nombre, tu met un MsgBox et tu utilise List1.ListCount.

 >:)    Gendarmette    >:)

fagol · Answer

Salut,
Merci pour ta reponse, je ne comprends pas tout,
une petite explication pour : Public oFolder As Scripting.Folder
serai la bien venue.
Merci encore .

cs_Gendarmette · Answer

Je ne saurais pas te l'expliquer, je débute en VB.
Mais j'ai oublié de préciser une chose: pour pouvoir utiliser les FSO (FileSystemObject), il faut cocher Microsoft Scripting Runtime dans le menu Projet, Références.

 >:)    Gendarmette    >:)

Repertoir et fichiers

3 réponses

Discussions similaires