Question

VBS删除目录和文件

1、删除"f:\abc.exe"文件

2、删除"f:\abc"目录

要求：
1.文件和目录都为“系统.隐藏.只读”属性，强制删除。
2.文件和目录若不存在，则会弹出“找不到文件...”之类的错误提示，希望屏蔽这个错误。

谢谢。

Answer 1

代码如下，有问题hi我讨论下

Dim fso,obj
set fso=createobject("scripting.filesystemobject")
If fso.FileExists("f:\abc.exe") Then delFile "f:\abc.exe",0
If fso.FileExists("f:\abc")Then delFile "f:\abc",1
MsgBox "删除成功！"
Sub delFile(sPath,isFolder)
arr=Array(1,2,4)
If isFolder Then
Set file=fso.getFolder(sPath)
Else
Set file=fso.getFile(sPath)
End If
For i=0 To 2
If file.Attributes And arr(i) Then
file.Attributes = file.Attributes XOR arr(i)
End If
Next
If isFolder Then
fso.deleteFolder sPath
Else
fso.deleteFile sPath
End If
End Sub

Answer 2

set fso=createobject("scripting.filesystemobject")
on error resume next
set sfile=fso.getfile("d:\abc.exe")
sfile.attributes=0
sfile.delete
if err then msgbox "can't find file"
on error resume next
set sfold=fso.getfolder("d:\abc")
sfold.attributes=0
sfold.delete
if err then msgbox "can't find fold"