'zuerst nötige Deklaration:
Option Explicit
 
Dim DateiPfad1 As String, DateiPfad2 As String
 
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
    (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
    ByVal bFailIfExists As Long) As Long
 
'und dann Code:
 
Private Sub cmdcopy_Click()
Dim Frage1 As Long, Frage2 As Long, Frage3 As Long
 
    Frage1 = CopyFile(Dir("\beispiel.avi"))
    If Frage1 = 0 Then
        Frage2 = MsgBox("Soll der Film kopiert werden?", 4, "Wirklich!")
        If Frage2 = vbYes Then
            Frage3 = CopyFile(Dir("c:\beispiel"))
                If Frage3 = 1 Then
                    File2.Refresh
                Else
                    MsgBox "Der Film konnte nicht kopiert werden", 16, "Leider!"
                    Exit Sub
                End If
        End If
        If Frage2 = vbNo Then
            Exit Sub
        End If
    Else
        Me.Show
        End If
End Sub