CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to count number of files in a given directory (in two ways)
Option Explicit
 
'Using Dir:

Public Function CountFilesUsingDir(ByVal sPath As String) As Integer
    On Error Resume Next
    Dim iCount As Integer
    sPath = Dir$(sPath)
    Do While Len(sPath) > 0
        iCount = iCount + 1
        sPath = Dir$
    Loop
    CountFilesUsingDir = iCount
End Function
'How can I call this function:
'Debug.Print CountFilesUsingDir("C:\Temp\b\*.xml") 
'Will display the count of *.xml files in C:\temp\b folder
'Debug.Print CountFilesUsingDir("C:\Temp\b\")      
'Will display the count of *.* files in C:\temp\b folder

'Using FSO:

Public Function CountFilesUsingFSO(ByVal sPath As String) As Integer
    On Error Resume Next
    'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    CountFilesUsingFSO = FSO.GetFolder(sPath).Files.Count
    Set FSO = Nothing
End Function
'How can I call this function:
'Debug.Print CountFilesUsingFSO("C:\Temp\b\*.xml") 
'Will display the count of *.xml files in C:\temp\b folder
'Debug.Print CountFilesUsingFSO("C:\Temp\b\")      
'Will display the count of *.* files in C:\temp\b folder