国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

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