Option Explicit

Sub CopyNewFile()
    Dim wb As Workbook: Set wb = ThisWorkbook

    If Not wb.Saved Then
        Dim msg As String
        msg = "В книге имеются не сохраненные изменения." & vbCrLf & _
              "Сохранить книгу?"
        If MsgBox(msg, vbExclamation + vbYesNo) = vbYes Then
            wb.Save
        End If
    End If

    '_______________________________________________________
    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Const pZ As String = "Z:\Бюджет.xlsb"
    Dim pD As String: pD = wb.FullName

    '*******************************************************
    If pD = pZ Then
        MsgBox "Открытый ""Бюджет"" - с флешки!", vbCritical
        Exit Sub
    End If

    If Not fso.DriveExists("Z") Then    ' НЕТ ФЛЕШКИ!!!
        MsgBox "Отсутствует флешка!", vbCritical
        Exit Sub
    End If
    '*******************************************************

    If fso.FileExists(pZ) Then  ' есть на "Z"
        ' файлы
        Dim fD As Object: Set fD = fso.GetFile(pD)
        Dim fZ As Object: Set fZ = fso.GetFile(pZ)

        ' даты последнего изменения файлов
        Dim dD As Date: dD = fD.DateLastModified
        Dim dZ As Date: dZ = fZ.DateLastModified

        '#################################################################################
        If Abs(dD - dZ) < TimeSerial(0, 0, 5) Then
            MsgBox "КОПИРОВАНИЕ НЕ НУЖНО." & vbCrLf & _
                   String(50, "_") & vbCrLf & _
                   "Время последнего изменения файла:" & vbCrLf & _
                   " - на диске ""D"":   " & dD & vbCrLf & _
                   " - на диске ""Z"":   " & dZ & vbCrLf & vbCrLf & _
                   "Размер файла:" & vbCrLf & _
                   " - на диске ""D"":   " & Format(fD.Size, "#,##0 байт") & vbCrLf & _
                   " - на диске ""Z"":   " & Format(fZ.Size, "#,##0 байт"), vbInformation

        Else
            Dim fNew As Object, fOld As Object  ' файлы по новизне
            Select Case True
                Case dD > dZ
                    Set fNew = fD
                    Set fOld = fZ

                Case dZ > dD
                    Set fNew = fZ
                    Set fOld = fD
            End Select

            '--------------------------------------------------------- Обработка ---
            msg = ""
            With fNew
                msg = msg & "НОВЫЙ:" & vbCrLf
                msg = msg & .Path & vbCrLf
                msg = msg & .DateLastModified & " (" & Format(.Size, "#,##0 байт)")
            End With
            msg = msg & vbCrLf & vbCrLf

            With fOld
                msg = msg & "СТАРЫЙ:" & vbCrLf
                msg = msg & .Path & vbCrLf
                msg = msg & .DateLastModified & " (" & Format(.Size, "#,##0 байт)")
            End With
            msg = msg & vbCrLf & vbCrLf
            msg = msg & "Заменяем СТАРЫЙ файл НОВЫМ?"

            If MsgBox(msg, vbQuestion + vbOKCancel) = vbOK Then
                fNew.Copy (fOld.Path)
            Else
                MsgBox "Операция копирования отменена.", vbExclamation
            End If
        End If
        '#################################################################################

    Else    ' нет на "Z"
        If MsgBox("Файла нет на диске ""Z""." & vbNewLine & _
                  "Сохраняем копию с диска ""D""?", vbQuestion + vbOKCancel) = vbOK Then
            fso.GetFile(pD).Copy (pZ)
        End If
    End If
End Sub