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
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!
el codigo del guardar como seria asi
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
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:
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"
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
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
hay un problema con este codigo:
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
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:
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:
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 ;)
Cita de: the_chaoz en 23 Septiembre 2009, 00:31 AM
hay un problema con este codigo:
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 :¬¬