VBS合并一個檔案夾裡的TXT的實現代碼

複製代碼 代碼如下: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