Directoryexists/delete

[Frage95]

Delphi-Quellcode:

function TInstallationsTool.AllDirectoryExists(const Directory: string): Boolean;
var
   DirArray : Array of string;
   i : integer;
begin
   setlength(dirArray,6);
   DirArray[0] := '\\D:\Watchdog';
   DirArray[1] := '\\D:\WellnessDienst';
   DirArray[2] := '\\D:\MySQL';
   DirArray[3] := '\\D:\Guthabendienst';
   DirArray[4] := '\\D:\Studioservereinrichten';
   DirArray[5] := '\\C:\McFit';
   DirArray[6] := '\\C:\Firewall';

   for I := DirArray[0] to DirArray[6] do
   if DirectoryExists then begin
      DeleteFile();
      Showmessage('Directory existiert');
   end else begin
      Showmessage('directory existiert nicht');
   end;
      SetLength(dirArray,0);
end;

Hey ich habe ein Tool geschrieben, dass per knopfdruck alle nötigen Daten kopiert. Nun möchte ich diese erweitern und zwar
wenn er die Daten kopiert soll er vorher prüfen ob das Verzeichnis bereits existiert wenn ja soll er er löschen und dann das neue draufkopieren.
Funktioniert nicht so wirklich.....:pale:

[jaenicke]

Das kompiliert so doch noch nicht einmal. DirectoryExists braucht z.B. als Parameter den Dateinamen und dass da ein Parameter fehlt, sagt dir der Compiler.

Und was soll der doppelte Backslash vor den Laufwerksbuchstaben?

[baumina]

Zudem löscht man ein Directory mit z.B. RemoveDir.

[himitsu]

Und

Delphi-Quellcode:

\\D:\....

ist doch keine gültige Pfadangabe. :gruebel:
Falls es UNC werden sollte, dann versuch es nochmal richtig.

- zur Code-Syntax sagt dir der Compiler was
- und die Syntax des Pfades sollte in der Windows-Fehlermeldung erwähnt werden

[DeddyH]

Außerdem ist das Array zu klein dimensioniert, das sollte einem die Bereichsprüfung auch melden.

[baumina]

Auch die for-Schleife kann so nicht gehen.

[himitsu]

Stimmt (High und Low).

Und, wenn du noch die Bereichsprüfung in den Projektioprionen anschaltest, dann wird dir gesagt, daß

Delphi-Quellcode:

SetLength(dirArray, 6);

nicht stimmt,
bzw. der Index [6], welchen es nicht gibt.

[Sir Rufo]

Reinventing Wheel Inno Setup

[Frage95]

hmn ja wenn Ihr ja so toll seit schlagt mir halt mal ne lösung vor dass dieser code fehlerhaft ist das weiß ich auch.

[Frage95]

außerdem würde ich gern wissen ob ich überhaupt richtig angesetzt habe.

Oben steht ja was ich machen will, ist dies überhaupt eine vernünftige lösung mit einem array etc..