Boton Guardar
Dani
09 de Febrero del 2006
Hola amigos, estoy capturando la informaci贸n de un impresora con visual basic, he creado una variable y hay meto los datos y los visualizo. esto va perfecto. Me gustaria crear un boton de Guardar que cuando pulse se me habra la ventana guardar como, y yo pueda guardar esta informaci贸n donde quiera con extensi贸n (txt).
Alguien me puede ayudar?
Gracias anticipadas.
Saludos!
Alguien me puede ayudar?
Gracias anticipadas.
Saludos!
Rosa
09 de Febrero del 2006
Hola, tienes que usar el control CommonDialog (Men煤 Proyecto -> Componentes) y c贸digo de manejo de archivo para grabar la informaci贸n pues el control s贸lo te sirve como interfaz:
Private Sub Command1_Click()
Dim lintFile As Integer
CommonDialog1.Filter = "Todos los archivos (*.*)|*.*|Archivos de texto (*.txt)|*.txt"
CommonDialog1.ShowSave
lintFile = FreeFile()
Open CommonDialog1.FileName For Output As #lintFile ' Abre el archivo para operaciones de salida.
Print #lintFile, "datos" ' Escribe texto en el archivo.
Close #lintFile
End Sub
Private Sub Command1_Click()
Dim lintFile As Integer
CommonDialog1.Filter = "Todos los archivos (*.*)|*.*|Archivos de texto (*.txt)|*.txt"
CommonDialog1.ShowSave
lintFile = FreeFile()
Open CommonDialog1.FileName For Output As #lintFile ' Abre el archivo para operaciones de salida.
Print #lintFile, "datos" ' Escribe texto en el archivo.
Close #lintFile
End Sub