datei von einem ordner in anderen ordner kopieren

[shmia]

Für eine Fehlermeldung musst du selbst sorgen:

Delphi-Quellcode:

von, nach: string;
begin
  von := LBmusiktitel.Items[0];
  nach := 'C:\Users\Florian\Desktop\testen\';

  if not Copyfile(PChar(von),PChar(nach), true) then
  begin
    raise EWin32Error.Create(SysErrorMessage(GetLastError)+#13#10+von+' --> '+nach);
  end;

[HofiderKill]

ja ok danke aber ich versteh nicht warum er mir die datei nicht kopiert!! kann mir jemand dabei helfen??
das wär echt net!!

[shmia]

Zitat von HofiderKill:

ja ok danke aber ich versteh nicht warum er mir die datei nicht kopiert!!

Dann rate mal, wozu das SysErrorMessage(GetLastError) dasteht!
Vielleicht sagt Dir das Betriebssystem weshalb es nicht Kopieren mag....

[DeddyH]

Man sollte auch einen Dateinamen für die Zieldatei angeben.

[HofiderKill]

danke!! das war der fehler!!!
wuhuu ihr seits echt die besten! dankeschön

[p80286]

Wenn Du eine Datei kopieren willst,
dann solltest Du den voll qualifizierten Namen der Quelldatei
und
den vollqualifizierten Namen der Zieldatei angeben.

Dann gibt es auch keine Ausreden warum etwas nicht gemacht wurde.
(Es sei denn das Ziellaufwerk\Zielverzeichnis existiert nicht, die Rechte passen nicht ....)

Gruß
K-H

**** zu spät

[HofiderKill]

ok ja klar!
danke
habs eh noch gelesen! danke!

[HofiderKill]

so ich hoffe das ließt noch wer!! Bitte

also es funktioniert wenn ich die datei von der variable von die mein ausgangspfad is in einer showmessage erhalte ich das C:\Users\Florian\Desktop\test\Avril Lavigne - Take me away.mp3 (meine Datei die ich kopieren möchte) nach C:\Users\Florian\Desktop\testen\Avril Lavigne - Take me away.mp3 (der pfad ist als nach abgespeichert) kopiere!
das funktioniert! dann hab ich die datei in dem ordner testen
nur ich will jetzt wie in dem code unten das die datei aber in den passenden ordner Avril Lavigne noch kopiert wird, also nicht nur nach testen sondern C:\Users\Florian\Desktop\testen\Avril Lavigne\Avril Lavigne - Take me away.mp3

Code:

i:integer;
von, nach,m: string;
begin
i:=0;
m:=ListBox1.Items[0];


    von := LBmusiktitel.Items[i];


    nach :=p+ListBox1.Items[i]+'\'+LBSongs.items[i] ;
     showmessage(von);
     showmessage(nach);
copyfile(PChar(von),PChar(nach), true);

nur es funktioniert weder wenn ich es so mach

Code:

nach :=p+ListBox1.Items[i]+'\'+LBSongs.items[i] ;

aber auch nicht wenn ichs so mach

Code:

nach :=p+m+'\'+LBSongs.items[i] ;

sollte ja eigentlich das gleich sein
wenn ich mir das nach in einer message ausgeben lasse erhalte ich folgenden pfad:
C:\Users\Florian\Desktop\testen\Avril Lavigne\Avril Lavigne - Take me away.mp3
jedoch ist dann in diesem ordner keine datei....

weiß jemand wieso?

P.S.: mir ist schon klar das das i unnötig ist! will es aber dann in eine schleife einbauen, deswegen jetzt schon i

[rollstuhlfahrer]

wie schon gesagt: Für die Fehlermeldung bist du selbst verantwortlich: Heißt, zuerst den Rückgabewert von CopyFile auf Erfolg prüfen. Dann bei Nicht-Erfolg den Wert von GetLastError in die Funktion zum Übersetzen schicken und davon das Ergebnis anzeigen lassen. Schon hast du deine Fehlermeldung.

Bernhard