| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
aline_amorim
Aprendiz
Registrado: Sexta-Feira, 8 de Fevereiro de 2008
Mensagens: 265
|
 Enviada: Qua Ago 27, 2008 4:58 pm Assunto: Quantidade de arquivos em uma pasta |
 |
|
Pessoal alguem tem uma funçao para pegar a quantidade de arquivos que tem dentro de uma pasta?Obrigada.
Na verdade eu gostaria de gerar um random com os arquivos dessa pasta.Pegar os arquivos aleatoriamente. Como eu faço isso.Os arquivos sao do tipo html.Obrigada |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Qua Ago 27, 2008 5:20 pm Assunto: |
|
|
esta funcao copia os arquivos de um diretorio para outro. agora so adaptar:
| Código: | procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst('c:\Origem\*.*', faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := 'c:\Origem\' + SR.Name;
Destino := 'c:\Destino\' + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
end; |
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
Wolver
Membro Junior
Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343
|
| Enviada: Qui Ago 28, 2008 10:06 am Assunto: Re: Quantidade de arquivos em uma pasta |
|
|
| aline_amorim escreveu: | Pessoal alguem tem uma funçao para pegar a quantidade de arquivos que tem dentro de uma pasta?Obrigada.
Na verdade eu gostaria de gerar um random com os arquivos dessa pasta.Pegar os arquivos aleatoriamente. Como eu faço isso.Os arquivos sao do tipo html.Obrigada |
aline_amorim
resultado := FindFirst(Path+'\*.txt',faArchive, sr)
este aqui pega a quantidade de arquivos contido no diretório... |
|
| Voltar ao Topo |
|
|
gilsonnrodrigues
Moderador
Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG
|
| Enviada: Qui Ago 28, 2008 12:04 pm Assunto: Re: Quantidade de arquivos em uma pasta |
|
|
| Wolver escreveu: | | aline_amorim escreveu: | Pessoal alguem tem uma funçao para pegar a quantidade de arquivos que tem dentro de uma pasta?Obrigada.
Na verdade eu gostaria de gerar um random com os arquivos dessa pasta.Pegar os arquivos aleatoriamente. Como eu faço isso.Os arquivos sao do tipo html.Obrigada |
aline_amorim
resultado := FindFirst(Path+'\*.txt',faArchive, sr)
este aqui pega a quantidade de arquivos contido no diretório... |
ta certo disso?
trecho do help:
| Citação: | | FindFirst returns 0 if a file was successfully located, otherwise, it returns a Windows error code. |
|
|
| Voltar ao Topo |
|
|
Wolver
Membro Junior
Registrado: Quinta-Feira, 9 de Fevereiro de 2006
Mensagens: 343
|
| Enviada: Qui Ago 28, 2008 12:23 pm Assunto: Re: Quantidade de arquivos em uma pasta |
|
|
| gilsonnrodrigues escreveu: | | Wolver escreveu: | | aline_amorim escreveu: | Pessoal alguem tem uma funçao para pegar a quantidade de arquivos que tem dentro de uma pasta?Obrigada.
Na verdade eu gostaria de gerar um random com os arquivos dessa pasta.Pegar os arquivos aleatoriamente. Como eu faço isso.Os arquivos sao do tipo html.Obrigada |
aline_amorim
resultado := FindFirst(Path+'\*.txt',faArchive, sr)
este aqui pega a quantidade de arquivos contido no diretório... |
ta certo disso?
trecho do help:
| Citação: | | FindFirst returns 0 if a file was successfully located, otherwise, it returns a Windows error code. |
|
ops....error...
este é um exemplo...desculpe...
resultado := FindFirst(PathImportAutomatica+'\*.txt',faArchive, sr);
if resultado = 0 then begin
try
RxTimerEventImporAutomatica.Enabled := false;
while resultado = 0 do begin
ImportacaoAutomatica(PathImportAutomatica+'\'+sr.Name);
if FileExists(PathImportAutomatica+'\'+sr.Name) then
DeleteFile(PathImportAutomatica+'\'+sr.Name);
resultado := FindNext(sr);
end;
finally
FindClose(sr);
RxTimerEventImporAutomatica.Enabled := true;
end;
end; |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
