Private Sub File1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, _
  Button As Integer, Shift As Integer, x As Single, y As Single)
 
  Dim i As Integer
  Dim Quelldatei As String, Zielordner As String, Zieldatei As String
  Zielordner = File1.Path
  If Right(Zielordner, 1) <> "\" Then Zielordner = Zielordner & "\"
  ' Prüfen, ob es sich um eine Datei handelt
  If Data.GetFormat(vbCFFiles) Then
    ' alle Dateien (1 bis Files.Count)
    For i = 1 To Data.Files.Count
      'MsgBox Data.Files(i)
      Quelldatei = Data.Files(i)
       Zieldatei = Zielordner & Mid(Data.Files(i), InstrRev(Data.Files(i), "\") _
         + 1)
       FileCopy Quelldatei, Zieldatei
    Next
  End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.