Office中国论坛/Access中国论坛

标题: 强力删除文件夹 [打印本页]

作者: 123shusheng 时间: 2017-7-16 20:56
标题: 强力删除文件夹
我从第三方程序导出一个EXCL表，因为文件名的字符太多，打不开，也删不掉。我发现只用用360的强力删除才能将这个EXCL表所在的文件夹删除，请问在ACCESS数据库里有没有代码可以调用360的强力删除，删除指定的文件夹，谢谢！

作者: Henry D. Sy 时间: 2017-7-16 20:59
360开头的从来没用过

作者: access新新新手 时间: 2017-7-17 08:32
看看能够帮到你吧。。。。3个方法可以实现:
1:
kill 文件 '删除文件
rmdir 文件夹 '删除文件夹
如果想要使用 RmDir 来删除一个含有文件的目录或文件夹，则会发生错误。在试图删除目录或文件夹之前，先使用 Kill 语句来删除所有文件。
2:
或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹
3:
用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 文件名 '强制删除一个文件

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)