VB创建及删除文件夹

一、创建文件夹(多级)：
Private Sub MakeDirPath(strDirName As String)
Dim i As Long, strPath As String
Do
i = InStr(i + 1, strDirName & “”, “”)
strPath = Left$(strDirName,i-1)IfRight$(strPath, 1) <> “:” And Dir$(strPath, vbDirectory) = “” Then
MkDir strPath
End If
Loop Until i >= Len(strDirName)
End Sub

Private Sub Command1_Click()
MakeDirPath “C:\111\222\333”
End Sub
'-----------------------------------------------------------------------------------------------------------------
二、删除文件夹（包括文件夹里的文件）：
'判断文件是否存在
Private Declare Function PathFileExists Lib “shlwapi.dll” Alias “PathFileExistsA” (ByVal pszPath As String) As Long

Private Sub Command1_Click()
Dim Lj As String
Lj = “C:\Users\user\Desktop\1”
If PathFileExists(Lj) <= 0 Then Exit Sub
Set fso = CreateObject(“Scripting.filesystemobject”)
fso.deletefolder Lj
Set fso = Nothing
End Sub