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://www.cnblogs.com/joeblackzqq/archive/2011/02/28/1966972.html

總結

以上是生活随笔為你收集整理的vbs创建目录，可循环创建父级目录的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。