घर
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]

अगर फाइंडफर्स्ट ("\ TEMP \ *। tmp", faAnyFile, SearchRec) = तो XUMUM
जबकि (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 एमबी
समय: 0.024 c
1-22245
T2
2001-12-16 07:12
2002.01.08
गोस्ट और सर्वश्रेष्ठ क्रिप्ट


14-22349
इवान शिखर
2001-11-06 21:48
2002.01.08
अनातोली पॉडगोरटस्की को


14-22339
चीनी हाउ ज़ो वुत
2001-11-01 10:12
2002.01.08
प्रोग्रामर, आपका नाम क्या है?


1-22178
अनास्तासिया
2001-12-15 21:38
2002.01.08
जानकारी चाहिए!


3-21938
गॉर्डोन
2001-12-04 18:19
2002.01.08
Win5 सर्वर के साथ IB2000 कैसे सेट करें





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский