VB6 Guardar Fichero

[MeXiCaN]

Ok, probaré esto que me dices, ves como no es tan dificil dar una explicacion coherente y entendible, piensa que quizas no todos tenemos la capacidad de entender en dos lineas lo que intentas decir.

Si te entendí bien:

Este es mi código para GUARDAR COMO...

Private Sub mnuFileSaveAs_Click()

Dim sFile As String

'TareasPendientes: Agregar código 'mnuFileSaveAs_Click'.
'MsgBox "Agregar código 'mnuFileSaveAs_Click'."
With dlgCommonDialog
.DialogTitle = "Guardar"
.CancelError = False
'Pendiente: establecer los indicadores y atributos del control common dialog
.Filter = "Todos los archivos (*.*)|*.*"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With

Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
' Abrimos el fichero en el canal dado
Open sFile For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text2
Close #canalLibre

End Sub

Entonces me dices que en el Guardar sea así:

Private Sub mnuFileSave_Click()

sFile as String //Este tiene la ruta y el nombre de fichero

Dim canalLibre As Integer
canalLibre = FreeFile
Open sFile For Output As #canalLibre
Print #canalLibre, Text2
Close #canalLibre

End Sub
Muchas Gracias.