Sistema de Compara��o

Question

Preciso criar um sisteminha que possa listar para mim todos os arquivos que s�o diferentes de uma pasta e de outra. exemplona pasta �Arquivos� eu tenho 10 arquivo e na pasta �Documentos� eu tenho 20 e...

Rafs · Answer

Utilize as fun��es FindFirst, FindNext e FindClose para ler os nomes dos arquivos.

Veja um exemplo para ler todos os arquivos de um determinado diret�rio:

procedure TForm1.Arquivos(FEndereco: string);
var
  sr: TSearchRec;
begin
  if FindFirst(FEndereco, 0, sr) = 0 then
  begin
    repeat
      ShowMessage(sr.Name);
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

Chame-a assim:

  Arquivos(�D:\*.*�);

Para comparar, crie uma fun��o passando como par�metro o endere�o e o nome do arquivo e verifique se a fun��o FindFirst retorna 0. Se retornar 0, significa que encontrou o arquivo, se retornar outro n�mero diferente de zero, ser� um c�digo de erro.

Silvio · Answer

Beleza cara eu fiz e funcionou. mas pr� ficar melhor como fa�o para o proprio sistema abrir todas as pasta daquele diretorio. ou melhor verificar todos os arquivos constantes na unidade c: dos dois Computadores, acho que assim ficaria melhor.

Rafs · Answer

Fiz algumas mudan�as.Mude a chamada do procedimento de forma que voc� s� passe o diret�rio de busca[code:1:a0540c5747]  Arquivos(�D:�);[/code:1:a0540c5747]Em seguida mude o primeiro par�metro da fun��o FindFirst acrescentando *.* e no segundo par�metro mudando de 0 (zero) para faDirectory, assim trar� os arquivos e diret�rios.[code:1:a0540c5747]FindFirst(FEndereco + �*.*�, faDirectory, sr)[/code:1:a0540c5747]Por fim mude a fun��o para verificar se o que est� armazenado em TSearchRec � um arquivo ou um diret�rio[code:1:a0540c5747]  if FileExists(FEndereco + sr.Name) then    ShowMessage(sr.Name + � � um arquivo�)  else    ShowMessage(sr.Name + � � um diret�rio�)[/code:1:a0540c5747]Assim voc� ter� todos os arquivos e diret�rios do diret�rio selecionado e o controle se o que est� localizado no momento � um arquivo ou diret�rio....

F�rum Sistema de Compara��o #263851