Curinga para procurar arquivos

Question

Tenho em um diret�rio, um arquivo que s� � conhecida a sua extens�o. Como fa�opara obter o arquivo ou o nome dele, passano o diret�rio e a extens�o ou s� o diret�rio?Para cada computador, haver� um ar...

Antseralves · Answer

Voc� pode usar as fun��es FindFirst,FinsNext do Delphi pra isso.Veja no HELP....

Paulo · Answer

Colega, acho q vc n�o entendeu a pergunta. Eu preciso carregar de um diret�rio, uma arquivo que n�o sei o nome, mas sei a extens�o. Digamos assim: No meu diret�rio eu tenho um arquivo assim:
C:\Teste\tt.mfd. Como eu n�o sei o nome do arquivo(tt) mas sei a extens�o, preciso carregar na minha fun��o esse arquivo como par�metro, algo tipo assim:

CarregaArquivo(1,Path_do_arquivo_e_nome_c_extens�o,0);

Isto �Path_do_arquivo_e_nome_c_extens�o� � o meu arquivo. Para saber um diret�rio e o arquivo tal, eu uso FileExists(), mas isso eu teria que informar o nome do arquivo e extens�o. Quero quase isso, exceto o nome do arquivo, tipo *.MFD. Esse curinga �*.� � que eu quero implementar.

Antseralves · Answer

� isso a�. A fun��o FindFirst pode seu usada para pegar o primeiro
arquivo de uma pasta qualquer que tenha o nome (ou extens�o)
informado. Por exemplo *.MFD. A� voc� pode pegar o nome desse
arquivo encontrado e fazer o que quiser com ele. Depois voc� poder�
usar o FindNext para pesquisar se existem mais arquivos com a mesma
extens�o. No fim n�o esquecer de dar um FindClose. Tem tudo no HELP
do Delphi.

Paulo · Answer

O que eu passo no parametro TSearchRec dessa fun��o? J� tentei, 0,1,faAnyFile e sempre d� erro....

Antseralves · Answer

Abra uma nova aplica��o e coloque no form um TButton, um
TDirectoryOutline (Samples) e um TListBox.

No click do bot�o escreva.

[b:266470fadf]
procedure TForm1.Button1Click(Sender: TObject);

var S : TSearchRec;
Pasta : string;

begin
ListBox1.Clear;
ShowMessage(DirectoryOutline1.Directory);
if FindFirst(DirectoryOutline1.Directory+�\*.*�,faAnyFile,S) = 0 then
repeat
ListBox1.Items.Add(S.Name);
until FindNext(S) <> 0;
FindClose(S);
end;[/b:266470fadf]

Isso exibir� no ListBox todos os arquivos (*.*) da pasta selecionada no
DirectoryOutline.

Antseralves · Answer

Obs: O ShowMessage n�o � necess�rio......

Paulo · Answer

Acho que n�o estou me fazendo entender. N�o � isso que eu quero, mas agrade�o de antem�o. Vou explicar melhor minha d�vida.
Preciso passar por par�metro de uma fun��o, um determinado arquivo. Hoje em teste passo assim:

SWEDA_ReproduzirFitaDetalhe(PathOrig,PathDest,dtIni.Text,dtFim.Text,0)

Onde:PathOrig >> Diretorio + Arquivo Bin�rio
PathDest >> Diretorio + Arquivo.TXT
os demais s�o data e um valor default da SWEDA
No PathOrig, eu carrego assim:

PathOrig := C:\Sweda\SW010500000000000232\SW010500000000000300.MFD�

Este carregamento do arquivo bin�rio, � que eu n�o posso setar na m�o, como fiz acima, pois para cada ECF ele ter� um nome diferente(Numero de Serie do ECF). Ent�o, preciso fazer uma busca na pasta SWEDA(Ela � fixa), e achar o arquivo bin�rio e carregar no meu par�metro da fun��o ou numa vari�vel. No meu exemplo eu carrego na m�o, pois estou testando ainda, mas preciso colocar em produ��o.

Antseralves · Answer

