如何删除文件夹

djdeaw · 发表于 2014-9-5 20:37

snood 发表于 2004-3-13 16:40
Sub ssssss()Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("c:\aaaa ...

当c:\aaaa里面有文件被打开时，运行代码会出错
QQ截图20140905203435.jpg

能否让它不要提示，直接跳过，继续执行
高手帮忙加两句代码，谢谢！！！

29151429 · 发表于 2014-12-18 21:12

学习了

龙城飞将III · 发表于 2017-2-1 11:40

20楼代码好，简洁有效！！！
PS：众里寻他千百度啊

xunijyj · 发表于 2017-4-13 08:04

taotu 发表于 2010-10-26 23:24
Sub kk()
On Error Resume Next
Kill "c:\aaa\*.*"

记号，顺便测试一下ThisWorkbook.Path，嘿嘿

qinyu0745 · 发表于 2019-1-8 21:31

留个记号，文件夹管理。

renkangjizhen · 发表于 2019-6-5 14:05

学无止境，受教了

snyn168 · 发表于 2019-7-20 08:59

真的很强.还调用dll.

x-xx-xx · 发表于 2019-12-18 08:28

taotu 发表于 2010-10-26 23:24
Sub kk()
On Error Resume Next
Kill "c:\aaa\*.*"

说明：如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。

x-xx-xx · 发表于 2019-12-18 08:31

DeleteFolder 方法不区分有无内容的文件夹。不管指定文件夹有无内容都会被删除。

x-xx-xx · 发表于 2019-12-18 08:32

		自动登录	找回密码
密码			免费注册

[已解决] 如何删除文件夹