INSERIR VALOR NO ARQUIVO.TXT
Pessoal, por favor me deem uma ajuda, o que tem de errado aki:
Dim M As Integer
M = 1 + 1
p = FreeFile()
Open App.Path & "
.Txt" For Input As #n
Print #p, M
Close n
Quando rodo o programa manda uma menssagem assim:
Run-time error '54'
Bad file mode
Eu apenas quero quero que grave as informações em cima do que já havia gravado.
Desde ja agradeço, Alex.
Dim M As Integer
M = 1 + 1
p = FreeFile()
Open App.Path & "
.Txt" For Input As #n
Print #p, M
Close n
Quando rodo o programa manda uma menssagem assim:
Run-time error '54'
Bad file mode
Eu apenas quero quero que grave as informações em cima do que já havia gravado.
Desde ja agradeço, Alex.
Você abriu o arquivo para leitura "For Input" e esta tentando gravar nele !
Troque: Input por Output
Tópico encerrado , respostas não são mais permitidas