Tah na mão ...
function ContaArquivo(pPath : String) : Integer;
var
Sr : TSearchRec;
Tipo : Integer;
begin
Memo1.Clear;
Result := 0;
Tipo := faArchive;
if FindFirst(pPath, Tipo, Sr) = 0 then
begin
if (Sr.Attr and Tipo) = Tipo then
begin
Inc(Result);
Memo1.Lines.Add(Sr.Name);
end;
while FindNext(Sr) = 0 do
begin
if (Sr.Attr and Tipo) = Tipo then
begin
Inc(Result);
Memo1.Lines.Add(Sr.Name);
end;
end;
FindClose(Sr);
end;
end;
Eduardo
Eduardo Vinicius Felipe escreveu:
> Amigos,
>
>
> Preciso de uma ajuda para contar o número de arquivos de um
> determinado diretorio baseado na data do dia, por exemplo:
>
> Eu tenho que ter no diretorio 50 arquivos da data (07.08) se eles
> estiverem lá eu os deixo disponíveis para o processamento, mas se
> estiverem faltando arquivos ainda é trazida uma mensagem ao usuário
> perguntando se ele quer copiar os arquivos assim mesmo ou encerrar a
> aplicação até que o restante dos arquivos cheguem.
>
>
>
> Obrigado
> Eduardo Vinicius
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
_______________________________________________________
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular.
Registre seu aparelho agora!
http://br.mobile.yahoo.com/mailalertas/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
