You could use the FileSystemObject:

Sub test()
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("D:\Temp\Test")
Set Files = folder.Files

' Get the Count
Debug.Print Files.Count

Set folder = Nothing
Set Files = Nothing
Set fso = Nothing

End Sub

Cheers

Leyton

-----Original Message-----
Can anyone tell me a small loop of code to find the total
number of files in a dir ?
.