RUN TIME ERROR 62 : INPUT PAST END OF FILE?
Olá, boa tarde a todos 
Estou usando o seguinte código, mas de vez enquando da-me erro 66?
dim valor1 as string
[txt-size=2]Open [Ô]C:\dado.txt[Ô] For Input as #1
Input #1, valor1
Close #1[/txt-size]
Esse ficheiro é usado por outro programa tambem visual basic 6, mas esse só grava no ficheiro, enquanto este só faz leitura e dá esse erro?
alguem me pode ajudar?
Estou usando o seguinte código, mas de vez enquando da-me erro 66?
dim valor1 as string
[txt-size=2]Open [Ô]C:\dado.txt[Ô] For Input as #1
Input #1, valor1
Close #1[/txt-size]
Esse ficheiro é usado por outro programa tambem visual basic 6, mas esse só grava no ficheiro, enquanto este só faz leitura e dá esse erro?
alguem me pode ajudar?
Verifique se o ficheiro tem algum conteúdo...
sim tem 
, ele guarda a hora e data!!!!!
O problema é na função Input #1, valor1 as vezes vem vazio ou seja input #1, [Ô][Ô] e devia traze input #1, [Ô]18:00:01[Ô]
Ja pensei em usar EOF
, ele guarda a hora e data!!!!!O problema é na função Input #1, valor1 as vezes vem vazio ou seja input #1, [Ô][Ô] e devia traze input #1, [Ô]18:00:01[Ô]
Ja pensei em usar EOF
Tenta isso :
Open [Ô]C:\dado.txt[Ô] For Input as #1
valor1 = Input (LOF(1),#1)
Close #1
funcionou impecavelmente
Obrigado pela dica
Obrigado pela dica
Tópico encerrado , respostas não são mais permitidas