Autor Tema: Guardar Archivos (Leído 1518 veces)

karen81 · « **en:** Miércoles 21 de Diciembre de 2005, 05:03 »

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

, 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 guardar
CommonDialog1.FileName = &#34;&#34;
CommonDialog1.DialogTitle = &#34;guardar archivo como&#34;
CommonDialog1.Filter = &#34;Archivos de texto (*.txt) |*.txt|&#34;
CommonDialog1.InitDir = archivos
CommonDialog1.FileName = &#34;&#34;
CommonDialog1.ShowSave
nada:
Exit Sub
End Sub
 

me aparece el cuadro de dialogo, le pongo el nombre, le doy guardar pero no pasa nada

¿en que me he equivocado? o ¿que me hace falta?

cualquier ayuda sera bienvenida

gracias

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 String
Dim lsTexto As String
    lsTexto = Text3.Text
    CommonDialog1.CancelError = False
    CommonDialog1.DialogTitle = &#34;guardar archivo como&#34;
    CommonDialog1.Filter = &#34;Archivos de texto (*.txt) |*.txt|&#34;
    CommonDialog1.InitDir = lsTexto 
    CommonDialog1.FileName = &#34;&#34;
    CommonDialog1.ShowSave
    
    lsFichero = CommonDialog1.FileName
    If Trim(lsFichero) &#60;&#62; &#34;&#34; Then
        Open lsFichero For Output As #1
            Print #1, lsTexto 
        Close #1
        MsgBox &#34;Fichero guardado&#34;
    End If
 

Saludos,

karen81

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

karen81

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 String
Dim lsTexto As String
Dim num As Variant
 
   lsTexto = Text3.Text
   CommonDialog1.CancelError = False
   CommonDialog1.DialogTitle = &#34;guardar archivo como&#34;
   CommonDialog1.Filter = &#34;Archivos de texto (*.txt) |*.txt|&#34;
   CommonDialog1.InitDir = lsTexto
   CommonDialog1.FileName = &#34;&#34;
   CommonDialog1.ShowSave
   
   lsFichero = CommonDialog1.FileName
   'ojo con esto
   num = FreeFile
   If Trim(lsFichero) &#60;&#62; &#34;&#34; Then
       Open lsFichero For Output As #num
           Print #num, lsTexto
       Close #num
       MsgBox &#34;Fichero guardado&#34;
   End If
 

Gracias Shiquilla, ya era solo un detalle

SoloCodigo

Autor Tema: Guardar Archivos (Leído 1518 veces)

karen81

Guardar Archivos

Shiquilla

Re: Guardar Archivos

karen81

Re: Guardar Archivos

karen81

Re: Guardar Archivos