El ejemplo de este artículo describe cómo abrir y guardar archivos txt con VB. Compártelo con todos para tu referencia. Los detalles son los siguientes:
Private Sub cmdsave_Click()Dim filelocation As String' carga guardar como cuadro commondialog1.ShowSave filelocation = commondialog1.FileName' agregar guarda sobre el archivo si ayuda Abrir filelocation Para Agregar como #1 Imprimir #1, text1.text Cerrar #1Finalizar SubPrivate Sub cmdopen_Click ()Dim filelocation As String' muestra el cuadro abierto commondialog1.ShowOpen filelocation = entrada commondialog1.FileName' archivos en text1.text Abrir ubicación de archivo Para entrada como #1Hacer hasta EOF(1) Entrada #1, Datos text1.text = text1.text + Datos + vbNewLine EOF (1) Cerrar bucle #1End Sub
Espero que este artículo sea útil para la programación VB de todos.