' gambas class file
' by postapase
' Escritura directa en un archivo
Public Sub Form_Open()
Dim Ruta As String = User.Home & "/prueba.txt" 'Variable de tipo cadena,
' que contiene la ruta donde se guardara/creara el archivo con los datos
Dim Archivo As File 'declaracion de variable de tipo archivo
Me.Center 'Centra el formulario
Archivo = Open Ruta For Create 'Abre archivo, sino existe lo crea
Print #Archivo, "Hola, hoy es el día " & Format(Date, gb.LongDate) 'escribe 1ª linea
Print #Archivo 'deja la linea en blanco, escribe 2ª linea
Print #Archivo, "El archivo se guardo en:" ' escribe 3ª linea
Print #Archivo, Ruta 'escribe 4ª linea
Close #Archivo 'cierra el archivo
End
' Ahora busquen el archivo en User.Home &"/prueba.txt" para ver los resultados
' by postapase
' Escritura directa en un archivo
Public Sub Form_Open()
Dim Ruta As String = User.Home & "/prueba.txt" 'Variable de tipo cadena,
' que contiene la ruta donde se guardara/creara el archivo con los datos
Dim Archivo As File 'declaracion de variable de tipo archivo
Me.Center 'Centra el formulario
Archivo = Open Ruta For Create 'Abre archivo, sino existe lo crea
Print #Archivo, "Hola, hoy es el día " & Format(Date, gb.LongDate) 'escribe 1ª linea
Print #Archivo 'deja la linea en blanco, escribe 2ª linea
Print #Archivo, "El archivo se guardo en:" ' escribe 3ª linea
Print #Archivo, Ruta 'escribe 4ª linea
Close #Archivo 'cierra el archivo
End
' Ahora busquen el archivo en User.Home &"/prueba.txt" para ver los resultados