gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章VBS合并一个文件夹里的TXT的实现代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

复制代码 代码如下

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 。

最后此篇关于VBS合并一个文件夹里的TXT的实现代码的文章就讲到这里了,如果你想了解更多关于VBS合并一个文件夹里的TXT的实现代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com