Private Sub cmdkopieren_Click()
Dim CopyName As String
Dim StartFile As String
Dim CopyFile As String
Dim f As Integer
 
'--Fehlerbehandlung aktivieren--!!!
On Local Error GoTo FileCopy_Error
 
With ListeLocal
    For f = 0 To .ListCount - 1
        If .Selected(f) = True Then
            CopyName = .List(f)
            .RemoveItem (f)
        End If
    Next f
End With
 
StartFile = Optionen.TB_MASCHINE1.Text & "\" & CopyName
CopyFile = StatusBar1.Panels(1).Text & "\" & CopyName
 
FileCopy StartFile, CopyFile
 
Call ListeServerRegen
Call ListeLocalRegen
 
Exit Sub
FileCopy_Error:
    MsgBox "Es wurde keine Auswahl getroffen", vbInformation
 
End Sub

VG

Dirk