Fórum Função FileExists #169896
17/07/2003
0
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
Curtir tópico
+ 0Post mais votado
23/10/2016
begin
if FileExists(''C:\\''+edit1.Text) then
ShowMessage(''arquivo existe'')
else
ShowMessage(''não existe'');
usando um edit
Bruno Eduardo
Gostei + 1
Mais Posts
17/07/2003
Ageu
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
07/10/2004
Japa.cp
Verifique também as funções FindFirst e FindNext.
Gostei + 0
23/10/2016
Bruno Eduardo
begin
if FileExists('C:\\'+edit1.Text) then
ShowMessage('arquivo existe')
else
ShowMessage('não existe');
usando um edit
Gostei + 0
23/10/2016
Bruno Eduardo
begin
if FileExists('C:\\'+edit1.Text) then
ShowMessage('arquivo existe')
else
ShowMessage('não existe');
usando um edit
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)