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.....
