como faço p/ verificar se o arquivo existe no diretorio
23/05/2003
0
Ola p/ quem puder me ajudar !
AssignFile(TXT,´C:\USIProjetos\Prods.TXT´) ;
Associei a variavel TXT ao arquivo Prods.TXT que esta no diretorio
C:\USIProjetos
Pergunta: como faço p/ verificar se o arquivo existe no diretorio ? Se não existir ele retornaria uma mensagem dizendo que não existe.
Obrigado
Edmar
AssignFile(TXT,´C:\USIProjetos\Prods.TXT´) ;
Associei a variavel TXT ao arquivo Prods.TXT que esta no diretorio
C:\USIProjetos
Pergunta: como faço p/ verificar se o arquivo existe no diretorio ? Se não existir ele retornaria uma mensagem dizendo que não existe.
Obrigado
Edmar
Martelato
Curtir tópico
+ 0
Responder
Posts
23/05/2003
Jairroberto
Olá, Edmar!
Você deve fazer esta verificação antes mesmo de usar o AssignFile. Há uma função no Delphi para isso:
Ela está declarada na unit SysUtils. Você pode usá-la da seguinte forma:
Um abraço,
Jair
Você deve fazer esta verificação antes mesmo de usar o AssignFile. Há uma função no Delphi para isso:
function FileExists(const FileName: string): Boolean;
Ela está declarada na unit SysUtils. Você pode usá-la da seguinte forma:
procedure TForm1.Button1Click(Sender: TObject); var NomeArquivo: string; TXT: TextFile; begin NomeArquivo := ´C:\USIProjetos\Prods.TXT´; if not FileExists(NomeArquivo) then raise Exception.CreateFmt(´O arquivo "¬s" não existe!´, [NomeArquivo]); AssignFile(TXT, NomeArquivo); Reset(TXT); // abre o arquivo try // processe o arquivo como desejar finally CloseFile(TXT); // fecha o arquivo end; end;
Um abraço,
Jair
Responder
Clique aqui para fazer login e interagir na Comunidade :)