Find Total no.of Files present inside any Folder using UFT

FPath = InputBox("Enter the Folder Path") 'Get Folder Path

Set obj = Createobject("Scripting.FileSystemObject")
Set fol = obj.GetFolder(FPath ) 'Folder Path
Set fis = fol.Files

For each fs in fis
    count = count + 1
Next

Msgbox count ' returns the total no.of files present inside Folder


...