根据文件路径创建文件夹

admin

给定指定路径，则创建这个路径中的所有文件夹。
例如，文件路径："E:\movies\us\thred.mp4"
则此函数会创建文件夹："movies","us"

1. Public Sub CreateFolder(ByVal FilePath As String)
   
2.     Dim arr() As String
   
3.     Dim i As Long
   
4.     Dim curPath As String
   
5.    
   
6.     FilePath = Replace(FilePath, "\", "")
   
7.    
   
8.     If Dir(FilePath, vbDirectory) = "" Then
   
9.         FilePath = Mid(FilePath, 1, InStrRev(FilePath, ""))
   
10.     End If
    
11.    
    
12.     arr = Split(FilePath, "")
    
13.    
    
14.     For i = 0 To UBound(arr)
    
15.         If curPath = "" Then
    
16.             curPath = curPath & arr(i)
    
17.         Else
    
18.             curPath = curPath & "" & arr(i)
    
19.         End If
    
20.         
    
21.         If Dir(curPath, vbDirectory) = "" Then
    
22.             MkDir curPath
    
23.         End If
    
24.     Next i
    
25. End Sub
    

复制代码