Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


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

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
    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
Francesco Balena
 
Comment and Contribute

 

 

 

 

 


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

 

 

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