陋博

首先要[工程]－[引用] 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:ab...