代碼如下:

Const ForReading = 1 'VBS的這句不能少。

dim xint,xinlu,jiuw

dim objfso,objoutputfile,f,fx

dim objTextFile,strtext

Set objFSO = CreateObject("Scripting.FileSystemObject") '創(chuàng)建FSO對(duì)象

jiuw = inputbox("請(qǐng)輸入源文件夾所在的路徑(含文件夾名稱(chēng))","請(qǐng)輸入多個(gè)TXT文件夾所在位置")

if objFSO.folderexists(jiuw) then

set f = objFSO.getfolder(jiuw) '文件所在位路徑

else

msgbox "路徑錯(cuò)誤，請(qǐng)重新輸入"

end if

xinlu = inputbox("請(qǐng)輸入新的TXT所在的路徑（不含書(shū)名），如果省略——即直接不輸入點(diǎn)確定或取消,則默認(rèn)是創(chuàng)建在源文件夾同一層位置","新的TXT保存位置")

if objFSO.folderexists(xinlu) or len(xinlu) = 0 then

xint = inputbox("請(qǐng)輸入新書(shū)名的名字","新書(shū)名")

if len(xint)>0 then

xint = xinlu & xint

Set objOutputFile = objFSO.CreateTextFile( xint &".txt") '創(chuàng)建名為output的新的TXT，可以修改為你要的名稱(chēng).txt

else

msgbox "沒(méi)有輸入內(nèi)容，請(qǐng)重新輸入"

end if

else

msgbox "路徑錯(cuò)誤，請(qǐng)重新輸入"

end if

For Each fx In f.Files '循環(huán)寫(xiě)入文本內(nèi)容

Set objTextFile = objFSO.OpenTextFile(fx, ForReading) '找開(kāi)文件

strText = objTextFile.ReadAll '讀取全部

objTextFile.Close '關(guān)閉打開(kāi)的文件

objOutputFile.WriteLine strText '在output.txt寫(xiě)入 文本 內(nèi)容

Next