Set objTextFile = fso.OpenTextFile(folderIdx.path, ForReading) If lcase(objFSO.getExtensionName(file.path))='txt' then Set objOutputFile = fso.CreateTextFile('FinalSource.txt')ĬurrentPath = Replace(Wscript.ScriptFullName, ' & Wscript.ScriptName, ') Set fso = CreateObject('Scripting.FileSystemObject') Hi All- I need to write a VB script which can append all the text files available within a folder and finally create a single source file.For example if there are 100 text files within the Source Folder,script should create a single source file by combining all the 100 text files.This is the code I am using.ĭim fso, folder, files, NewsFile,sFolder, objTextFile
|
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |