VBS合并一個文件夾里的TXT的實現(xiàn)代碼

    代碼如下:
    Const ForReading = 1 'VBS的這句不能少。
    dim xint,xinlu,jiuw
    dim objfso,objoutputfile,f,fx
    dim objTextFile,strtext
    Set objFSO = CreateObject("Scripting.FileSystemObject") '創(chuàng)建FSO對象
    jiuw = inputbox("請輸入源文件夾所在的路徑(含文件夾名稱)","請輸入多個TXT文件夾所在位置")
    if objFSO.folderexists(jiuw) then
    set f = objFSO.getfolder(jiuw) '文件所在位路徑
    else
    msgbox "路徑錯誤，請重新輸入"
    end if
    xinlu = inputbox("請輸入新的TXT所在的路徑（不含書名），如果省略——即直接不輸入點確定或取消,則默認是創(chuàng)建在源文件夾同一層位置","新的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") '創(chuàng)建名為output的新的TXT，可以修改為你要的名稱.txt
    else
    msgbox "沒有輸入內(nèi)容，請重新輸入"
    end if
    else
    msgbox "路徑錯誤，請重新輸入"
    end if
    For Each fx In f.Files '循環(huán)寫入文本內(nèi)容
    Set objTextFile = objFSO.OpenTextFile(fx, ForReading) '找開文件
    strText = objTextFile.ReadAll '讀取全部
    objTextFile.Close '關(guān)閉打開的文件
    objOutputFile.WriteLine strText '在output.txt寫入 文本 內(nèi)容
    Next