VBA创建多级目录,代码如下:
'================================================== ' 创建目录 ' 调用格式:createDir("C:test") '================================================== Function createDir(ByVal pathSpec As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") '不是目录时,创建目录 If Dir(pathSpec, vbDirectory) = "" Then fs.createfolder (pathSpec) End If End Function '================================================== ' 创建多层目录 ' 调用格式:createMutiDir("C:test我是目录哈哈VBA") '================================================== Function createMutiDir(ByVal pathSpec As String) Dim pathSpecPart As String Dim pathSpecArray() As String pathSpecArray = Split(pathSpec, "") pathSpecPart = pathSpecArray(0) ' 循环计数器 Dim i As Integer For i = 1 To UBound(pathSpecArray) pathSpecPart = pathSpecPart + "" + pathSpecArray(i) + "" createDir (pathSpecPart) Next i End Function
近期评论