Главная страница
    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.44 MB
Время: 0.008 c
1-22049
greenrul
2001-12-17 18:34
2002.01.08
Как


14-22354
Nemesis
2001-10-08 13:02
2002.01.08
Мобила


1-22208
Nikos77
2001-12-15 18:34
2002.01.08
Подскажете как сделать форматирование


1-22096
Mikhalyov Dmitry
2001-12-19 15:55
2002.01.08
О TObject в событиях


1-22155
Art
2001-12-20 16:32
2002.01.08
Ѓлокируем папку!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский