[Resolvido] Mensagem de erro al abre um txt.

[Erich VB 0]

Coloquei o código para abrir um texto direto no Form_Load mas quando ele não encontra o arquivo ele trava. Existe algum código que empeça isto?

 

On Error Resume Next

 

If Err <> 0 Then

Exit Sub

Else

FileName = App.Path & "\texto.txt"

' Abre um arquivo para entrada de informações.

Open FileName For Input As #1

Do While Not EOF(1)

Text3.Text = Input$(LOF(1), 1)

If Err = 62 Then

Exit Sub

End If

Loop

' Fecha o arquivo.

Close #1

End If

[Erich VB 0]

Me sugeriram usar o Dir mas não deu certo.

Usei o FileName dentro do código e não funcionou.

O FileName sempre retorna o mesmo valor.

 

?FileName

C:\Documents and Settings\Erich\Desktop\editor hex\Projeto Personal Trainer\texto.txt

 

Apesar q o arquivo não exista.

 

If Dir(FileName) <> "" Then

MsgBox "Arquivo existe!"

End If

[Erich VB 0]

Resolvi na cambiarra. Usei um IF embaixo do Open. Si o text que recebe o texto ficar vazio é porque deu erro.

 

' Abre um arquivo para entrada de informações.

Open FileName For Input As #1

Do While Not EOF(1)

Text3.Text = Input$(LOF(1), 1)

If Text3.Text = "" Then

MsgBox "Arquivo existe!"

End

 

End If