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]

verwendet Windows, SysUtils, Klassen, Masken; Prozedur DeleteFiles (Pfad: Zeichenfolge); var Maske: String; SearchRec: TSearchRec; FindResult: Ganzzahl; Liste: TStringList; i: Integer; beginnen Maske: = ExtractFileName (Pfad); Wenn Mask = "", dann Mask: = "*. *"; Pfad: = ExtractFilePath (Pfad); wenn Pfad = "" dann Pfad: = IncludeTrailingBackslash (GetCurrentDir); List: = TStringList.Create; versuche es FindResult: = FindFirst (Pfad + "*. *", FaAnyFile, SearchRec); versuche es Während FindResult = 0 mit SearchRec beginnen soll if ((Attr und faDirectory) = 0) und MatchesMask (Name, Mask) dann List.Add (Name); FindResult: = FindNext (SearchRec); ende für i: = 0 to List.Count - 1 do DeleteFile (Pfad + Liste [i]); endlich FindClose (SearchRec); ende endlich List.Free; ende ende



Seiten: 1 ganze Branche

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

nach oben









Speicher: 0.81 MB
Zeit: 0.101 c
7-22436
Serg2
2001-09-26 18:23
2002.01.08
Alle Fenster werden geschlossen


3-21960
Alenka
2001-12-05 12:53
2002.01.08
Helfen Sie mir bitte!


1-22063
Kunst
2001-12-18 15:12
2002.01.08
Und Sie können den Zugriff auf den Ordner blockieren, z. B. fmShareExclusive, aber für den Ordner?


14-22332
Noname (Andrews)
2001-11-05 16:20
2002.01.08
Moderator HILFE !!!


1-22022
Sieger
2001-12-18 08:05
2002.01.08
Benötigen Sie ein Etikett, um die Formeln anzuzeigen





Afrikanisch albanisch Arabic Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarian katalanisch Chinesisch (vereinfacht) Chinesische Tradition) kroatisch Tschechisch Dänisch Dutch Englisch estnisch Philippinisch Finnish Französisch
Galicisch Georgisch Deutsch Griechisch haitian Creole hebräisch Hindi ungarisch isländisch Indonesian irisch Italian Japanisch Koreanisch lettisch litauisch Makedonisch Malay Maltesisch Norwegian
persisch Polnisch Portugiesisch rumänisch Russisch serbisch Slovak Slowenisch Spanisch swahili Swedish 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