Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Видалення вмісту каталогу Знайти схожі гілки


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

Підкажіть, будь ласка, як видалити вміст каталогу, а сам каталог залишити? Потрібно щось на кшталт deletefile ( "c: \ kio \ massiv \ *. *") Заздалегідь вдячна і прошу вибачення за "чайніковскій" питання.



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

if Findfirst ( "\ TEMP \ *. tmp", faAnyFile, SearchRec) = 0 then
while (FindNext (SearchRec) = 0) do
if not deletefile (pchar ( "\ TEMP \" + SearchRec.name)) then
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.55 MB
Час: 0.022 c
4-22476
царство
2001-11-02 19:42
2002.01.08
Допоможіть, UpdateResource не працює з BPL файлами!


1-22234
x000d
2001-12-17 01:34
2002.01.08
Активне, що не активне.


4-22484
TroJan
2001-11-03 19:56
2002.01.08
Як можна завантажити свій курсор в Дельфи!


3-21953
VariK
2001-12-05 15:14
2002.01.08
про Записи


6-22301
Китаєць Що За
2001-10-10 14:45
2002.01.08
Склерозік чи що?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська