Programación General > Visual Basic 6.0 e inferiores

 Guardar Archivos

(1/1)

karen81:
;) hola, me ha surgido una duda de como guardar archivos en visual basic, ya hice una rutina de como abrir los archivos y todo bien  :comp: , por lo que  pense que guardar se hacia de manera similar, lo que hice fue:
en text3.text esta lo que quiero guardar en un archivo de texto  lo guardo en la variable archivos y hago lo siguiente


--- Código: Text ---archivos = Text3.Text On Error GoTo nada'Presenta el cuadro de dialogo guardarCommonDialog1.FileName = ""CommonDialog1.DialogTitle = "guardar archivo como"CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"CommonDialog1.InitDir = archivosCommonDialog1.FileName = ""CommonDialog1.ShowSavenada:Exit SubEnd Sub me aparece el cuadro de dialogo, le pongo el nombre, le doy guardar pero no pasa nada  :huh: ¿en que me he equivocado? o ¿que me hace falta? :unsure:


cualquier ayuda sera bienvenida

gracias  :hola:

Shiquilla:
Te falta la instrucción para guardar el fichero, el commondialog lo único que hace es devolverte la ruta. Quedaría algo así:


--- Código: Text ---Dim lsFichero As StringDim lsTexto As String    lsTexto = Text3.Text    CommonDialog1.CancelError = False    CommonDialog1.DialogTitle = "guardar archivo como"    CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"    CommonDialog1.InitDir = lsTexto     CommonDialog1.FileName = ""    CommonDialog1.ShowSave        lsFichero = CommonDialog1.FileName    If Trim(lsFichero) <> "" Then        Open lsFichero For Output As #1            Print #1, lsTexto         Close #1        MsgBox "Fichero guardado"    End If 
Saludos,

karen81:
:huh: shiquilla probe con el codigo que me pusiste pero cuando llega a la parte

--- Código: Text --- Open lsFichero For Output As #1  me aparece un error que dice:

Error "55" en tiempo de ejecucion:

El archivo ya esta abierto

 :( , no se porque pues no entiendo que hace esa parte.

cualquier ayuda sera bienvenida


Gracias :hola:

karen81:
:P Hola me puse a buscar y encontre el problema estaba cuando se pone #1, encontre una recomendacion en internet que decia que si no se sabe qué número de archivo está libre, se debe usar FreeFile, de la siguiente manera


--- Código: Text ---Dim lsFichero As StringDim lsTexto As StringDim num As Variant    lsTexto = Text3.Text   CommonDialog1.CancelError = False   CommonDialog1.DialogTitle = "guardar archivo como"   CommonDialog1.Filter = "Archivos de texto (*.txt) |*.txt|"   CommonDialog1.InitDir = lsTexto   CommonDialog1.FileName = ""   CommonDialog1.ShowSave      lsFichero = CommonDialog1.FileName   'ojo con esto   num = FreeFile   If Trim(lsFichero) <> "" Then       Open lsFichero For Output As #num           Print #num, lsTexto       Close #num       MsgBox "Fichero guardado"   End If Gracias Shiquilla, ya era solo un detalle  :comp:

Navegación

[0] Índice de Mensajes