为什么每次都只删除了一个文件

[wsxqaz]

我有一个循环会调用一个过程删除全部文件，但是每次都只能删除一个文件，我看过传进去的Path一定是对的，但是（比如我现在循环删除两个文件）第一个文件一切正常，将第二个路径传进去后fo.FileExists(Path)就是false也就是文件不存在，但是我看过Path的路径是对的，而且可以肯定文件也是存在的

Sub DelFile(Path)
On Error Resume Next
Set fo = Server.CreateObject("Scripting.FileSystemObject")
If fo.FileExists(Path) Then
fo.DeleteFile Path
End if
Set fo = Nothing
End Sub

[netdust]

试试改成这样：

Sub DelFile(Path)
On Error Resume Next
Dim fo ' <--- 加了这句
Set fo = Server.CreateObject("Scripting.FileSystemObject")
If fo.FileExists(Path) Then
fo.DeleteFile Path
End if
Set fo = Nothing
End Sub

[xxuu503]

循环调用的代码出错了