Dim iFileCount, FolderName, vFiles, objFSO
iFileCount = 0
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set FolderName = objFSO.GetFolder(“C:Desktop”) ‘ Folder Path
Set vFiles =FolderName.Files
For each vFile in vFiles
Print vFile
iFileCount = iFileCount + 1
Next
msgbox iFileCount
iFileCount = 0
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set FolderName = objFSO.GetFolder(“C:Desktop”) ‘ Folder Path
Set vFiles =FolderName.Files
For each vFile in vFiles
Print vFile
iFileCount = iFileCount + 1
Next
msgbox iFileCount
Above code will print names of all the file in given folder and display the total count of files.