VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 145|回复: 2

[求助] 手动建立文件夹VB无法删除,请问怎么让删除掉?

[复制链接]
发表于 2018-5-6 22:16:08 | 显示全部楼层 |阅读模式
           在窗体上,我使用了CommonDialog1方法添加图片,保存在指定的文件夹 d:\1\ 中,其中有代码:FullName1 =CommonDialog1.Filename。
           我的要求:
1、如果我没有添加,即:If Err.Number = 32755 Or FullName1 = "" Then  时,我需要把文件夹 d:\1\ 删除,此时怎么也删除不了;删除的方法是:
       Kill  "d:\1\*.*"   :  Dim Fso1 As New FileSystemObject :    Fso1.DeleteFolder "d:\1\"
2、如果添加了图片,则上面的删除方法管用。
       请问没有添加图片,为什么不能删除该文件夹呢?
发表于 2018-5-7 08:18:02 | 显示全部楼层
本帖最后由 caxa 于 2018-5-7 08:33 编辑

用 RmDir删除试试看
如果文件夹里没有文件,用kill就会出错
你把这句代码分成三行来写。不同功能的代码,不要放在一行里,这样出错了也不知道是那一条语句。

评分

参与人数 1威望 +8 收起 理由
bruly + 8 赞一个

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2018-5-7 17:36:47 | 显示全部楼层
caxa 发表于 2018-5-7 08:18
用 RmDir删除试试看
如果文件夹里没有文件,用kill就会出错
你把这句代码分成三行来写。不同功能的代码, ...

目前测试用您的方法管用,非常感谢。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2018-5-26 18:14

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表