Const ForReading = 1 'VBS的這句不能少。 
dim xint,xinlu,jiuw 
dim objfso,objoutputfile,f,fx 
dim objTextFile,strtext 
Set objFSO = CreateObject("Scripting.FileSystemObject") '創建FSO對象 
jiuw = inputbox("請輸入源文件夾所在的路徑(含文件夾名稱)","請輸入多個TXT文件夾所在位置") 

if objFSO.folderexists(jiuw) then 
set f = objFSO.getfolder(jiuw) '文件所在位路徑 
else 
msgbox "路徑錯誤，請重新輸入" 

end if 
xinlu = inputbox("請輸入新的TXT所在的路徑（不含書名），如果省略——即直接不輸入點確定或取消,則默認是創建在源文件夾同一層位置","新的TXT保存位置") 

if objFSO.folderexists(xinlu) or len(xinlu) = 0 then 
xint = inputbox("請輸入新書名的名字","新書名") 
if len(xint)>0 then 
xint = xinlu & xint 
Set objOutputFile = objFSO.CreateTextFile( xint &".txt") '創建名為output的新的TXT，可以修改為你要的名稱.txt 
else 
msgbox "沒有輸入內容，請重新輸入" 
end if 
else 
msgbox "路徑錯誤，請重新輸入" 

end if 
For Each fx In f.Files '循環寫入文本內容 
Set objTextFile = objFSO.OpenTextFile(fx, ForReading) '找開文件 
strText = objTextFile.ReadAll '讀取全部 
objTextFile.Close '關閉打開的文件 
objOutputFile.WriteLine strText '在output.txt寫入 文本 內容 
Next