This script basically goes to a folder and list all the files in that folder and output it in a txt file. Now instead of defining the folder path I want it to use the txt file that contains a bunch of folder paths in it and I want to loop that txt file. How can I do this?
Code:Dim fso Dim ObjFolder Dim ObjOutFile Dim ObjFiles Dim ObjFile 'Creating File System Object Set fso = CreateObject("Scripting.FileSystemObject") 'Getting the Folder Object Set ObjFolder = fso.GetFolder("C:\Users\Susan\Desktop\Anime\ova") 'Creating an Output File to write the File Names Set ObjOutFile = fso.CreateTextFile("C:\Users\Susan\Documents\iMacros\Macros\WindowsFiles.txt") 'Getting the list of Files Set ObjFiles = ObjFolder.Files 'Writing Name and Path of each File to Output File For Each ObjFile In ObjFiles ObjOutFile.WriteLine(ObjFile.Path) Next ObjOutFile.Close


Reply With Quote