Kopieren klappt erst und dann wieder nicht - Fehlersuche

[Sam Razr]

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

[Christian Seehase]

Moin Sam,

der dritte Parameter von CopyFile heisst FailIfExists, und der steht bei Dir auf true.

BTW:
Such' hier mal nach SHFileOperation.
Damit kann man auch kopieren, u.a. auch die Sicherheitseinstellungen, die bei CopyFile nicht mit kopiert werden.
Es gibt auch einen Eintrag dazu in der Code-Lib.
Ausserdem kann man damit auch mehrere Dateien auf einmal kopieren, so dass Du keine Schleife benötigst.

[Sam Razr]

Alles klar, danke. Ich werd mal rumsehen!

Sam

[thkerkmann]

Hi,

und was ist das da ?

Delphi-Quellcode:

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';

da kommt doch immer bei kind nur ein D raus. Wozu soll das also gut sein ?

Delphi-Quellcode:

  if combobox1.text='Concertphotos' then kind:='G' 
  else if combobox1.text='Session' then kind:='S' 
  else if combobox1.text='Other Photos' then kind:='D' 
  else kind:='D';

wäre wohl besser geeignet.

Gruss

[DeddyH]

Die letzte Abfrage kannst Du Dir komplett sparen.

[mkinzler]

Dann ist aber auch diese Zeile unnötig
else if combobox1.text='Other Photos' then kind:='D'