Um Programa Pra Salvar Texto Num Arquivo Txt

[Luiz_Junior]

Bem acho que o tópico já diz não é?...

Só quero um programa com uma área pra eu escrever e um botão pra salvar aquele texto em um arquivo.txt só isso...

[Brwnno]

ish rapaz... eu esqueci...

eu sei que tinha algo parecido com...

primeiro vá em project e vá em references... ai tu marca "Microsoft Scripting Runtime"

Dim fso As New FileSystemObject
Dim arq As TextStream

Private Sub Form_Load()
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set arq = fso.OpenTextFile("nome_do_arquivo.extensao", ForReading, True) /*aqui no lugar de forReading pode colocar ForWriting para escrever no arquivo, e existem outros valores que esqueci */
    
    arq.write("escreve essa string no arquivo")

end sub

private sub Command1_Click() /* isso aqui seria quando clickasse no botão */
    arq.write(text1.text) /* escreve o texto do objeto text1, caso não seja esse o nome do objeto, bote o nome que escolheu em sua aplicação */
end sub

é mais ou menos isso ai fio... boa sorte... se eu lembrasse melhor eu ajudaria melhor ;)

Editado Maio 23, 2007 por Brwnno

[Luiz_Junior]

aew valeu eu consegui montar aqui =D

Mas tipo agora eu queria ler o que foi escrito para uma textbox, entende?

Quero ler o que foi escrito no arquivo e esse texto lido aparecer numa textbox.

Eu tentei aqui usando o comando read da mesmo forma que o write mas n consegui, por tanto se puder me ajudar ficaria agradecido =)

Vlw...

[kuroi]

acho que seria tipo:

Text1.Text = arq.ReadAll

[Diogovb6]

No VB6

'Salvar

Dim DirFile As String

DirFile = "C:\My File.txt"

Open DirFile For Output As #1

Print #1, "Meu arquivo de texto"

Close #1

'-------------------------------------------

'Abrir

Dim DirFile As String

dim GetTexto as string

DirFile = "C:\My File.txt"

Open DirFile For Input As #1

GetTexto = Input(LOF(1), #1)

Close #1

Já fiz assim, também é bem útil

Editado Junho 4, 2007 por Diogovb6