בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למטה

מחיקת תוכן הספרייה מצא סניפים דומים


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

האם תוכל בבקשה לומר לי כיצד למחוק את תוכן הספריה ולעזוב את הספרייה עצמה? אתה צריך משהו כמו מחיקת קבצים ("c: \ kio \ massiv \ *. *") תודה מראש ואני מתנצל על שאלת "התה".



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

אם Findfirst ("\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 ואז
ואילו (FindNext (SearchRec) = 0) עושים זאת
אם לא מוחק קובץ (pchar ("\ TEMP \" + SearchRec.name))
Application.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;



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה





זיכרון: 0.54 MB
זמן: 0.02 c
14-22335
Сергей1
2001-11-05 21:44
2002.01.08
קלט תו


14-22363
צפוף
2001-11-02 18:16
2002.01.08
אז ...?


1-21999
פיל
2001-12-15 02:02
2002.01.08
C ++ או דלפי


3-21951
אולבן
2001-12-05 11:07
2002.01.08
השתמש ב QuantumGrid


3-21980
אלכסנדר
2001-12-05 13:26
2002.01.08
כיצד ליצור מחרוזת חיבור TADOConnection בתוכנית?





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский