復(fù)制代碼 代碼如下:
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)輸入源文件夾所在的路徑(含文件夾名稱)","請(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所在的路徑（不含書名），如果省略——即直接不輸入點(diǎn)確定或取消,則默認(rèn)是創(chuàng)建在源文件夾同一層位置","新的TXT保存位置")
if objFSO.folderexists(xinlu) or len(xinlu) = 0 then
xint = inputbox("請(qǐng)輸入新書名的名字","新書名")
if len(xint)>0 then
xint = xinlu xint
Set objOutputFile = objFSO.CreateTextFile( xint ".txt") '創(chuàng)建名為output的新的TXT，可以修改為你要的名稱.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)寫入文本內(nèi)容
Set objTextFile = objFSO.OpenTextFile(fx, ForReading) '找開(kāi)文件
strText = objTextFile.ReadAll '讀取全部
objTextFile.Close '關(guān)閉打開(kāi)的文件
objOutputFile.WriteLine strText '在output.txt寫入 文本 內(nèi)容
Next
您可能感興趣的文章:- vbs解決處理TXT文本數(shù)據(jù)相關(guān)問(wèn)題實(shí)現(xiàn)代碼
- VBS實(shí)現(xiàn)將Excel表格保存為txt文本
- TXT轉(zhuǎn)HTM、HTML「TXT轉(zhuǎn)網(wǎng)頁(yè)」的vbs實(shí)現(xiàn)代碼
- 用vbs產(chǎn)生的若干個(gè)隨機(jī)數(shù)并寫入到一個(gè).txt中的代碼
- 將HTML或txt文件轉(zhuǎn)換為ASP輸出的vbs代碼
- 用VBS將一篇txt后綴的內(nèi)容保存為html格式
- vbs實(shí)現(xiàn)的支持拖動(dòng)的txt文本切割器
- vbs操作txt文本文件常用方法與函數(shù)代碼
