找不到文件 - 尝试重命名存在的文件时出现错误 53

Question

非常奇怪，因为这个代码是运行昨晚！！我没有做任何更改，现在它失败了，错误 53 - 找不到文件。

Dim oldFilePath As String
Dim newFilePath As String
    FolderPath = "C:\Users\ME\Documents\Scans\"
    NewFileName = "Invoice " & InvID & " For " & LName & ", " & FName & ", " & ClaimNo
    oldFilePath = FolderPath & Filename
    newFilePath = FolderPath & NewFileName & ".pdf"
    Debug.Print oldFilePath
    Name oldFilePath As newFilePath  <--FAIL HERE

调试出来了：

C:\Users\ME\Documents\Scans\ZephyrClaims20181018161309042577.pdf

这是正确的。该文件存在，当我将调试代码复制到 windows 资源管理器地址栏并按回车键时，文件将在 acrobat 中打开！

如前所述，这在以前是有效的。这是一个循环遍历文件夹中的特定文件、重命名它们然后循环的函数。

文件列表只是一个access DB中的文件名，然后你可以在那里看到文件夹路径，最后确实有“\”。

如果有人有想法，那就完全卡住了！我也试过 DIM 作为 Variant，但没有效果。我发现这对大约 20 个文件有效但现在失败了。

Answer 1

根据用户@Andre 的评论，错误是由新文件名中包含非法字符引起的！！！

找不到文件 - 尝试重命名存在的文件时出现错误 53

File not found - error 53 when trying to rename file that exists

ms-access

vba

renaming