 Autor
|
Tema: Guardar desde commondialog (Leído 8,805 veces)
|
CH4ØZ
 Desconectado
Mensajes: 108
|
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
|
|
|
|
|
En línea
|
no me juzguen si no me conocen
|
|
|
Castg!
Wiki
Desconectado
Mensajes: 1.191
|
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!
|
|
|
|
|
En línea
|
|
|
|
CH4ØZ
Desconectado
Mensajes: 108
|
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 |
|
|
|
|
En línea
|
no me juzguen si no me conocen
|
|
|
Castg!
Wiki
Desconectado
Mensajes: 1.191
|
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" |
|
|
|
|
En línea
|
|
|
|
fede_cp
Desconectado
Mensajes: 527
"porque pensar nunca fue entender"
|
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
|
|
|
|
|
En línea
|
somos lo que hacemos para cambiar lo que somos
http://elhackerblog.blogspot.com el blog de elhacker.net!!
|
|
|
CH4ØZ
Desconectado
Mensajes: 108
|
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
|
|
|
|
|
En línea
|
no me juzguen si no me conocen
|
|
|
CH4ØZ
Desconectado
Mensajes: 108
|
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 |
|
|
|
« Última modificación: 24 Septiembre 2009, 01:27 am por the_chaoz »
|
En línea
|
no me juzguen si no me conocen
|
|
|
|
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: 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 |
|
|
|
|
En línea
|
|
|
|
fede_cp
Desconectado
Mensajes: 527
"porque pensar nunca fue entender"
|
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 
|
|
|
|
|
En línea
|
somos lo que hacemos para cambiar lo que somos
http://elhackerblog.blogspot.com el blog de elhacker.net!!
|
|
|
|
 |
