Mit MoveFile/MoveFileex Dateien verschieben

[Litti76]

Hallo, da ich in diesem Forum und in der Programmiersprache ein Anfänger bin, habe ich folgende Frage zu meinem Programm.
Ich möchte die Ausgewählten Dateien mit dem Button1 perOnClick in die Ausgewählte Zieldatei verschieben.
Dazu benötige ich dringend eure Hilfe. Was muss ich da genau machen???

[semo]

hausaufgaben lösen wir hier nicht.
wobei hast du denn genau probleme?
ein bisschen eigenleistung würden wir ja schon gern sehen...

[Litti76]

Ich habe noch nicht so die Ahnung vom Programmieren, deshalb frage ich ja nach.

Ich weiss nicht wie ich das miteinander verknüpfen soll. Habe etwas von MoveFile gelesen doch kann ich mir nicht vorstellen, wie ich es hinbekomme

[rollstuhlfahrer]

HI,

dein Problem bei CopyFile kann ich nicht so recht verstehen.

Delphi-Quellcode:

function CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): bool;

in ExistingFileName muss die vorhanden Datei eingetragen werden, in NewFileName eben die neue. der rest sollte sich dann von selbst erklären. Wie TypeCasting von String vach PCHar geht, wurde schon oft genug diskutiert.

rollstuhlfahrer

EDIT: bei moveFile ist das genauso

[Litti76]

ja deshalb Frage ich hier ja nach um nach erfahrenen Leuten zu suchen die mir helfen.

mir nützt das nicht viel wenn man nur einen kleinen Teil hinschreibt, mit dem ich nichts anfangen kann.
Da ich es mir selber beibringe und seit heute morgen um 9 hier sitze und lese, denke ich das es doch sehrwohl viel eigenleistung ist ok.

Ich möchte eigentlich auch nur wissen, wie ich es hinbekomme, die Ordner/Dateien in das Ausgewähle Zielverzeichniss per Click Button1 hinzu kopieren

[Litti76]

Hallo, ich suche immernoch nach einer Lösung und Hoffe auf eure Hilfe

[Andreas L.]

Du musst im ButtonClick die Funktion MoveFile aufrufen (siehe Beispiel von oben). Wie du die ausgewählte Datei einer FileListView (so heißt das Ding das du verwendest doch, oder) kannst du der Delphi-Hilfe entnehmen. (Komponente anklicken, F1 drücken, in der Hilfe Eigenschaften und Methoden durchschauen.

Schöne Grüße,
Andy

[Litti76]

Das was ich Nutze ist eine DriveComboBox/DirectoryListBox/FileListBox/FilterComboBox.

Wo finde ich im oi MoveFile

[rollstuhlfahrer]

Zitat:

Zitat von Litti76

Das was ich Nutze ist eine DriveComboBox/DirectoryListBox/FileListBox/FilterComboBox.

Wo finde ich im oi MoveFile

ähm, MoveFile ist eine WinAPI-Funktion. Die taucht nicht im OI auf. Doppelclick auf Button, dann im Quellcode:

Delphi-Quellcode:

MoveFile(FileAlt, FileNeu, true OR false);

Wie du deine Parameter von String (du solltest wissen, wo du sie herbekommst, nämlich FileListBox) nach PChar / PAnsiChar castest, steht hier.

rollstuhlfahrer

[semo]

du musst du von hand einfügen...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  movefile(PCHar('C:\test1.txt'), PCHar(C:\test2.txt));
end;

[Litti76]

Ersteinmal danke an alle.

Komme aber gerade nicht weiter. wenn ich eine Datei verschieben will wandelt er sie um in eine psd Datei.

Mein Syntax sieht bis jetzt so aus:

procedure TForm1.Button1Click(Sender: TObject);

begin
movefile (PCHar(FileListBox1.FileName) , PCHar(DirectoryListBox2.));

end;

Es fehlt wohl nur eine Kleinigkeit. Hoffe ich

[Litti76]

es fehlt mir nur noch eine winzigkeit, bitte um hilfe. er verschiebt es nicht warum nicht??????

procedure TForm1.Button1Click(Sender: TObject);
var
Start : String;
Ziel : String;
begin
Start := ((directoryListbox1.items[directorylistbox1.itemindex])+(FileListBox1.items[FileListBox1.itemindex]));
Ziel := (directoryListbox2.items[directorylistbox2.itemindex]);
Memo1.seltext := (Ziel) ;
MoveFile(PChar(Start),PCHar(Ziel));

end;

[semo]

so sollte es klappen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Start: string;
  Ziel : string;
begin
  Start := IncludeTrailingPathDelimiter(FileListBox1.Directory) + FileListBox1.items[FileListBox1.itemindex];
  Ziel  := IncludeTrailingPathDelimiter(FileListBox2.Directory) + FileListBox1.items[FileListBox1.itemindex];
  MoveFile(PChar(Start), PChar(Ziel));
end;

Hinweis 1: du musst den kompletten PFad zur Datei angeben, nicht nur den Ordnernamen.
Hinweis 2: Du kannst dir Haltepunkte setzen und dir den Wert der aktuellen Variablen zur Laufzeit anzeigen lassen. Siehe Debugging

[Litti76]

Vielen Dank, es hat geklappt.
Also wie gesagt Danke.