Fórum Iniciante - Contar arquivos no diretorio #326961
07/08/2006
0
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
Curtir tópico
+ 0
Responder
Posts
08/08/2006
Night_man
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)