[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创] VBS合并一个文件夹里的TXT

有时 从网上的电子书网站上下载解压后。得到的是多个TXT文本。有没有办法把多个TXT合在一起看呢?
    写了个代码。不是很完美,欢迎高手批评指教。 我只是个菜鸟,需要大家的关怀才能进步哇。:)
  1. Const ForReading = 1  'VBS的这句不能少。
  2. dim xint,xinlu,jiuw
  3. dim objfso,objoutputfile,f,fx
  4. dim objTextFile,strtext
  5. Set objFSO = CreateObject("Scripting.FileSystemObject") '创建FSO对象
  6. jiuw = inputbox("请输入源文件夹所在的路径(含文件夹名称)","请输入多个TXT文件夹所在位置")
  7. if objFSO.folderexists(jiuw) then
  8.   set f = objFSO.getfolder(jiuw)  '文件所在位路径
  9. else
  10.    msgbox "路径错误,请重新输入"
  11.    
  12.    
  13. end if
  14. xinlu = inputbox("请输入新的TXT所在的路径(不含书名),如果省略——即直接不输入点确定或取消,则默认是创建在源文件夹同一层位置","新的TXT保存位置")
  15. if objFSO.folderexists(xinlu) or len(xinlu) = 0  then
  16.   xint = inputbox("请输入新书名的名字","新书名")
  17.    
  18.   if len(xint)>0 then
  19.      xint = xinlu & xint
  20.      Set objOutputFile = objFSO.CreateTextFile( xint &".txt") '创建名为output的新的TXT,可以修改为你要的名称.txt
  21.   else
  22.       msgbox "没有输入内容,请重新输入"
  23.   
  24.   end if
  25. else
  26.    msgbox "路径错误,请重新输入"
  27.    
  28.    
  29. end if
  30. For Each fx In f.Files    '循环写入文本内容
  31.    Set objTextFile = objFSO.OpenTextFile(fx, ForReading)  '找开文件
  32.    strText = objTextFile.ReadAll    '读取全部
  33.    objTextFile.Close                '关闭打开的文件
  34.    objOutputFile.WriteLine strText   '在output.txt写入 文本 内容
  35. Next
复制代码

返回列表