怎么删除文件夹 - VB6论坛

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	学习型 ASP/PHP/ASP.NET 主机 30元/年
高端软件开发 = 年薪十万不是梦

共有 292 人关注过本帖

标题：怎么删除文件夹

收藏订阅推荐打印

zyal

等级：新手上路
帖子：17
积分：302
注册：2008-6-23

楼主

怎么删除文件夹

Private Sub Command2_Click()
'帮我在这里写一下删除文件夹的代码。比如D;\123456
End Sub
你们下载起看哈最好

附件: 只有本站会员才能下载或查看附件，请您登录或注册

搜索更多相关主题的帖子: 文件 Sub 删除 Click

2008-8-1 22:26

flyingcat2008

来自：湖南
等级：新手上路
帖子：10
积分：230
注册：2008-7-28

第 2 楼

用RmDir

If Dir("D:\123456", vbDirectory) <> "" Then
   If Dir("d:\123456\*.*", vbNormal) <> "" Then  ''若文件夹中还有文件
      Kill "d:\123456\*.*"   '先删除子目录中的文件
   End If
   RmDir "D:\123456"
   MsgBox "子目录D:\123456被删除"
else
   MsgBox "啥都没做"

End If

[ 本帖最后由 flyingcat2008 于 2008-8-1 23:46 编辑 ]

2008-8-1 23:21

共有 291 人关注过本帖