Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
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
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