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资源管理器地址栏中并按Enter时，该文件将在acrobat中打开！

如上所述，这是可行的。该功能可以循环浏览文件夹中的特定文件，对其进行重命名然后循环。

文件列表仅是访问数据库中的文件名，然后您可以在其中看到文件夹路径，该路径的末尾确实带有“ \”。

如果有人有主意，就会完全陷入困境！我也尝试将DIM用作Variant，但没有效果。我觉得这很奇怪，它已经处理了大约20个文件，但现在失败了。

Answer 1

该错误是由新文件名中每个用户@Andre注释中包含非法字符引起的！！！

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

1 个答案: