麻烦各位帮我看一下,小弟新手,搞不懂,谢谢

cnlomo cnlomo 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
      Dim QQfso
Dim QQfldr
Dim QQDocuments
Set QQfso = CreateObject("Scripting.FileSystemObject")
Set QQDocuments = CreateObject("WScript.Shell")
Set QQfldr = QQfso.CreateFolder(QQDocuments.SpecialFolders("MyDocuments") & "\123\abc")
'MsgBox QQfldr
fso.CopyFolder fname & List1 & "\*", QQfldr

我就是想实现一个简单的文件夹复制功能,可是我搞不懂,新手真痛苦。
上面的代码很多地方都没写完全,定义部分和下面的执行部分。
问题是,MyDocuments下没有123文件夹,所以建立abc文件夹时提示找不到路径,大家帮帮忙。
还有,如果本来就有abc文件夹,他会提示文件夹已存在,咋能让他变成有则不建立,无则建立。
...全文

相关推荐

评论 6
收藏 已收藏
分享
返回顶部
cnlomo
VB基础类 7,788 成员 197,583 内容