Hey,
ich schreibe grade ein kleines Programm für meine Webgallerien. Zweimal klappt die Operation kopieren, beim dritten mal nicht. Aber ich finde nicht den Fehler. Vielleicht kann mir einer helfen.
Hier der entsprechende Code:
Delphi-Quellcode:
var i:integer;
var Quelldatei, Zieldatei,kind,smalldir,tndir: string;
//------------------
//Origfiles
mkdir(Dir + '\Original Files');
if combobox1.text='Concertphotos' then kind:='G' else kind:='D';
if combobox1.text='Session' then kind:='S' else kind:='D';
if combobox1.text='Other Photos' then kind:='D' else kind:='D';
//Variablen Setzen
smalldir:=Dir + '\' + kind + combobox4.Text + combobox3.Text + combobox2.Text + edit2.Text;
tndir:=Dir + '\' + kind + combobox4.Text + combobox3.Text + combobox2.Text + edit2.Text + '\tn';
//Sized files
mkdir(smalldir);
//Thumbfiles
mkdir(tndir);
//-------------------------------------------------------------
//Kopieren
//Abarbeiten der Files im ordner durch TListbox
for i:=0 to filelistbox1.Count-1 do
begin
//Kopieren in das Verzeihnis für die Sized Images
Quelldatei:=filelistbox1.Items.Strings[i];
Zieldatei:=smalldir+'\'+filelistbox1.Items.Strings[i];
if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');
//Kopieren in das Verzeichnis für Thumb Images
Zieldatei:=tndir+'\'+filelistbox1.Items.Strings[i];
if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');
//Testausgabe des Pfades am Formular: Test erfolgreich, Pfad 100% OK
label8.caption:=Dir + '\Original Files';
//Kopieren in das Verzeichnis Originale Bilder
Zieldatei:=Dir+'\'+'Original Files';
if not CopyFile(PChar(Quelldatei), PChar(Zieldatei), true) then
ShowMessage('Datei "'+Quelldatei+'" konnte nicht kopiert werden!');
//DirectoryListbox Updaten
directorylistbox1.Update;
end;
Vielleicht kann mir ja hier wieder jemand helfen.
Sam