Удаление содержимого каталога

← →
Марина (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;

Удаление содержимого каталога Найти похожие ветки