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

Quelle est la façon la plus simple en VB6 pour une boucle sur tous les fichiers dans un dossier spécifié répertoire et d'obtenir leurs noms?

InformationsquelleAutor Ray Vega | 2008-11-15
  1. 16
    sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop
    InformationsquelleAutor DJ.
  2. 11
    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
    InformationsquelleAutor bigsancho
  3. 4

    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
    InformationsquelleAutor raven
  4. 1

    "Pour VB6 très Délicate:
    "Tout simplement obtenir l'emplacement de tous les projets .frm fichiers sauvegardés sur votre disque/répertoire de projet

    Dim CountVal As Integer
    CountVal = 0
    cbo.Claire

    sFilename = Dir(App.Path & "\Forms\")
Do While sFilename > ""
  If (Right(sFilename, 4) = ".frm") Then
  cbo.List(CountVal) = Left(sFilename, (Len(sFilename) - 4))
  CountVal = CountVal + 1
  End If

   sFilename = Dir()
Loop
    InformationsquelleAutor Sajid Dewan
  5. 0

    créer un bouton avec le nom = browseButton
    créer filelistbox avec nom = List1

    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 maintenant l'exécuter

    InformationsquelleAutor Janardhan G
  6. 0

    Vous pouvez utiliser ce code de démonstration,

    Dim fso As New FileSystemObject
Dim fld As Folder
Dim file As File
Set fld = fso.GetFolder("C:\vishnu")
For Each file In fld.Files
  msgbox file.Name
Next
    InformationsquelleAutor Codemaker