Private Sub cmd_OK_Click()
    Dim sSrcPath As String
Dim sDestPath As String
 
' Quellverzeichnis
 
sSrcPath = frm_Main.txt_pfad.Text
DoEvents
If Right$(sSrcPath, 1) <> "\" Then sSrcPath = sSrcPath & "\"
 
' Zielverzeichnis
sDestPath = Dir1.path
If Right$(sDestPath, 1) <> "\" Then sDestPath = sDestPath & "\"
 
' alle selektierten Dateien kopieren
With frm_Main.sev_List1
  For i = 1 To .ListCount
    If .IsSelected(i) Then
      FileCopy sSrcPath & .SubItems(i, 1), sDestPath & .SubItems(i, 1)
    End If
  Next i
End With
MsgBox ("Dateien wurden erfolgreich kopiert"), vbOKOnly, ("Komplett")
Unload frm_CopyPfad
 
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)