devxlogo

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

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 filesFunction 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 filesFunction 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    Next            ' if requested, search also subdirectories    If NestedDirs Then        For Each subfld In fld.SubFolders            ListFilesPriv = ListFilesPriv & ListFilesPriv(subfld, NestedDirs)        Next    End If    End Function

See also  5 Tips for Choosing the Right Medical Software for Your Practice
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist