problema con el common dialog

[chipbios]

como puedo abrir,guardar un texto (text1) con el common dialog y tambien que se grabe por defecto como nombre.extensi on que yo quiera

y haber si podeis darme un manual de esa utilidad el common dialogxD
gracias

[Punk-Rock]

se hace asi:

Agregas el common como cd

cd.ShowSave

Open cd.Filename For Binary As #1
Put #1,, text1.text
Close #1

Facil, no? hay manuales por google...son faciles de enkontrar...

Salu2

[chipbios]

pues va ser que no me funciona

[Punk-Rock]

te paso el kode de una aplicación mia:

Código:

Dim ex as String

cd.FileName = ""
cd.Filter = "Archivo ejecutable (.exe)"
cd.DialogTitle = "Selecciona el archivo para guardarlo"
cd.ShowSave

ex = cd.FileName

Open ex For Binary As #1
Put #1, , Text1.text
Close #1

Espero ke te sirva.....

Salu2

Hendrix

[ranefi]

Hola chipbios. Aquí te dejo el código que necesitas

Agregar 2 controles CommandButton, 1 CommonDialog (CTRL + T) y 1 TextBox (configurada la propiedad Multiline a True y la propiedad ScrollBars a 2 - Vertical) e REPLACEar el siguiente código

Código:

Private Sub Command1_Click()
On Error GoTo ups
   
    Dim Numarchivo As Long
   
    Numarchivo = FreeFile()
   
    Text1.Text = Empty
   
    With CommonDialog1
        .Filter = "Archivos de texto (*.txt)|*.txt"
        .FileName = ""
        .ShowOpen
   
        Open .FileName For Input As #Numarchivo
            Text1.Text = Input(LOF(Numarchivo), Numarchivo)
        Close #Numarchivo
    End With
   
    Exit Sub
ups:
    MsgBox "¿Cocha pacha?", vbCritical, "Error"
End Sub

Private Sub Command2_Click()
On Error GoTo ups
    Dim Numarchivo As Long
   
    Numarchivo = FreeFile()
   
    With CommonDialog1
        .Flags = cdlOFNOverwritePrompt + _
            cdlOFNPathMustExist
        .Filter = "Archivos de texto (*.txt)|*.txt"
        .ShowSave
       
        Open .FileName For Output As #Numarchivo
            Print #Numarchivo, Text1.Text
        Close #Numarchivo
    End With
    Exit Sub
ups:
    MsgBox "¿Cocha pacha?", vbCritical, "Error"
End Sub

Private Sub Form_Load()
    Llena
End Sub

Public Sub Llena()
    Command1.Caption = "&Abrir"
    Command2.Caption = "&Guardar"
   
    Text1.Text = Empty
End Sub

Espero y tu duda haya sido resuelta. Nos vemos.

PD: Sobre el manual, emmm eso se pide en la sección de Almacén de Manuales xD