代码如何批量删除以“~$”开头的系统自动备份的文件？

chenlifeng123

我在编辑WORD文件时，系统会自动产生以“~$”开头的文件，等我关闭正在编辑的文件时，这个自动产生的“~$……”文件，则会自动消失。
    但是，我发现有时候它并不消失！可恶至极呀！由于这个现象太寻常了，我在很多的文件夹有都有，多则达几十上百个。手动一一删除后，以后再编辑文档时，又产生了。
真是恼火得不得了。
   哪位大师有办法用代码删除这些无用文件呀？我下面用了一个代码，可是却不管用。
请问如何修正呢，谢谢！

[code=vb]
Sub 删除指定文件夹中的所有WORD()
Application.ScreenUpdating = False
CreateObject("wscript.shell").Run Environ("comspec") & " /c for /r F: %a in (~$*.doc) do del /q ""%a""", 0, 1
Application.ScreenUpdating = True
MsgBox "删除完成"
End Sub
[/code]

sqhsqhli

先改属性然后再删
Sub vv()
    Dim oFileSystem As Object
    Dim oFile As Object
    Set oFileSystem = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFileSystem.GetFile("C:\Documents and Settings\Administrator\桌面\1.doc")
    oFile.Attributes = 0
    oFile.Delete
    Set oFile = Nothing
    Set oFileSystem = Nothing
End Sub

龙行九州

用BAT批处理命令更简单

chenlifeng123

谢谢关注，不会呢。。上面一段文字都不行哈……