Iniciante - Contar arquivos no diretorio
Olá,
Pessoal, como eu conto quantos arquivos de uma determinada data tem dentro de um diretorio? Informo também que nesse diretorio tem vários arquivos de outras datas.
Alguém pode me ajudar com o código?
Valeu
WatchDogCWB 8)
Pessoal, como eu conto quantos arquivos de uma determinada data tem dentro de um diretorio? Informo também que nesse diretorio tem vários arquivos de outras datas.
Alguém pode me ajudar com o código?
Valeu
WatchDogCWB 8)
Watchdogcwb
Curtidas 0
Respostas
Night_man
07/08/2006
exprimenta essa!!
function ArquivosNaPasta(const AFolder: String; const AData: TDateTime): Integer;
var
SearchRec: TSearchRec;
begin
Result := 0;
if (FindFirst(AFolder + ´*.*´, faAnyFile, SearchRec) = 0) then
begin
repeat
if (SearchRec.Name <> ´.´) and
(SearchRec.Name <> ´..´) and
((SearchRec.Attr and faDirectory) = 0) and
(FileDateToDateTime(SearchRec.Time), AData)) then
Inc(Result);
until (FindNext(SearchRec) <> 0);
FindClose(SearchRec);
end;
end;
function ArquivosNaPasta(const AFolder: String; const AData: TDateTime): Integer;
var
SearchRec: TSearchRec;
begin
Result := 0;
if (FindFirst(AFolder + ´*.*´, faAnyFile, SearchRec) = 0) then
begin
repeat
if (SearchRec.Name <> ´.´) and
(SearchRec.Name <> ´..´) and
((SearchRec.Attr and faDirectory) = 0) and
(FileDateToDateTime(SearchRec.Time), AData)) then
Inc(Result);
until (FindNext(SearchRec) <> 0);
FindClose(SearchRec);
end;
end;
GOSTEI 0