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
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:
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
el primer codigo me dice
Compile Error: Invalid Outside procedure
y en el 2º igual
Crea un Common Dialog en tu proyecto llamado Commondialog1.
El concepto del codigo dado no esta mal dado.