Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Counting Files in a folder?
- Thread starter pielz
- Start date
Private Sub Command1_Click()
MsgBox NumOfFiles("C:\Test\"
& " files in C:\Test\"
End Sub
Function NumOfFiles(Path As String) As Long
Dim MyFile As String
Dim Counter As Long
MyFile = Dir(Path & "*.*"
Do While MyFile <> vbNullString
MyFile = Dir
Counter = Counter + 1
Loop
NumOfFiles = Counter
End Function Swi
MsgBox NumOfFiles("C:\Test\"
& " files in C:\Test\"End Sub
Function NumOfFiles(Path As String) As Long
Dim MyFile As String
Dim Counter As Long
MyFile = Dir(Path & "*.*"
Do While MyFile <> vbNullString
MyFile = Dir
Counter = Counter + 1
Loop
NumOfFiles = Counter
End Function Swi
- Status
Similar threads
