Enviando vários dados para um arquivode Texto

[Ewerton Melo]

Oi galera, seguindo mais um dos tutoriais que encontrei na net, eu gostaria de passar arquivos para um documento de texto.

A tela é essa.

A pessoa digitará o valor e esses valores serão gravados automaticamente no arquivo de texto, segue o código:

Código colocado no Botão

Private Sub Command1_Click()
   Arq = FreeFile
    Open "C:\Users\Ewerton Melo\Desktop\teste.txt" For Output As Arq  

  Print #Arq, txt1.Text    

    Close Arq  
  txt1.Text = ""    
End Sub

A dúvida é o seguinte galera, eu estou salvando as informações num arquivo de texto que eu criei especificamente para isso, se eu incluir uma informação ele grava normalmente, porém, se eu tentar incluir uma segunda informação no arquivo de texto ele apaga a primeira informação e inclui a segunda, como fazer para ele incluir as informações uma depois da outa, sem apagar nada????

Depois, como eu faço pra determinar um determinado arquivo, exemplo, eu não quero salvar as informações nesse arquivo, como mandar as informações para um arquivo especifico ou salvar em um arquivo novo???

[MRMB]

Ewerton Melo,

para resolver seu problema faça o seguinte adicione referencia ao projeto da classe "Microsoft Scripting Runtime". Depois verifique o código abaixo que cria arquivo, escreve, fecha, abre e escreve novamente.

Private Sub Command1_Click()
  
  Dim objFSO As New Scripting.FileSystemObject
  Dim Arquivo As TextStream
  
  Set Arquivo = objFSO.CreateTextFile(App.Path & "\Teste.txt")
  
  Arquivo.Write "Escreve na mesma Linha 1"
  Arquivo.Write "Escreve na mesma Linha 2"
  
  Arquivo.WriteBlankLines 1 ' Linha em branco
  
  Arquivo.WriteLine "Escreve com Enter 1"
  Arquivo.WriteLine "Escreve com Enter 2"
  
  Arquivo.Close
  Set Arquivo = Nothing
  
  ' Abre o arquivo
  Set Arquivo = objFSO.OpenTextFile(App.Path & "\Teste.txt", ForAppending)
  
  Arquivo.WriteBlankLines 1 ' Linha em branco
  
  Arquivo.Write "Escreve na mesma Linha 1B"
  Arquivo.Write "Escreve na mesma Linha 2B"
  
  Arquivo.WriteBlankLines 1 ' Linha em branco
  
  Arquivo.WriteLine "Escreve com Enter 1B"
  Arquivo.WriteLine "Escreve com Enter 2B"
  
  Arquivo.Close
  Set Arquivo = Nothing

  objFSO.CopyFile App.Path & "\Teste.txt", App.Path & "\Teste2.txt", True

  Set objFSO = Nothing
  
End Sub

Em relação a salvar o que foi escrito em no primeiro arquivo em outro pode utilizar a função CopyFile.

T+

[Ewerton Melo]

Valeu cara...

Consegui rodar o programinha...

Mais um comando funcionando pra minha Lib... rsrsrs

Um abraço e mais uma vez...

Vlw

[vieira_mar]

Valeu cara...

Consegui rodar o programinha...

Mais um comando funcionando pra minha Lib... rsrsrs

Um abraço e mais uma vez...

Vlw

Boas

Já tentei efectuar isto no VBA do Word mas não deu certo. Necessito fazer alguma alteração em relação ao Word 2007?

Abraço

[Anderson Fernandes]

Olá!

Seu código está quase certo a não ser por uma coisa:

Output = Sobrescreve o arquivo

Append = Acrescenta ao conteúdo existente do arquivo.

Private Sub Command1_Click()
    Dim Arq As Integer
    Arq = FreeFile
    Open "C:\Users\Ewerton Melo\Desktop\teste.txt" For [b]Append[/b] As Arq  

    Print #Arq, txt1.Text    

    Close Arq  
    txt1.Text = ""    
End Sub

T+!!!

[vieira_mar]

Olá!

Seu código está quase certo a não ser por uma coisa:

Output = Sobrescreve o arquivo

Append = Acrescenta ao conteúdo existente do arquivo.

Private Sub Command1_Click()
    Dim Arq As Integer
    Arq = FreeFile
    Open "C:\Users\Ewerton Melo\Desktop\teste.txt" For [b]Append[/b] As Arq  

    Print #Arq, txt1.Text    

    Close Arq  
    txt1.Text = ""    
End Sub

T+!!!

Bom dia.

Valeu pela ajuda.

Sou iniciante...

Um abraço e obrigado

MarcoG