copyfile erzeugt nur 0-Byte-Dateien

[niederrheiner]

Hallo an Alle,

mit dem folgenden Code möchte ich Dateien von einer Speicherkarte (Bilder) auf die Festplatte in ein Verzeichnis kopieren.

Code: Alles auswählen

if FindFirst (ext_search,faAnyFile,Info) = 0 then
       begin
         repeat
  	   inc(Count);
           CopyFile(quelle,ziel+'/'+Info.Name);
         until FindNext(Info) <> 0;
         findclose(info);
         Showmessage ('FERTIG')
       end;

Die Dateien werden namensmässig richtig kopiert, nur die Länge der Dateien ist 0-Byte.

Wo liegt mein (Denk-)Fehler?
Könnt Ihr mir helfen?

MfG
Günter

[theo]

Schwer zu sagen mit den Variablen Was ist denn "quelle" und "ext_search" ?

[niederrheiner]

ext_search beinhaltet das Suchmuster (*.NEF) und Quelle beinhaltet den Quellpfad unter dem die Dateien zu finden sind. Ziel beinhaltet den Zielpfad unter dem die Datein gespeichert werden sollen. Im Zielpfad werden auch die entsprechenden Dateien angelegt, bis hierhin ist alles OK. Aber die angelegten Dateien haben eine Länge von 0.

[theo]

Aber deine Quelle bleibt ja scheint's konstant in dem Loop. Wo kriegt die denn den jew. Dateinamen her?

Nicht eher so?
CopyFile(quelle+'/'+Info.Name,ziel+'/'+Info.Name);

[DiBo33]

Vielleicht solltest du bei Quelle auch den Dateinamen mit angeben.

[shokwave]

CopyFile() will soweit ich weis PChar. Probier mal

Code: Alles auswählen

CopyFile(PChar(Quelle+'\'+Info.Name),PChar(Ziel+'\'+Info.Name))

Jetzt wo ich's mir noch mal angucke: Hast du einfach nur den Dateinamen der Quelle vergessen?

[Edit] Mist, wieder Letzter.

[niederrheiner]

Die Dateien sind auf einer Speicherkarte im Verzeichnis /media/NIKON D80/DCIM/100NCD80/*.NEF abgespeichert. Die Dateien sollen im Verzeichnis /home/guenter/Bilder/Zollverein/*.NEF abgespeichert werden.

Im Quelverzeichnis steht folgendes

/media/NIKON D80/DCIM/100NCD80/DSC_0001.NEF 9.8 MB Nikon-NEF-Rohbild


Im Zielverzeichnis steht folgendes

/home/guenter/Bilder/Zollverein/DSC_0001.NEF 0 Bytes Nikon-NEF-Rohbild

Offensichtlich hat er alles richtig erkannt, nur, der Inhalt der Datei wurde nicht kopiert, sondern nur ihr Name

MfG
Günter

[DiBo33]

Was soll denn hierbei herauskommen?

Code: Alles auswählen

CopyFile('/media/NIKON D80/DCIM/100NCD80/', '/media/NIKON D80/DCIM/100NCD80/DSC_0001.NEF');

Zum 4. mal, dir fehlt der Dateiname In Quelle

[niederrheiner]

hatte irgendwie Tomaten auf den Augen, jetzt klappt es auch mit dem Nachbarn

Danke an alle die mir geantwortet haben
MfG
Günter