Gravar arquivos .TXT no Visual Basic

O Visual Basic como qualquer outra linguagem, permite a gravação de arquivos no disco.

 

Public Sub GravaArquivo()

    Dim strArquivo As String

    On Error Resume Next

    ‘Nome do arquivo

    strArquivo = “c:\teste.txt”

     ‘Abre arquivo

    Open strArquivo For Output As #1

     ‘Grava no arquivo

    Print #1, “Gravando no arquivo teste.txt”

     ‘Fecha arquivo

    Close #1

 End Sub

é bem util…. rsrsrs