vb建立删除文件夹

 

' 首先要[工程]－[引用] Microsoft Scriptting Runtime
Private   Sub  Command1_Click()
Dim  fso  As   New  FileSystemObject
If  fso.FolderExists( " c:abc " )  Then
   MsgBox  ( " 文件夹已存在 " )
Else
  fso.CreateFolder ( " c:abc " )
End   If
End Sub

Private   Sub  Command2_Click()
Dim  fso  As   New  FileSystemObject
If   Not  fso.FolderExists( " c:abc " )  Then
   MsgBox  ( " 文件夹不存在 " )
Else
  fso.DeleteFolder ( " c:abc " )
End   If
End Sub