Dim sSrcPath As String
Dim sDestPath As String
Dim sFile As String
 
' Quellverzeichnis
sSrcPath = txt_pfad.Text
If Right$(sSrcPath, 1) <> "\" Then sSrcPath = sSrcPath & "\"
 
' Zielverzeichnis
sDestPath = txt_CopyPfad.Text
If Right$(sDestPath, 1) <> "\" Then sDestPath = sDestPath & "\"
 
' alle selektierten Dateien kopieren
With sevList1
  For i = 1 To .ListCount
    If .IsSelected(i) Then
      sFile = .SubItems(i, 1)
      If InStr(sFile, "\") > 0 Then sFile = Mid$(sFile, InStrRev(sFile, "\") + 1)
      FileCopy sSrcPath & .SubItems(i, 1), sDestPath & sFile
    End If
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de