Handle Error when FileCopy can't find file

[concreteinterface]

I thought I was doing this right, but apparently not. Getting a "File Not Found" error when the file is not present in the folder. I know that the file sometimes won't be in the first folder or both folders. I think my On Error line isn't correct. What am I missing here?

Sub Copy()

    SerialDate = Format(Date, "yymmdd") & Format(Time, "hhmmss")
    CopyFileLocation = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & SerialDate & "\"
    MkDir CopyFileLocation
    
    For i = 2 To 1000
        On Error Resume Next
        FileCopy "V:\fullfilepath1\" & Range("B" & i).Value & ".pdf", CopyFileLocation & Range("B" & i).Value & ".pdf"
        On Error GoTo ErrHandler
        FileCopy "V:\fullfilepath2\" & Range("B" & i).Value & ".pdf", CopyFileLocation & Range("B" & i).Value & ".pdf"
        GoTo SkipErr
        
ErrHandler:
            Range("A" & i).Value = "COULD NOT EXTRACT!"
            GoTo SkipErr2
SkipErr:
            Range("A" & i).Value = SerialDate
SkipErr2:
    
    Next


End Sub

 

[Dryver14]

Shouldn't the error handing be outside the loop after the next before end sub

 

[concreteinterface]

Shouldn't the error handing be outside the loop after the next before end sub

I just gave this a shot and got the same result. I want it to dive back into the loop even if it doesn't find the file.

 

[concreteinterface]

Got it. Found the correct way around.

Sub Copy()

'https://www.mrexcel.com/forum/excel-questions/1045260-handle-error-when-filecopy-cant-find-file.html#post5017621


Dim FilePath As String
Dim TestStr As String
    
    SerialDate = Format(Date, "yymmdd") & Format(Time, "hhmmss")
    CopyFileLocation = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & SerialDate & "\"
    MkDir CopyFileLocation
    
    For i = 2 To 10000
        If Range("B" & i).Value = "" Then GoTo Skip1
        If Range("A" & i).Value <> "" Then GoTo Skip1
        
        NewFilePath = CopyFileLocation & Range("B" & i).Value & ".pdf"
        
        FilePath = "V:\FILEPATH1\" & Range("B3").Value & ".pdf"
        TestStr = ""
        On Error Resume Next
        TestStr = Dir(TestStr)
        On Error GoTo 0
        If TestStr <> "" Then
            FileCopy TestStr, NewFilePath
            Range("A" & i).Value = SerialDate
            GoTo Skip1
        End If


        FilePath = "V:\FILEPATH2\" & Range("B" & i).Value & ".pdf"
        TestStr = ""
        On Error Resume Next
        TestStr = Dir(TestStr)
        On Error GoTo 0
        If TestStr <> "" Then
            FileCopy TestStr, NewFilePath
            Range("A" & i).Value = SerialDate
        Else
            Range("A" & i).Value = "COULD NOT EXTRACT!"
        End If
            
Skip1:
    
    Next


End Sub

 

[Dryver14]

Glad your sorted