快速业务通道

VBS合并一个文件夹里的TXT的实现代码

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
复制代码 代码如下:

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

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号