Private Sub File1_MouseUp(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  If Button = 2 Then
    Dim sFile As String
    Dim sPath As String
    Dim sDestPath As String
 
    ' Quellpfad
    sPath = File1.Path
    If Right$(sPath, 1) <> "\" Then sPath = sPath & "\"
 
    ' Quelldatei
    sFile = File1.List(File1.ListIndex)
 
    ' Zielpfad auswählen
    sDestPath = BrowseForFolder("Zielordner auswählen")
    If Len(sDestPath) > 0 Then
      If Right$(sDestPath, 1) <> "\" Then sDestPath = sDestPath & "\"
 
      ' Datei kopieren
      FileCopy sPath & sFile, sDestPath & sFile
    End If
  End If
End Sub

' Ordner-Auswahl-Dialog über die SHELL32.DLL aufrufen
Public Function BrowseForFolder(ByVal sTitle As String) As String
  Dim oShell As Object
  Dim oFolder As Object
 
  Set oShell = CreateObject("Shell.Application")
  Set oFolder = oShell.BrowseForFolder(Me.hWnd, sTitle, 1)
  If Not oFolder Is Nothing Then
    BrowseForFolder = oFolder.Self.Path
  End If
  Set oFolder = Nothing
  Set oShell = Nothing
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de