Black november Você e seu amigo por apenas 49,90 por mês! Saiba mais

verificar se arquivo existe?

02/02/2003

4

como eu faço para verificar se um arquivo existe?


Responder

Posts

02/02/2003

Anonymous

Eu coloquei essa função num botão que quando vc aperta ele verifica se um arquivo existe, se naum existir aparece uma mensagem alertando.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If not(fileexists(´c:\windows\nuvens.bmp´)) then Showmessage(´Arquivo inexistente´);
end;

O código em si é esse

If not(fileexists(´c:\windows\nuvens.bmp´)) then Showmessage(´Arquivo inexistente´);

Esse outro procura um arquivo que tenha seu caminho especificado em uma edit

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If not(fileexists(edit1.text)) then Showmessage(´Arquivo inexistente´);
end;

Caso vc naum tenha o caminho tb existe um código para procurá-lo

procedure TForm1.DirList( ASource : string; ADirList : TStringList );
var
SearchRec : TSearchRec;
Result : integer;
begin
Result := FindFirst( ASource, faAnyFile, SearchRec );
if Result = 0 then
while (Result = 0) do
begin
if (SearchRec.Name+´ ´)[1] = ´.´ then
{ Se pegou nome de SubDiretorio }
begin
Result := FindNext( SearchRec );
Continue;
end;
ADirList.Add( SearchRec.Name );
Result := FindNext( SearchRec );
end;
FindClose( SearchRec );
ADirList.Sort;
end;

utilize assim

procedure TForm1.Button1Click(Sender: TObject);
var
contador: Integer;
lista: TStringlist;
begin
lista:= TStringlist.create;
DirList(´C:\*.*´, lista);
end;

Espero ter ajudado.


Responder

05/02/2003

Dor_poa

RESUMINDO:

If FileEXist(´C:\lixo.txt´) then
Showmessage(´tem´);


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar