Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: VB5,VB6,VBS
Expertise: Intermediate
Nov 18, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

ListFiles - List all the files in a directory or directory tree

' list all the files in a directory
' if NESTEDDIRS = True it lists a whole directory tree
' returns a 1-based array containing all the listed files

Function ListFiles(ByVal Path As String, Optional ByVal NestedDirs As Boolean) _
    As String()
    Dim fso As New Scripting.FileSystemObject
    Dim fld As Scripting.Folder
    Dim fileList As String
    ' get the starting folder
    Set fld = fso.GetFolder(Path)
    ' let the private subroutine do all the work
    fileList = ListFilesPriv(fld, NestedDirs)
    ' convert to a string array
    ' (the first element will be a null string)
    ListFiles = Split(fileList, ";")
End Function

' private procedure that returns a file list
' as a comma-delimited list of files

Function ListFilesPriv(ByVal fld As Scripting.Folder, _
    ByVal NestedDirs As Boolean) As String
    Dim fil As Scripting.File
    Dim subfld As Scripting.Folder
    ' list all the files in this directory
    For Each fil In fld.Files
        ListFilesPriv = ListFilesPriv & ";" & fil.Path
    ' if requested, search also subdirectories
    If NestedDirs Then
        For Each subfld In fld.SubFolders
            ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)
    End If
End Function
Francesco Balena
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date