O exemplo neste artigo descreve como abrir e salvar arquivos txt com VB. Compartilhe com todos para sua referência. Os detalhes são os seguintes:
Private Sub cmdsave_Click() Dim filelocation As String' carrega salvar como caixa commondialog1.ShowSave filelocation = commondialog1.FileName' anexar salva no arquivo se ajudar Abrir localização do arquivo para anexar como #1 Imprimir #1, text1.text Fechar #1End SubPrivate Sub cmdopen_Click ()Dim filelocation As String' mostra a caixa aberta commondialog1.ShowOpen filelocation = commondialog1.FileName' input arquivos em text1.text Abra o local do arquivo para entrada como #1Do Até EOF (1) Entrada # 1, Dados text1.text = text1.text + Data + vbNewLine EOF (1) Loop Fechar #1End Sub
Espero que este artigo seja útil para a programação VB de todos.