Datei verschieben mit Drag+Drop

[IngaD]

Hallo liebe Gambas-Gemeinde.

Ich habe eine kleine Gambas-Anwendung mit TextArea und Button. TextArea ist Drop=True.
In die TextArea "ziehe" ich eine Datei aus einem x-beliebigen Verzeichnis. In der TextArea erscheint der Dateipfad + Dateiname.

Ziel ist es, diese Datei in ein vorgegebenes Verzeichnis über Drag + Drop zu kopieren.

Das Problem: das Zielverzeichnis bleibt leer; eine Fehlermeldung in der IDE sagt, dass die Datei bereits vorhanden ist.

Wie kopiere ich eine x-beliebige Datei in ein x-beliebiges Verzeichnis?

Ich benötige zu diesem sicher trivialen Problen eure Hilfe.

Vielen Dank und Gruß
IngaD

[Bonus]

gambas code

If Exist(sFilePath) Then Kill sFilePath
Copy sDest To sFilePath

Bitte posten Sie den Code, den Sie ausprobieren, damit wir etwaige Fehler erkennen können

[Bonus]

Sie können auch keinen Verzeichnisnamen verwenden, um eine Datei in ein Verzeichnis zu kopieren.

Sie müssen den Dateinamen in den Dateinamen kopieren

[vuott]

Ziel ist es, diese Datei in ein vorgegebenes Verzeichnis über Drag + Drop zu kopieren.

Wie kopiere ich eine x-beliebige Datei in ein x-beliebiges Verzeichnis?

Ich habe nicht verstanden, in welche Control Sie die Datei ziehen wollen, um sie in ein Verzeichnis zu kopieren.

[IngaD]

Hallo Bonus,
Hallo vuott,

erst einmal vielen Dank für ihre Rückmeldungen.
Vielleicht drücke ich mich nicht korrekt aus.

Ich möchte eine Datei XYZ.txt mit dem Pfad "/home/dagmar/Schreibtisch/" per Drag+Drop in ein Verzeichnis "/home/dagmar/Vaults/DokumentenBox/" verschieben.
Per Drag+Drop erhalte ich in einer TextArea den Pfad und den Dateinamen "/home/dagmar/Schreibtisch/XYZ.txt"

Per Button möchte ich die original Datei "/home/dagmar/Schreibtisch/XYZ.txt" in das andere Verzeichnis
"/home/dagmar/Vaults/DokumentenBox/XYZ.txt" verschieben.

In VB.net würde das so gehen:
My.Computer.FileSystem.MoveFile(quelle, ziel, True)
Mein Beispiel:
My.Computer.FileSystem.MoveFile("/home/dagmar/Schreibtisch/XYZ.txt", "/home/dagmar/Vaults/DokumentenBox/XYZ.txt", True)

Wie kann ich eine Dateiverschiebung grundsätzlich realisieren? (Auch ohne Drag+Drop)

Lieber Gruß
IngaD

[Bonus]

gambas code

Public Sub Form_Open()

  TextArea1.Drop = True

End

Public Sub TextArea1_Drop()

' Überprüfen Sie, ob das Drag-Ereignis aus Dateien stammt
  If Not Drag.Formats.Exist("text/uri-list") Then Return

  Dim aFiles As String[] = Drag.Paste("text/uri-list")

  For Each sFile As String In aFiles
    Debug sFile
    Try Copy sFile To User.home &/ File.Name(sFile) ' Versuchen Sie, jede Datei nach User.Home zu kopieren und gegebenenfalls einen Fehler anzuzeigen
    If Error Then Message.Error(sFile & "\n" & Error.Text)
  Next

End

Dies ist wichtig für QT5
Sie MÜSSEN TextArea1.Drop mithilfe der IDE auf False setzen
Setzen Sie es dann mithilfe von Code auf True (siehe meinen Beispielcode).

Wenn Sie dies nicht tun, fügt QT den abgelegten Dateinamen in die TextArea ein und löst kein Drop-Ereignis aus. Um es zu überschreiben, müssen Sie „drop“ in der IDE auf „false“ und mit dem Code auf „true“ setzen.

[Bonus]

Hallo Bonus,
Hallo vuott,


Wie kann ich eine Dateiverschiebung grundsätzlich realisieren? (Auch ohne Drag+Drop)

Lieber Gruß
IngaD

gambas code

Move "/home/dagmar/Desktop/XYZ.txt" To "/home/dagmar/Vaults/DocumentBox/XYZ.txt"

Hinweis: Dateien können nur auf derselben Festplatte verschoben werden. Um die Datei auf eine andere Festplatte zu verschieben, müssen Sie die Datei mit „Copy“ kopieren und dann mit „Kill“ das Original löschen.

[IngaD]

Hallo vuott,
Hallo Bonus,

beide Snippets funktionieren einwandfrei!
Jetzt komme ich deutlich weiter.

Vielen Dank und ein lieber Gruß von
IngaD