Função FileExists

Delphi

17/07/2003

Senhores !!!


Como faço para verificar se existe um arquivo em um diretório especificado pelo usuário.. A função FILEEXIST pelo que percebi retorna verdadeiro caso encontre somente no diretório onde está a aplicação



Rogério

:arrow: [color=red:649aa7545f]Título alterado pelo Moderador oTTo. Removido: ´URGENTE´.[/color:649aa7545f]
:idea: [color=blue:649aa7545f]Seja mais claro no título.[/color:649aa7545f]
:idea: [color=blue:649aa7545f][url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=16976]Saiba como obter resposta rápida..[/url][/color:649aa7545f]
:idea: [color=blue:649aa7545f]Leia sempre [url=http://delphiforum.icft.com.br/forum/viewtopic.php?t=6689]Regras de Conduta.[/url][/color:649aa7545f]
:idea: [color=blue:649aa7545f]Use sempre o Link [url=http://delphiforum.icft.com.br/forum/search.php][img:649aa7545f]http://delphiforum.icft.com.br/forum/templates/subSilver/images/icon_mini_search.gif[/img:649aa7545f] Pesquisar[/url] no topo da Página.[/color:649aa7545f]
:idea: [color=blue:649aa7545f]Evite usar caixa alta nos títulos.[/color:649aa7545f]


Roger_prog

Roger_prog

Curtidas 0

Melhor post

Bruno Eduardo

Bruno Eduardo

23/10/2016

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
if FileExists(''C:\\''+edit1.Text) then
ShowMessage(''arquivo existe'')
else
ShowMessage(''não existe'');
usando um edit
GOSTEI 1

Mais Respostas

Ageu

Ageu

17/07/2003

If FileExists(´C:\Windows\win.ini´) Then
ShowMessage(´Arquivo existe´);

Pode ainda utilizar um DirectoryListBox1 da paleta Win3.1 para navegar enrtre os diretórios, e combinar com a função FileExists.

Acho que era mais ou menos isso que queria saber.

Ageu


GOSTEI 0
Japa.cp

Japa.cp

17/07/2003

Na função FileExists, é necessário informar o nome completo do arquivo. Isto é, com o caminho inteiro. Por exemplo: C:\teste\arquivo.txt.

Verifique também as funções FindFirst e FindNext.

Senhores !!! Como faço para verificar se existe um arquivo em um diretório especificado pelo usuário.. A função FILEEXIST pelo que percebi retorna verdadeiro caso encontre somente no diretório onde está a aplicação Rogério



GOSTEI 0
Bruno Eduardo

Bruno Eduardo

17/07/2003

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
if FileExists('C:\\'+edit1.Text) then
ShowMessage('arquivo existe')
else
ShowMessage('não existe');
usando um edit
GOSTEI 0
Bruno Eduardo

Bruno Eduardo

17/07/2003

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
if FileExists('C:\\'+edit1.Text) then
ShowMessage('arquivo existe')
else
ShowMessage('não existe');
usando um edit
GOSTEI 0
POSTAR