בית
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]

משתמש בחלונות, SysUtils, שיעורים, מסכות; הליך DeleteFiles (נתיב: מחרוזת); var מסכה: מחרוזת; SearchRec: TSearchRec; FindResult: מספר שלם; רשימה: TStringList; i: מספר שלם; התחל מסכה: = ExtractFileName (נתיב); אם מסכה = "" אז מסכה: = "*. *"; נתיב: = ExtractFilePath (נתיב); אם נתיב = "" אז נתיב: = IncludeTrailingBackslash (GetCurrentDir); רשימה: = TStringList.Create; נסה FindResult: = FindFirst (נתיב + "*. *", FaAnyFile, SearchRec); נסה בעוד FindResult = 0 מתחילים לעשות עם SearchRec אם ((Attr ו- faDirectory) = 0) ו- MatchesMask (שם, מסכה) אז רשימה. הוסף (שם); FindResult: = FindNext (SearchRec); סוף; עבור i: = 0 לרשימה. מספר - 1 do DeleteFile (נתיב + רשימה [i]); סוף סוף FindClose (SearchRec); סוף; סוף סוף רשימה. חינם; סוף; סוף;



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

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

למעלה









זיכרון: 0.55 MB
זמן: 0.022 c
1-22077
אמנות
2001-12-18 17:19
2002.01.08
שאלה ל pascalshchik ???


7-22418
מיקל
2001-09-20 09:06
2002.01.08
בדחיפות! Comp במקום המדפסת.


1-22025
- = DeD = -
2001-12-18 11:20
2002.01.08
התקנת ActiveX


3-21983
ויקטור
2001-12-06 13:13
2002.01.08
מספר סידורי בדלפי 6


6-22314
SDS
2001-06-10 23:58
2002.01.08
שאלה לגבי שיטת POST





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