力士乐液压泵配件:vb建立删除文件

来源:百度文库 编辑:偶看新闻 时间:2024/05/05 19:20:53
’首先要[工程]-[引用] 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