Скачать или смотреть Vbscript to get list of files from folder

-Create vbscript to get list of files from given Path
'On Error Resume Next
Dim objFileSystem,wshShell,MainPath,fileCount,fileLIst 'Create variable
Set objFileSystem = CreateObject("Scripting.FileSystemObject") 'Create File system Object for File/Folder ops

fileCount=0 'Total file found
fileList="File List created @ " & now() 'Starting line with time stamp in output file

MainPath=inputbox("Enter Path to get file list") 'Main folder for which file list will be generated
if objFileSystem.FolderExists(MainPath) then 'Check if main path exist
FindFileRec MainPath
UpldateListInTextFile
else
msgbox "Path " & MainPath & "not found"
end if
msgbox "completed"
'------------------------------------------------------------------------------------------------------------
Function FindFileRec(ThisFolder) 'Recursive function accept folder path
Dim fileName,subFolderobj,subFolderList,Folderobj
Set Folderobj=objFileSystem.GetFolder(ThisFolder) 'create folder object for received folder path.
For Each subFolderobj In Folderobj.SubFolders 'get each sub folder to check files
fileList=fileList & vbnewline & subFolderobj.Name 'update folder name
For Each fileName In subFolderobj.Files 'get files one by one from folder
IF instr(fileName.name,"docx") then
fileCount=fileCount+1 'update count
fileList=fileList & vbnewline & " " & fileName.Name & " Created at:" & fileName.DateCreated 'update file name
end if
Next 'File
FindFileRec subFolderobj 'Search files in sub-folder. Recursive method
Next 'Folder
End Function

Function UpldateListInTextFile() 'function to update file list in text file
Dim NewFile
Set NewFile = objFileSystem.CreateTextFile(MainPath & "\FileList.txt", True) 'Text file object
NewFile.WriteLine(fileList) 'write list from variable
NewFile.Close() 'close file after completion
End function