Imprimir Página - Abrir y guardar archivos con CommonDialog

Título: Abrir y guardar archivos con CommonDialog
Publicado por: soru13 en 26 Junio 2006, 02:39 am

hola, haber si alguien me podia ayudar, de como puedo abrir y guardar archivos con CommonDialog... me e visto un manual, pero no entiendo muy bien, me podrian poner un ejemplo?? gracias

se que es con ShowOpen y ShowSave, pero no me sale, me da siempre error

Título: Re: Abrir y guardar archivos con CommonDialog
Publicado por: X-TN en 26 Junio 2006, 02:53 am

Código:

    Commondialog1.ShowOpen
    fullname = Commondialog1.filename
    filename = Commondialog1.FileTitle
    If filename <> "" Then
        Debug.Print Commondialog1.filename
        Open fullname For Input As #1
        Text1.Text = Input(LOF(1), #1)
        Close #1
        Form1.Caption = filename
    End If

Para guardar suelo usar una funcion, pero con el commondialog supongo que sera:

Código:

    Commondialog1.ShowSave
    Commondialog1.DefaultExt = "txt"
    fullname = Commondialog1.filename
    filename = Commondialog1.FileTitle
    If fullname <> "" Then
        Open fullname For Output As #1
        Print #1, Text1.Text
        Close #1
        Form1.Caption = filename
    End If

Salu2

Título: Re: Abrir y guardar archivos con CommonDialog
Publicado por: soru13 en 26 Junio 2006, 03:44 am

el primer codigo me dice

Código:

Compile Error: Invalid Outside procedure

y en el 2º igual

Título: Re: Abrir y guardar archivos con CommonDialog
Publicado por: <--v1c1ous--> en 26 Junio 2006, 07:20 am

Crea un Common Dialog en tu proyecto llamado Commondialog1.

El concepto del codigo dado no esta mal dado.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: soru13 en 26 Junio 2006, 02:39 am