Переместить файл из одной папки в другую - Ошибка 53 Файл не найден

Question

Я пытаюсь переместить файл из одной папки в другую, с проверкой этого файла внутри моей системы (пока это хорошо), однако VBA представляет Error 53 (файл не найден), однако при использовании Debug.Print, каталог и файл верны, и я также, очевидно, уже нашел файл в папке.

Имя файла: DRIP_SJ0187C3_AZUL_RETANGULO_FEM_RX_52_139_MODELO.jpg

Папка: C:\OCULOS

Результат отладки. Печать: C:\OCULOS\DRIP_SJ0187C3_AZUL_RETANGULO_FEM_RX_52_139_MODELO.jpg

Код VBA:

Sub MoveFile()

Dim FSO As Object
Dim Source, Path, File As String
Dim i As Integer
Dim rng As Range, cell As Range
Dim SourceFile As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set rng = Planilha2.Range("E2:E1048576")

Source = "C:\OCULOS\"
Path= "C:\OCULOS_SEM_ESTOQUE\"

For Each cell In rng
    i = i + 1
    If Planilha2.Cells(i, 5) = 0 Then
        File = Planilha2.Cells(i, 1).Value
        SourceFile= Source & File
        Debug.Print SourceFile
        FSO.MoveFile Source:=SourceFile, Destination:=Path
    End If
Next cell

End Sub

Answer 1

Финальный код:

Sub MoveFile()

Dim FSO As Object
Dim Source, Path, File As String
Dim i As Long
Dim rng As Range, cell As Range
Dim SourceFile As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Set rng = Planilha2.Range("E2:E1048576")

Source = "C:\OCULOS\"
Path = "C:\OCULOS_SEM_ESTOQUE\"

For Each cell In rng
    i = i + 1
    If Planilha2.Cells(i, 5) = 0 Then
        File = Planilha2.Cells(i, 1).Value
        SourceFile = Source & File
'        Debug.Print Dir(SourceFile)
'        Debug.Print File
        FSO.MoveFile Source:=SourceFile, Destination:=Path
    End If
Next cell

End Sub