try this:
Dim FSO, WSH, objDirectory, objFile, TheFiles
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("Wscript.Shell")
Set objDirectory = FSO.GetFolder(InputBox("Enter Starting Folder path!"))
Set TheFiles = objDirectory.Files
Parentfolder =...