不能删除“~$*.doc”文件

ke3088

问题一
以下代码，不能删除指定文件夹及其子文件夹内的“~$*.doc”文件，但去掉“~$”后却可删除：
Dim FileName,Fliepath as string
Filepath ="D:\2017年度\"
filename =dir(filepath & "~$*.doc")
while filename <>""
kill Filepath &filename
filename =dir
wend
问题二
参照守柔大神的代码，写了一段删除最后的空白段落的代码，但提示错误：
Sub DelBlank() Dim i As Paragraph, n As Long
Application.ScreenUpdating = False '关闭屏幕刷新
For Each i In ActiveDocument.Paragraphs.Last '在活动文档的最后段落循环
If Len(i.Range) = 1 Then '判断段落长段,此处可根据文档实际情况
i.Range.Delete '进行必要的修改可将任意长度段落删除
n = n + 1 '计数
End If
Next MsgBox "共删除空白段落" & n & "个!"
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub
现向各位大神求助，帮助修改以上代码，谢谢

dafanshu1

问题一：
因为"~$*.doc"类文件是隐藏的系统文件，所在要在dir中加上参数6，即：Dir(FilePath & "~$*.doc", 6)。
另外，Kill不能删除隐藏文件，需要在其之前将文件属性设为常规，即：SetAttr FilePath & FileName, 0。

问题二：
可能是For Each 循环不适用吧，改为Do While循环：
Do While Len(ActiveDocument.Paragraphs.Last.Range) = 1
ActiveDocument.Paragraphs.Last.Range.Delete
n = n + 1
Loop

ke3088

dafanshu1 发表于 2017-3-7 13:46
问题一：
因为"~$*.doc"类文件是隐藏的系统文件，所在要在dir中加上参数6，即：Dir(FilePath & "~$*.doc", ...

dafanshu1兄，谢谢您。修改成如下：
Dim FileName,Fliepath as string
Filepath ="D:\2017年度\"
filename =Dir(FilePath & "~$*.doc", 6)
SetAttr FilePath & FileName, 0
while filename <>""
kill Filepath &filename
filename =dir
wend
问题基本解决。就是有点小的瑕疵：其一，每次只能删除一个文件，文件夹内有多个“~$*.doc”文件时，提示找不到文件；其次，不能删除子文件夹内的“~$*.doc”文件。如果能在文件夹及其子文件夹内循环，删除多个文件就理想了

dafanshu1

ke3088 发表于 2017-3-7 23:32
dafanshu1兄，谢谢您。修改成如下：
Dim FileName,Fliepath as string
Filepath ="D:\2017年度\"

你要将SetAttr语句放在while循环内才行的。
Dir函数好像是不能查找子文件夹的，至于如何遍历子文件夹，可以在论坛上找一下有关贴子。

loquat

~$开头的有可能是目前正在打开的文档的临时文件

dafanshu1

loquat 发表于 2017-3-8 09:47
~$开头的有可能是目前正在打开的文档的临时文件

是喔，如果删除了可能对非正常关闭的文档恢复造成影响。

ke3088

谢谢提醒，不过我是在另存前清理文件夹用的，与当前文档不在同一文件夹内，估计问题不大，再次感谢！

413191246se

楼主，前两天我整理单位WORD文档，也是为WIN7下即使打开搜索隐藏文件仍然看不到WORD的临时文件而发愁，后来上网上搜得一个小软件：隐藏文件查找器，它是外国人做的免费软件，因为是免费，所以，不能批量执行删除，但可以为找到的隐藏文件取消隐藏，然后再在资源管理器中搜索 ~$*.doc 即可批量删除了，此前要关闭WORD程序。
Hidden File Finder v3.0.rar (1.19 MB, 下载次数: 5)

2017-3-12 12:35 上传

点击文件名下载附件