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

Windows, SysUtils, Classes, Masks का उपयोग करता है; प्रक्रिया DeleteFiles (पथ: स्ट्रिंग); वर मुखौटा: स्ट्रिंग; SearchRec: TSearchRec; FindResult: पूर्णांक; सूची: TStringList; i: पूर्णांक; शुरू करना मुखौटा: = ExtractFileName (पथ); यदि मास्क = "" फिर मास्क: = "*। *"; पथ: = ExtractFilePath (पथ); यदि पथ = "" तो पथ: = सम्‍मिलित करेंट्रैकिंगब्लैकलैश (GetCurrentDir); सूची: = TStringList.Create; कोशिश FindResult: = FindFirst (पथ + "*। *", FaAnyFile, SearchRec); कोशिश जबकि FindResult = 0 SearchRec के साथ शुरू करते हैं if ((Attr and faDirectory) = 0) और MatchesMask (नाम, मास्क) तो List.Add (नाम); FindResult: = FindNext (SearchRec); अंत; i: = 0 को List.Count - 1 do DeleteFile (पथ + सूची [i]); अंत में FindClose (SearchRec); अंत; अंत में List.Free; अंत; अंत;



पन्ने: 1 पूरी शाखा

मंच: "मुख्य";
वर्तमान संग्रह: 2002.01.08;
डाउनलोड करें: [xml.tar.bz2];

ऊपर









मेमोरी: 0.81 एमबी
समय: 0.034 c
1-22045
Socol
2001-12-15 17:14
2002.01.08
दर्ज करने के लिए लिखें।


14-22400
चालक दल में कटौती
2001-11-11 17:10
2002.01.08
और सभी सुस्त क्यों हैं?


1-22102
Andrey196
2001-12-19 18:43
2002.01.08
क्यों लोग छवि TIF छवियों को दिखाना नहीं चाहते हैं


3-21908
dup
2001-11-28 13:27
2002.01.08
एप्लिकेशन हैंग हो गया


1-22141
N
2001-12-20 10:04
2002.01.08
सी -> पास्कल: संरचना के अंदर फ़ंक्शन पॉइंटर





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