Gravando Texto No Arquivo.txt

[alexdureggae]

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 & "\n.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 já agradeço, Alex.

[Bicicleta]

kara, sou iniciante em VB também, mais tente trocar essa linha:

Open App.Path & "\n.Txt" For Input As #n

por esta:

Open App.Path & "\n.Txt" For Input As #1

[Graymalkin]

Repare aqui:

p = FreeFile() 'Atribui um número de arquivo disponível à p

Open App.Path & "\n.Txt" For Input As #n 'Abre o arquivo como número n (de onde veio o "n"?)

Print #p, M 'Escreve o conteúdo de M no arquivo de número p

Ou seja, no lugar daquele "n" deveria ser "p".

Abraços,

Graymalkin

[alexdureggae]

Pessoal resolvi meu problema, não era o n pelo p, era o seguinte:

se quer gravar informações em um arquivo.txt subescrevendo o que já esta escrito, é dessa forma:

Texto = "Informaçoões que quer gravar"

N = FreeFile()

Open App.Path & "\Arquivo.txt" For Output As #N 'troquei o Input por Output

Print #N, Texto

Close N

Caso alguém precise, esta ai!!!!

Obrigado a todos que de alguma forma tentaram ajudar (Bicicleta, Graymalkin).

Paz a todos,

Alex.

[William Rodrigues]

Pessoal resolvi meu problema, não era o n pelo p

N = FreeFile()

Open App.Path & "\Arquivo.txt" For Output As #N

Mas...

Que bom que tenha conseguido cara...

Continue assim

Abraços,

William Rodrigues