Man, machs doch nicht so kompliziert. Du hast den Dateipfad, also kannst Du die Datei doch auch kopieren.
Hast Du den Pfad, kannst Du mit der Datei alles machen.
VB.NET-Quellcode
- Public Class Form1
- Private _outputPath As String = Application.StartupPath
- Private Sub Panel1_DragEnter(sender As Object, e As DragEventArgs) Handles Panel1.DragEnter
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then
- e.Effect = DragDropEffects.All
- End If
- End Sub
- Private Sub Panel1_DragDrop(sender As Object, e As DragEventArgs) Handles Panel1.DragDrop
- Dim droppedFiles() As String = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
- For Each file As String In droppedFiles
- Dim fI As New IO.FileInfo(file)
- Dim target As String = IO.Path.Combine(_outputPath, fI.Name)
- If Not IO.File.Exists(target) Then
- fI.CopyTo(target)
- Else
- MessageBox.Show("Diese Datei ist schon vorhanden")
- End If
- Next
- End Sub
- End Class
Hast Du den Pfad, kannst Du mit der Datei alles machen.
Die Unendlichkeit ist weit. Vor allem gegen Ende.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.
Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken.