vbs创建目录,可循环创建父级目录
On error resume Next
'删除字符串最右边的字符chs
Function MyRTrim(src, chs) '删除字符串最右边的字符chs(可多个)
Dim pos, sLeft
src = Trim(src)
pos = InStrRev(src, chs) '查找最后一个字符chs
if(pos > 0 and Len(Mid(src, pos+1)) = 0) Then
sLeft = Left(src, pos - 1) '去除最后一个chs
MyRTrim = MyRTrim(sLeft, chs) '去除尾部的chs
else
MyRTrim = src
end if
End Function
'创建目录,如果父目录不存在,则创建:实现一次性创建所有父级目录
Sub MyCreateFolder(sPath)
Dim fs
set fs = CreateObject("Scripting.FileSystemObject")
if(Len(sPath) > 0 And fs.FolderExists(sPath) = False) Then
Dim pos, sLeft
pos = InStrRev(sPath, "\")
if(pos <> 0) Then
sLeft = Left(sPath, pos - 1)
MyCreateFolder sLeft '先创建父目录
end if
fs.CreateFolder sPath '再创建本目录
end if
set fs = Nothing
End Sub
Dim path
path = "E:\Program\VBScript\A1\A2\A3"
path = MyRTrim(path, "\")
MyCreateFolder path
出处:https://blog.csdn.net/weixin_34060299/article/details/86164538
关注我】。(●'◡'●)
如果,您希望更容易地发现我的新博客,不妨点击一下绿色通道的【因为,我的写作热情也离不开您的肯定与支持,感谢您的阅读,我是【Jack_孟】!
本文来自博客园,作者:jack_Meng,转载请注明原文链接:https://www.cnblogs.com/mq0036/p/15926620.html
【免责声明】本文来自源于网络,如涉及版权或侵权问题,请及时联系我们,我们将第一时间删除或更改!
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek “源神”启动!「GitHub 热点速览」
· 微软正式发布.NET 10 Preview 1:开启下一代开发框架新篇章
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
· DeepSeek R1 简明指南:架构、训练、本地部署及硬件要求
· NetPad:一个.NET开源、跨平台的C#编辑器
2021-02-23 navicat for mysql 中文破解版(无需激活码)
2021-02-23 js获取url参数值的方法总结
2016-02-23 银行利息计算公式推导(存款,贷款)