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

posted on   jack_Meng  阅读(230)  评论(0编辑  收藏  举报

相关博文:
阅读排行:
· 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 银行利息计算公式推导(存款,贷款)

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
点击右上角即可分享
微信分享提示

喜欢请打赏

扫描二维码打赏

支付宝打赏

主题色彩