一、创建文件夹(多级):
Private Sub MakeDirPath(strDirName As String)
Dim i As Long, strPath As String
Do
i = InStr(i + 1, strDirName & “”, “”)
strPath = Left
(
s
t
r
D
i
r
N
a
m
e
,
i
−
1
)
I
f
R
i
g
h
t
(strDirName, i - 1) If Right
(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