Private Sub Form_Load()
  File1.OLEDragMode = 1
  File2.OLEDropMode = 1
End Sub

Private Sub File2_OLEDragDrop(Data As DataObject, Effect As Long, _
  Button As Integer, Shift As Integer, X As Single, Y As Single)
 
  ' Datei kopieren
  Dim nPos As Integer
  Dim sFile As String
  Dim i As Integer
  Dim sPath As String
 
  If Data.Files.Count > 0 Then
    For i = 1 To Data.Files.Count
      sFile = Data.Files(i)
      nPos = InStrRev(sFile, "\")
      sFile = Mid$(sFile, nPos + 1)
 
      ' Zielpfad
      sPath = File2.Path & IIf(Right$(File2.Path, 1) <> "\", "\", "")
 
      ' Kopieren
      FileCopy Data.Files(i), sPath & sFile
 
      ' Falls verschieben -> Originaldatei jetzt löschen
      Kill Data.Files(i)
    Next i
 
    ' Ziel-Dateiliste aktualisieren
    File2.Refresh
 
    ' Falls verschieben...
    File1.Refresh
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de