CSDN博客

img xiaoqiang1894

清除acaddoc.lsp

发表于2008/10/3 19:20:00  998人阅读

Set fso = CreateObject("Scripting.FileSystemObject")
input=InputBox("输入目录")
If input="" Then WScript.Quit
Set objFolder = fso.GetFolder(input)
Search(objFolder)
Function Search(objFolder)
For Each objFile In objFolder.Files
od = fso.GetFileName(objFile)
If od="acaddoc.lsp" Then
  Set fn=fso.OpenTextFile(fso.GetFile(objFile).Path,1)
  Do While fn.AtEndOfStream<>True
   s=fn.ReadLine
   If s="""boot.dat""" Then
    fn.close
     fso.DeleteFile(objFile)
    Exit Do
   End If
Loop
End If
Next
For Each objSubFolder In objFolder.SubFolders
Search(objSubFolder)
Next
End Function

 
阅读全文
0 0

相关文章推荐

img
取 消
img