PrivateSubCommand1_Click()
DimfsoAsNewFileSystemObject
Iffso.FolderExists(\"c:abc\")Then
MsgBox(\"文件夹已存在\")
Else
fso.CreateFolder(\"c:abc\")
EndIf
EndSub
PrivateSubCommand2_Click()
DimfsoAsNewFileSystemObject
IfNotfso.FolderExists(\"c:abc\")Then
MsgBox(\"文件夹不存在\")
Else
fso.DeleteFolder(\"c:abc\")
EndIf
EndSub
最新评论