Ola desenvolvedores.
Estou tentando passar um local definido anteriormente em uma variável para o comando FILEEXISTS e só está retornando como False, mesmo o arquivo em questão estando no local.
Segue função.
function TMenu.LE_TXT(LE_TXT: string): string;
Var LocalArq : string;
begin
LocalArq := Edit_Arquivo_TXT.Text+'\Config.txt';
{ O edit, recebe o endereço do local do arquivo na rede, testei de duas maneiras: }
{ \\Server\f\Sistema\Maquina1 }
{ S:\Sistema\Maquina1 }
if not FileExists(LocalArq) then
Begin
Application.Messagebox('Aquivo de configuração não encontrado ! - Finalizando Aplicação.....','AVISO', mb_ok+MB_ICONSTOP);
Application.Terminate;
{ Ele não retorna o valor True nem quando existe o arquivo }
End
Else
Begin
{ Não entra aqui NUNCA }
End
;
Espero que tenha sido claro e Obrigado pela atenção.
Att: Fabio
Pergunta
FPimentel
Ola desenvolvedores.
Estou tentando passar um local definido anteriormente em uma variável para o comando FILEEXISTS e só está retornando como False, mesmo o arquivo em questão estando no local.
Segue função.
function TMenu.LE_TXT(LE_TXT: string): string;
Var LocalArq : string;
begin
LocalArq := Edit_Arquivo_TXT.Text+'\Config.txt';
{ O edit, recebe o endereço do local do arquivo na rede, testei de duas maneiras: }
{ \\Server\f\Sistema\Maquina1 }
{ S:\Sistema\Maquina1 }
if not FileExists(LocalArq) then
Begin
Application.Messagebox('Aquivo de configuração não encontrado ! - Finalizando Aplicação.....','AVISO', mb_ok+MB_ICONSTOP);
Application.Terminate;
{ Ele não retorna o valor True nem quando existe o arquivo }
End
Else
Begin
{ Não entra aqui NUNCA }
End
;
Espero que tenha sido claro e Obrigado pela atenção.
Att: Fabio
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.