FSO (File System Object)
Stands for File System Object which gives complete control over Drives, Folders and Files in Windows System. To understand complete File System Object using VBA please refer my previous article FSO (File System Object) using VBA. In this article we will do a PoC to find all files available within a Directory and underlying Sub Directories.
Public Sub ListAllFiles(oPath As String) 'Declare file system object Dim FSO As FileSystemObject 'Bind reference Set FSO = New FileSystemObject 'Object to bind all parent files Dim oParentFiles As Files 'Get all files of parent folder Set oParentFiles = FSO.GetFolder(oPath).Files 'object to bind all sub folders Dim oSubFolders As Folders Set oSubFolders = FSO.GetFolder(oPath).SubFolders Dim oFile As File 'Print files in parent or root folder For Each oFile In oParentFiles Debug.Print oFile.Name Next oFile 'Iterate each sub folder Dim oFolder As Folder For Each oFolder In oSubFolders 'object to bind all files in a sub folder Dim oListFiles As Files Set oListFiles = oFolder.Files 'Print each file from sub folder For Each oFile In oListFiles 'print file name Debug.Print oFile.Name Next oFile 'cleanup Set oListFiles = Nothing Next oFolder 'Memory cleanup Set oFolder = Nothing Set oFile = Nothing Set oSubFolders = Nothing Set oParentFiles = Nothing Set FSO = Nothing End Sub
Public Sub PrintAllFilesExample() Call ListAllFiles("C:\Users\Downloads\Bin") End Sub
Please leave your comments or queries under comment section also please do subscribe to our blogs to keep your self upto date.