Vbscript VBS需要非常长的时间才能删除
我们有一个vbs脚本，它在夜间运行，删除旧备份，然后为夜间创建新备份。在我们的一些地方，删除部分花费了非常长的时间，我们遇到了问题 我在一家餐厅的IT部门工作，这段代码是由我们的软件供应商编写的，他根本帮不上忙。这花费的时间太长，导致商店不能按时营业 以下是使用的代码：Vbscript VBS需要非常长的时间才能删除,vbscript,scripting,Vbscript,Scripting,我们有一个vbs脚本，它在夜间运行，删除旧备份，然后为夜间创建新备份。在我们的一些地方，删除部分花费了非常长的时间，我们遇到了问题 我在一家餐厅的IT部门工作，这段代码是由我们的软件供应商编写的，他根本帮不上忙。这花费的时间太长，导致商店不能按时营业 以下是使用的代码： If FSO_FileExists(sDest & "\" & sZip) Then FSO_DeleteFile(sDest & "\" & sZip) End If
If FSO_FileExists(sDest & "\" & sZip) Then
FSO_DeleteFile(sDest & "\" & sZip)
End If
Function FSO_DeleteFile(sFile)
Dim oErr: oErr = Err: Err.Clear
If Not bDebugScript Then On Error Resume Next
Dim fsName: fsName = "FSO_DeleteFile"
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile sFile, True
FSO_DeleteFile = (Err.Number = 0)
If IsObject(oLog) Then oLog.WriteLog fsName & ": " & sFile
If Err.Number <> 0 And IsObject(oLog) Then oLog.WriteLog "ERROR: " & fsName & ": (" & Err.Number & ") " & Err.Description
Err = oErr
End Function
Function FSO_FileExists(sFile)
Dim oErr: oErr = Err: Err.Clear
If Not bDebugScript Then On Error Resume Next
Dim fsName: fsName = "FSO_FileExists"
Dim oFSO: Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim bExists
bExists = oFSO.FileExists(sFile)
FSO_FileExists = bExists
If IsObject(oLog) Then oLog.WriteLog fsName & ": (" & CStr(bExists) & ") " & sFile
If Err.Number <> 0 And IsObject(oLog) Then oLog.WriteLog "ERROR: " & fsName & ": (" & Err.Number & ") " & Err.Description
Err = oErr
End Function
显然，删除一个文件34分钟是很长的时间。我希望我已经提供了足够的信息。如果我还需要什么，请告诉我。试着用以下内容替换那些令人费解的内容：
filename = oFSO.BuildPath(sDest, sZip)
If oFSO.FileExists(filename) Then
oLog.Write "Deleteing file " & filename
On Error Resume Next
oFSO.DeleteFile filename
If Err Then oLog.Write "ERROR: " & filename & ": (" & Err.Number & ") " _
& Err.Description
On Error Goto 0
Else
oLog.Write "File " & filename & " not found"
End If