首页 > 未分类 > 用vb建立删除文件夹示例

用vb建立删除文件夹示例

2010年9月14日

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

分类: 未分类 标签:
本文的评论功能被关闭了.