buscar arquivo no diretorio

Question

Bom diaestou fazendo uma busca de um arquivo em um diretorio, ate ai tudo bem estou consguindo so que preciso passar o que esta digitado no edit para a busca e nao esta indoassim da certobusca(C...

Emerson Nascimento · Answer

pra ficar mais f�cil de entender:...

Raimundo Pereira · Answer

Veja se ajuda:
private
{ Private declarations }
Function Search(_Directory, _File,_Extension:String):Boolean;

function TForm1.Search(_Directory, _File, _Extension: String): Boolean;
var _Path:String;
begin
_Path:=_Directory+'\\'+_File+_Extension;
try
if FileExists(_Path) then
begin
Result:=True;
end
else
begin
Result:=False;
end;
Except

on E: Exception do
begin
ShowMessage('Error: ' + E.Message );
Result:=false;
end;
end;

end;

Chamando a fun��o:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Search('C:\\GUESTUS\\NFe\\enviadas',Edit2.Text,'.xml') then
begin
ShowMessage('Existente');
end
else
begin
ShowMessage('Inexistente');
end;

end;

Wellington · Answer

nao deu certovou explicar melhorpreciso buscar o xml que esta dentro de um subdiretorio que seja C:GUESTUSNFeenviadas????depois de enviadas o sistema gera uma pasta para cada mes, entao nao pode exatamente de da pasta enviadadeste jeito ele busca o xml , so que preciso que pegue a chave o xml do dbeditveja com estou fazendofunction TForm1.Busca(const cPath, cFile: String): Boolean;var S: String; nRet: Integer; Search: TSearchRec;begin nRet := FindFirst(cPath+*.*, faAnyFile or faArchive or faDirectory, Search); while nRet = 0 do begin if (Trim(Search.Name) <> .) and (Trim(Search.Name) <> ..) then begin if Search.Attr and faDirectory > 0 then Busca(IncludeTrailingPathDelimiter(cPath+Search.Name), cFile) else if Trim(Search.Name) = cFile then edit1.Text:=(cPath+Search.Name); end; nRet := FindNext(Search); end;chamando a func��obusca(C:GUESTUSNFeenviadas, 31210235603074000105550010000002591080387373-nfe.xml); so que no lugar da chave do xml (31210235603074000105550010000002591080387373-nfe) que neste caso acima ta direto, eu queria buscar o que esta vindo do dbedit.textcomo ficaria neste caso usando o dbedit??...

Raimundo Pereira · Answer

Fa�a um teste usando a fun��o que lhe passei.
_Directory : Pasta Onde est� salvo o arquivo
_File : Poss�vel nome do arquivo , pode vim de um edit ou dbedit, aqui voc� pode debugar e verificar at� se est� sendo carregado
Como voc� est� pegando do dbedit, pode est� havendo algum erro ao passar o parametro est� levando ou nome.
_Extension: Especifica a extens�o
A pr�pria fun��o se encarrega de montar o caminho completo do arquivo.

M�s tenho quase certeza que seu problema esteja relacionado ao dbedit.
Se for muito urgente chama no telegram @oficialrcp

Emerson Nascimento · Answer

O problema dele n�o � a fun��o. A fun��o dele funciona usando passa o par�metros fixos.

Ele quer passar os par�metros de forma din�mica, a partir do conte�do de edit2.

J� dei a dica, mas ele sequer testou.

Wellington · Answer

boa tarde pessoal, me desculpe a demora por responder estava em viajem cheguei hoje deu certo sim a dica do P2, me perdoe a demora foi de muita valia, obrigado a todos...

Wellington · Answer

na verdade o erro estava em repassar o formato do dbedit mesmo...

F�rum buscar arquivo no diretorio #617699