Fehler mit CopyFile?!

[Grolle]

Hallo,
folgender Code kopiert nicht alle Dateien:

Delphi-Quellcode:

          if not (copyfile(PChar(pfad +'\adressen.adt'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\adressen.adt'),false)) and
             not (copyfile(PChar(pfad +'\ab.ini'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\ab.ini'),false)) and
             not (copyfile(PChar(pfad +'\search.ini'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\search.ini'),false)) and
             not (copyfile(PChar(pfad +'\user.ini'),PChar(ExtractFilePath(ParamStr(0))+ '\daten\user.ini'),false)) then
             begin

Wo ist denn da ein Fehler?
Viele Grüße...

[mkinzler]

Welche kopiert er nicht?
Hast du die einzelnen Kopiervorgänge mal unabhängig voneinander ausgeführt?

[Grolle]

Hi, nein einzeln probiert habe ichs noch nicht. Es wird nur die erste Datei kopiert.
//Edit: user.ini (letzter Aufruf) klappt schonmal nicht allein

[Luckie]

Was sagt denn GetLastError?

[Hawkeye219]

Hallo Grolle,

Zitat:

Zitat von Microsoft Platform SDK

If the function succeeds, the return value is nonzero.

Lasse doch einfach mal die NOT-Operatoren weg...

Gruß Hawkeye

[Grolle]

Zitat:

Zitat von Luckie

Was sagt denn GetLastError?

Wird nix angezeigt.

[Sunlight7]

Was heißt nix?

Muß doch mindestens 0 sein, nix geht nicht.

Was steht in der Pfad Variable?
Und ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Edit: Bei ExtractFilePath muß nicht '\daten' geschrieben werden, sonst sinds '\\daten'

[Grolle]

Hi,
habs jetzt nochmal umgeschrieben. Getlasterror sagt: Der Vorgang wurde erfolgreich beendet.
Die Dateien wurden aber nicht kopiert. Hier der relevante Code:

Delphi-Quellcode:

      if SelectDirectory('Bitte Ordner auswählen:', '' ,pfad) then
        begin
          AdsConnection1.IsConnected := false;
          if (copyfile(PChar(pfad +'\adressen.adt'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\adressen.adt'),false)) and
             (copyfile(PChar(pfad +'\ab.ini'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\ab.ini'),false)) and
             (copyfile(PChar(pfad +'\search.ini'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\search.ini'),false)) and
             (copyfile(PChar(pfad +'\user.ini'),PChar(ExtractFilePath(ParamStr(0))+ 'daten\user.ini'),false)) then
            begin
              AdsConnection1.IsConnected := true;
              AdsTable1.Active := true;
              Statusbar1.Panels.Items[1].Text := IntToStr(ADSTable1.recordcount);
              MessageDlg('     Die Wiederherstellung der Datenbank war erfolgreich!     ',mtInformation,[mbOK],0);
            end
          else
            begin
              AdsConnection1.IsConnected := true;
              AdsTable1.Active := true;
              Statusbar1.Panels.Items[1].Text := IntToStr(ADSTable1.recordcount);
              MessageDlg('     Fehler bei der Wiederherstellung der Datenbank!     ',mtError,[mbOK],0);
            end;
        end;

[Sunlight7]

Nochmals:
Ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Kopiert er 1, 2, keine?
Kopiert er sie woanders hin?

Schon geprüft, was in der Pfad Variable steht?

[Grolle]

Zitat:

Zitat von Sunlight7

Nochmals:
Ist die Option "Boolische Ausdrücke Vollständig" eingeschaltet?

Wo finde ich diese Option?