Comment puis-je obtenir la liste de tous les noms de fichiers dans un répertoire à l'aide de VB6?

Question

Quelle est la façon la plus simple VB6 à boucle à travers tous les fichiers dans un répertoire de dossier spécifié et d'obtenir leur nom?

Answer 1

sFilename = Dir(sFoldername) 

Do While sFilename > "" 

    debug.print sFilename 
    sFilename = Dir() 

Loop 

Answer 2

DJ solution est simple et efficace, juste jeter un autre dans le cas où vous avez besoin d'un peu plus de fonctionnalités que le FileSystemObject peut fournir (nécessite une référence à Microsoft Scripting Runtime).

Dim fso As New FileSystemObject 
Dim fil As File 

For Each fil In fso.GetFolder("C:\").Files 
    Debug.Print fil.Name 
Next 

Answer 3

Dim fso As New FileSystemObject 
Dim fld As Folder 
Dim fil As File 
Set fld = fso.GetFolder("C:\My Folder") 
For Each fil In fld.Files 
    Debug.Print fil.Name 
Next 
Set fil = Nothing 
Set fld = Nothing 
Set fso = Nothing 

Answer 4

créer bouton avec name = bouton Parcourir créer FileListBox avec name = Liste1

double-cliquez sur le bouton dans la conception

et le code devrait ressembler à ceci

Private Sub browseButton_Click() 

Dim path As String 
path = "C:\My Folder" 

List1.path() = path 
List1.Pattern = "*.txt" 
End Sub 

fait courir maintenant