Guardar desde commondialog

[CH4ØZ]

hola queria saber si hay alguna manera de guardar un archivo con el guardar
xq ya hice el guardar como, pero no encontre la forma de hacer el guardar solo :S
si alguien me dice como empezar o donde puedo conseguir algo de informacion se lo voy a agradecer

[Castg!]

mira no tengo ni idea de ninguno de los dos, pero me imagino q viendo uno, el otro sale por logica. si podrias subir el codigo ? un saludo y suerte! despues paso por aca!

[CH4ØZ]

el codigo del guardar como seria asi

Código [Seleccionar] Expandir


On Local Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
CommonDialog1.ShowSave
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close


mi problema es que no veo la forma de que el programa reescriba el archivo que se abrio o guardo previamente :S

[Castg!]

desdpues de esto, que sucede? se abre una ventana para guardar? si se abre cual seria el codigo para que se abra? a ver si puede ayudarte:

Código (vb) [Seleccionar] Expandir

On Local Error Resume Next
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
'eliminamos show save
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close



prova poniendo e3sos olo, osea borrando el "ShowSave"

[fede_cp]

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "Texto para guardar solamente"
CommonDialog1.Filter = "Archivos de texto Txt|*.txt"
CommonDialog1.ShowSave
Open CommonDialog1.FileName For Output As #1
    Print #1, Text1
   Close
End Sub
por lo menos a mi me funciona, este caso es simple, cuando se hace complicado es cuando hay que modificar, tenes que uzar funciones tales como EOF, Seek, LOF.

saludos!

PD:si no funciona no pusiste el commondialog

saludos

[CH4ØZ]

oks
gracias ahora lo pruevo, igual tengo varios problemas con este proyecto que estoy haciendo, asi q vas a ver mas preguntas como estas.
xq hace poco que empece con vb

[CH4ØZ]

hay un problema con este codigo:

Código [Seleccionar] Expandir

CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close

si el archivo no existe tira error :S

[aaronduran2]

Hola. Por lo que yo sé, si quieres guardar el archivo, lo único que tendrías que hacer sería sobreescribir el que ya tienes. Para ello, puedes almacenar la ruta del mismo en una variable, y cuando quieras guardarlo, haces lo de siempre:

Código (vb) [Seleccionar] Expandir

Dim s_RutaArchivo As String
Open s_RutaArchivo For Output As #1
    Print #1, Text1.Text
Close #1

Si quieres que sea guardar como, tan solo añade las funciones del CommonDialog:

Código (vb) [Seleccionar] Expandir

CommonDialog1.CancelError = False ' Para que no de error al cancelar.
CommonDialog1.Filter = "Texto|*.txt"
CommonDialog1.ShowSave

Open CommonDialog1.FileName For Output As #1
    Print #1, Text1.Text
Close #1

Saludos

[fede_cp]

hay un problema con este codigo:

Código [Seleccionar] Expandir

CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = ".txt"
CommonDialog1.Filter = "Documentos de texto (*.txt)"
CommonDialog1.ShowSave
'Creamos un archivo con la sentencia OutPut, pasandole la ruta _
con la propiedad FileName del Commondialog
Open CommonDialog1.FileName For Output As #1

'Escribimos en el archivo el contenido de Text1
Print #1, Text1

'Cerramos el archivo
Close



si el archivo no existe tira error :S

jjajaja. no es tan dificil no hacer preguntas bobas???

obviamente, yo te puse el ejemplo, y de ahi vos haces lo que queres que haga el programa