Usando a sua rotina...procedure TForm1.Button1Click(Sender: TObject); var S : TSearchRec; PathOrigem,PathDestino : string; beginPathOrig := C:SwedaSW010500000000000232�;PathDestino := ��;// O FindFirst abaixo pega o PRIMEIRO arquivo com extens�o .MDF// que est� na pasta �C:SwedaSW010500000000000232 // Estou supondo que pode haver mais de um !if FindFirst(PathOrigem+�*.MDF�,faAnyFile,S) = 0 then repeat // Se encontrou ent�o o nome do arquivo // encontrado (SW010500000000000300.MFD por exemplo) // estar� Em S.Name. Chama a fun��o com o nome encontrado.SWEDA_ReproduzirFitaDetalhe (PathOrig+�S.Name�,PathDest,dtIni.Text,dtFim.Text,0);until FindNext(S) <> 0; // Verifica se existe mais algum arquivo// com extens�o .MDFFindClose(S); // No final d� o FindCloseend;Desculpe se continuo n�o entendendo mas pelo menos tentei !!...

Antseralves · Answer

Em tempo... se voc� n�o sabe o nome das subpastas de Sweda
ent�o faz primeiro uma pesquisa para pegar as subpastas
e ent�o chama uma rotina que trata s� os arquivos das mesmas.

procedure TForm1.Button1Click(Sender: TObject);

var S : TSearchRec;
PathOrigem : string;

begin
PathOrig := C:\Sweda�;
// Aqui s� vai procurar as pastas de Sweda
if FindFirst(PathOrigem+�\*.*�,faDirectory,S) = 0 then
repeat

// Se tem pasta ent�o vai pesquisar os
// arquivos .MDF da mesma

ProcuraNaPasta(PathOrigem+�\�+S.Name);
until FindNext(S) <> 0;
FindClose(S);
end;

procedure TForm1.ProcuraNaPasta(Pasta: string);

var S : TSearchRec;
PathDestino : string;

begin
PathDestino := �<nome da pasta destino>�;

// O FindFirst abaixo pega o PRIMEIRO arquivo com extens�o .MDF
// que est� na pasta �C:\Sweda\<nome da subpasta>
// Estou supondo que pode haver mais de um !

if FindFirst(PathOrigem+�\*.MDF�,faAnyFile,S) = 0 then
repeat

// Se encontrou ent�o o nome do arquivo
// encontrado (SW010500000000000300.MFD por exemplo)
// estar� Em S.Name. Chama a fun��o com o nome encontrado.

SWEDA_ReproduzirFitaDetalhe(PathOrig+�\S.Name�,PathDest,dtIni.Text,dtFim.Text,0);

until FindNext(S) <> 0; // Verifica se existe mais algum arquivo com extens�o .MDF

FindClose(S); // No final d� o FindClose
end;

Paulo · Answer

Ok, antseralves, acho que entendi trabalhar o FindFirst. Vou fazer assim, e posto o resultado aqui. Valeu pela paci�ncia e disponibilidade. Valeu mesmo!!!...

Paulo · Answer

Resolvi dessa forma. Claro agora vou melhorar isso a�, mas est� funcionando como eu gostaria.

var S : TSearchRec; PathMatriz, PathOrigem, PathDestino: string; ListaDir: TStringList; begin ListaDir := TStringList.Create; PathMatriz := �C:\Sweda�; PathDestino := �C:\Sistema\Teste.txt�; if FindFirst(PathMatriz+�\*.*�,faDirectory,s) = 0 then repeat if ((s.Attr and faDirectory)<>0) and (s.Name<>�.�) and (s.Name<>�..�) then ListaDir.Add(s.Name); until FindNext(s) <> 0; FindClose(s); PathOrigem := PathMatriz + �\� + s.name+ �\�; if FindFirst(PathOrigem+�\*.MFD�,faAnyFile,s) = 0 then PathOrigem := PathOrigem + s.name; FindClose(s); if (dtIni.Text <> � / / �)and(dtFim.Text <> � / / �) then SWEDA_ReproduzirFitaDetalhe(PathOrigem,PathDestino,dtIni.Text,dtFim.Text,0) else MessageDlg(�Data Inv�lida ou Vazia�,mtInformation,[mbOk],0); end;

Paulo · Answer

Encontrei a cura, mas tem uma quest�o: Caso no Dir m�e Sweda houver mais de um diret�rio, o que eu fa�o? O Arquivo ele vai estar somente em um diret�rio criado pelo ECF. J� tentei buscar o arquivo, passando somente o Dir m�e, mas n�o me trouxe nada. Talvez eu n�o soube fazer certo.