Abrir y guardar archivos con CommonDialog

[soru13]

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

[X-TN]

Código [Seleccionar] Expandir

    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 [Seleccionar] Expandir

    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

[soru13]

el primer codigo me dice

Código [Seleccionar] Expandir

Compile Error: Invalid Outside procedure

y en el 2º igual

[<--v1c1ous-->]

Crea un Common Dialog en tu proyecto llamado Commondialog1.

El concepto del codigo dado no esta mal dado.