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.55 MB
Zeit: 0.022 c
3-21941
jin
2001-11-30 14:56
2002.01.08
Bitte erstellen Sie eine IB SQL-Prozedur aus der Anwendung


14-22322
Dicht
2001-11-03 14:10
2002.01.08
Wer wird das tun Es ist für alle nützlich.


1-22118
vlv
2001-12-19 21:59
2002.01.08
Komponenten


14-22415
Nassnase
2001-11-12 06:42
2002.01.08
Themen für WinXP


14-22406
VEG
2001-11-10 12:56
2002.01.08
Es ist hier bei mir anders passiert ...





Afrikanisch Albanien Arabisch Armenisch Aserbaidschanisch Baskisch Weißrusse Bulgarisch katalanisch Chinesisch (vereinfacht) Chinesische Tradition) 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 Italian 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