如果出现在目标位置则删除，如果错误则复制到目标位置移至下一个

Question

我有很久以前写的 VBScript 来根据文件名识别 PDF。然后它将数据附加到文件名并将其移动到正确的目录。我把它作为 Select Case 来做，以便它循环获取许多文件名。我现在正在尝试修改脚本以检查具有新名称的文件是否已经在目标目录中，如果是，则删除旧文件，然后复制新文件（如果文件已打开且不能覆盖，忽略并移至下一个）。我一直在许多论坛上搜索，并且能够找到我正在尝试的部分内容，但无法成功地将流程集成到我的脚本中。这是我的 select 案例的内容，这部分是在 "VariableAddedtoFileName" 更改后重复的内容。

Select Case Pname
    Case "FileName"
        sDestinationFolder = "\Server\FileDir\"       
        sDestinationName = "VariableAddedtoFileName"      
        Set oFSO = CreateObject("Scripting.FileSystemObject")
        sSourceFile = objStartFolder & "\" & objFile.Name
        sDestinationFile = sDestinationFolder & "\" & Pname & " " & _
            sDestinationName & Right(objFile.Name, 4)

        If oFSO.FileExists(sDestinationFile) Then
            Set oFSO = Nothing
        Else
            oFSO.MoveFile sSourceFile, sDestinationFile
            Set oFSO = Nothing
        End If
    Case "StatementScriptTest"
    Case Else
End Select

因此，如果我将 If oFSO.FileExists 组中的 Set oFSO 行更改为 oFSO.DeleteFile sDestinationFile 它会删除文件，但不会复制新文件。如果重新运行，它会复制该文件，因为它不再存在。我尝试了多种尝试操纵 if 语句和 then 的组合，但没有成功。我还尝试删除 if 部分之前的文件，但无济于事。如有任何帮助，我们将不胜感激。

如果需要我可以提供的完整脚本，我只列出了这一部分，因为它是多次重新运行的部分。我也知道有多个帖子与此类似，但我想弄清楚如何更新我的代码以使其正常工作。

更新： 我已经使用 CopyFile:

修复了覆盖问题

 If oFSO.FileExists(sDestinationFile) Then
    oFSO.CopyFile sSourceFile, sDestinationFile, True
Else
    oFSO.CopyFile sSourceFile, sDestinationFile, True
    Set oFSO = Nothing
End If

但是如果在尝试覆盖时文件处于打开状态，我仍然会收到错误消息。

Answer 1

首先，如果每个分支中的代码相同，则不需要 IF 语句。只需使用 oFSO.CopyFile sSourceFile, sDestinationFile, True，它将为您完成工作。

其次，为了捕获错误，您必须在复制命令之前使用 On Error Resume Next 声明并检查是否触发了某些错误：

On Error Resume Next ' this tells VB to not throw errors and to populate the Err object when an error occurs

oFSO.CopyFile sSourceFile, sDestinationFile, True

IF Err.Number <> 0 Then
    ' do something when error occurs
    ' ...

    Err.Clear ' clears the error so it will not trigger this on the loop if no more errors occur
End IF

' When you want to stop ignoring the errors
On Error GoTo 0

如果出现在目标位置则删除，如果错误则复制到目标位置移至下一个

Delete If Present at Destination, Copy To Destination If Error Move to Next

vbscript

fso