vb建立删除文件夹
2008-01-07 08:44
267 查看
'首先要[工程]-[引用] 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
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
相关文章推荐
- 建立访问删除非法的目录文件夹名称
- 建立删除不掉的文件夹
- 建立一个别人既无法进入又无法删除的文件夹
- (转自电脑报)建立一个别人既无法进入又无法删除的文件夹
- 建立一个别人既无法进入又无法删除的文件夹
- VB建立共享文件夹
- 教大家建立一个别人既无法进入又无法删除的文件夹
- 建立一个别人既无法进入又无法删除的文件夹
- 建立无法读写删除特殊存储文件夹
- [VB.NET源码]42_创建和删除文件夹
- 教大家建立一个别人既无法进入又无法删除的文件夹
- 如何建立和删除以“.”、“[空格]”结尾的文件夹
- 建立一个别人既无法进入又无法删除的文件夹
- 建立别人既无法进入又无法删除的文件夹
- 对文件的操作--建立移动删除文件夹
- 建立别人既无法进入又无法删除的文件夹
- 如何建立和删除特殊字符的文件夹?
- 如何删除文件及文件夹下的所有文件 vb
- FILE文件夹建立与删除及文件读取
- vb.net建立文件夹并给予帐号完全控制权限