Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.019 c
4-22512           Yaroslav              2001-10-31 13:17  2002.01.08  
Как на АПИ создать всплывающее меню (popup)


3-21924           Андрей                2001-12-04 14:37  2002.01.08  
DbLookUpComboBox


1-22018           DelphiG               2001-12-18 01:51  2002.01.08  
Печать текста из Memo! У меня что то не так....


3-21967           SklifF                2001-12-05 11:32  2002.01.08  
про SQL


1-22051           kay                   2001-12-18 22:22  2002.01.08  
RichEdit