Nach Hause
Top.Mail.Ru Yandeks.Metrika
Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

Nach unten

Verzeichnisinhalt löschen Finden Sie ähnliche Zweige


Марина   (2001-12-20 15:42) [0]

Können Sie mir bitte sagen, wie Sie den Inhalt des Verzeichnisses löschen und das Verzeichnis selbst verlassen können? Sie brauchen so etwas wie deletefile ("c: \ kio \ massiv \ *. *"). Vielen Dank im Voraus und ich entschuldige mich für die "Dummy" -Frage.



gek   (2001-12-20 15:47) [1]

wenn findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 ist
while (FindNext (SearchRec) = 0) erledigen
wenn nicht deletefile (pchar ("\ TEMP \" + SearchRec.name)), dann
Anwendung.Terminate;
FindClose (SearchRec);



Dimka Maslov   (2001-12-20 16:05) [2]

uses Windows, SysUtils, Classes, Masks;

procedure DeleteFiles(Path: string);
var
Mask: string;
SearchRec: TSearchRec;
FindResult: Integer;
List: TStringList;
i: Integer;
begin
Mask:=ExtractFileName(Path);
if Mask = "" then Mask:="*.*";
Path:=ExtractFilePath(Path);
if Path = "" then Path:=IncludeTrailingBackslash(GetCurrentDir);
List:=TStringList.Create;
try
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if ((Attr and faDirectory) = 0) and MatchesMask(Name, Mask) then
List.Add(Name);
FindResult:=FindNext(SearchRec);
end;
for i:=0 to List.Count - 1 do DeleteFile(Path+List[i]);
finally
FindClose(SearchRec);
end;
finally
List.Free;
end;
end;



Seiten: 1 ganze Branche

Forum: "Haupt";
Aktuelles Archiv: 2002.01.08;
Herunterladen: [xml.tar.bz2];

nach oben





Speicher: 0.54 MB
Zeit: 0.022 c
1-22101
DenKop
2001-12-18 14:38
2002.01.08
Hilfe erstellen s


1-22035
Schmuggler
2001-12-18 14:02
2002.01.08
Texteditor2


4-22457
Zabl
2001-11-01 13:15
2002.01.08
Problem mit der DLL


1-22009
oomneeq
2001-12-14 21:26
2002.01.08
Zirkuläre Klassenreferenz


1-22206
T2
2001-12-16 07:11
2002.01.08
Feld ausrichten





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesisch (traditionell) kroatisch Tschechisch Dänisch Niederländisch Englisch estnisch Philippinisch Finnisch Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole Hebräisch Hindi ungarisch isländisch Indonesian irisch Italienisch Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegisch
persisch Polnisch Portugiesisch Rumänisch Russisch serbisch Slovakisch Slowenisch Spanisch Suaheli Schwedisch Thai Türkisch Ukrainisch Urdu Vietnamesisch Walisisch Jiddisch Bengalisch Bosnisch
cebuano Esperanto Gujarati Hausa Hmong igbo Javanisch kannada Khmer Laotisch Lateinisch Maorisch Marathi Mongolisch nepali Pandschabi Somalisch Tamilisch Telugu Yoruba
Zulu
Английский Französisch Deutsch Italienisch Португальский Russisch Spanisch