' Копирование одного файла'
On Error Resume Next
    Do
        Err.Clear
        FileCopy  "откуда" ,  "куда" 
    Loop While Err.Number = нужный код ошибки
On Error Goto  0 
' Можно копировать следующий'

Public Function TestCopy(strFrom As String, strTo As String)
    On Error Resume Next
        Do
            Err.Clear
            FileCopy strFrom, strTo
            
            Select Case Err.Number
                Case  0  ' Копирование прошло успешно. '
                    Exit Do ' Мавр сделал свое дело '
                    
                Case  70  ' Нет доступа '
                    If MsgBox( "Хто-то открыл файл "  & strFrom & vbCrLf &  "Повторить?" , _
                            vbYesNo) = vbNo Then
                        Exit Do ' На фиг - значит на фиг '
                    End If
                    
                Case Else ' Непонятная беда '
                    MsgBox  "Ошибка при копировании файла "  & strFrom _
                            & vbCrLf & Err.Description, vbCritical
                    Err.Clear
                    Exit Function
            End Select
            
        Loop
End Function