Necesito el código para abrir el cuadro de diálogo referido, si puede ser a través de la api correspondiente.
He visto en la guía de recursos un código pero creo que debe haber algo más sencillo mediante API u otro sistema.

¿Alguien me puede ayudar?

Hola, Si no te entendi mal. agrega el componente Microsoft CommonDialog

Código:

Private Sub Command1_Click()
CommonDialog1.CancelError = True
On Error GoTo errcancela ' para controlar elboton cancelar
CommonDialog1.DialogTitle = "Seleccione un Archivo DESTINO"
CommonDialog1.Filter = "Archivode configuracion(Ini)|*.Ini"
CommonDialog1.ShowSave ' diagolo de guardar
MsgBox CommonDialog1.FileName
Exit Sub


errcancela:
 


End Sub

para abrir :

Código:

CommonDialog1.ShowOpen ' diagolo de abrir

No es exactamente lo que necesito. Me refería a que si en mi programa quiero abrir o guardar un fichero, me abra el cuadro de diálogo propio de windows para hacerlo.

hola mediante api mas corto que esto no creo se pueda hacer


es un ejemplo del apiguide





Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long


Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Dim OFName As OPENFILENAME


Private Function ShowOpen() As String
'Set the structure size
OFName.lStructSize = Len(OFName)
'Set the owner window
OFName.hwndOwner = Me.hWnd
'Set the application's instance
OFName.hInstance = App.hInstance
'Set the filet
OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
'Create a buffer
OFName.lpstrFile = Space$(254)
'Set the maximum number of chars
OFName.nMaxFile = 255
'Create a buffer
OFName.lpstrFileTitle = Space$(254)
'Set the maximum number of chars
OFName.nMaxFileTitle = 255
'Set the initial directory
OFName.lpstrInitialDir = "C:\"
'Set the dialog title
OFName.lpstrTitle = "Open File - KPD-Team 1998"
'no extra flags
OFName.flags = 0


'Show the 'Open File'-dialog
If GetOpenFileName(OFName) Then
ShowOpen = Trim$(OFName.lpstrFile)
Else
ShowOpen = ""
End If
End Function
Private Function ShowSave() As String
'Set the structure size
OFName.lStructSize = Len(OFName)
'Set the owner window
OFName.hwndOwner = Me.hWnd
'Set the application's instance
OFName.hInstance = App.hInstance
'Set the filet
OFName.lpstrFilter = "Text Files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
'Create a buffer
OFName.lpstrFile = Space$(254)
'Set the maximum number of chars
OFName.nMaxFile = 255
'Create a buffer
OFName.lpstrFileTitle = Space$(254)
'Set the maximum number of chars
OFName.nMaxFileTitle = 255
'Set the initial directory
OFName.lpstrInitialDir = "C:\"
'Set the dialog title
OFName.lpstrTitle = "Save File - KPD-Team 1998"
'no extra flags
OFName.flags = 0


'Show the 'Save File'-dialog
If GetSaveFileName(OFName) Then
ShowSave = Trim$(OFName.lpstrFile)
Else
ShowSave = ""
End If
End Function


Private Sub Command1_Click()
Dim sFile As String
sFile = ShowOpen
If sFile <> "" Then
MsgBox "You chose this file: " + sFile
Else
MsgBox "You pressed cancel"
End If
End Sub
Private Sub Command2_Click()
Dim sFile As String
sFile = ShowSave
If sFile <> "" Then
MsgBox "You chose this file: " + sFile
Else
MsgBox "You pressed cancel"
End If
End Sub

Iniciado por locutus

He visto en la guía de recursos un código pero creo que
debe haber algo más sencillo mediante API u otro sistema.

No se que esperas, el de la "Guia de Recursos" es mediante el API de
Windows y no se que complicacion le ves, total, el codigo esta
preparado para que simplemente hagas una llamada del tipo similar a
esto:

Código:

Ruta = DLG_OpenFile(Me.hWnd, "Abrir archivo...", "Archivos de
texto *.txt|*.txt|Todos los archivos *.*|*.*", "C:\Mis
Documentos")

Si esto lo ves complicado apaga y vamonos (es aun mas simple que mediante el componente CommonDialog!)





Hazte a la idea que todo lo que tengas que hacer mediante el API de
Windows, la mayoria al menos, requerira mucha cantidad de codigo para
realizar diferentes llamadas a diferentes funciones para hacer algo tan
sencillo como mostrar y configurar el cuadro de digalogo de Windows por
ejemplo. En la programacion no todo se reduce a
hacer una simple llamada a una funcion y listos





Salu2...

Tenéis razón. Muchas gracias. Es que pensaba que mediante API apenas se requería código. Perdíon por mi ignorancia.

En el código que ha puesto Leandro, ¿cómo puedo hacer en el cuadro diálogo guardar para que me aparezca un nombre de fichero por defecto, o que me guarde el fichero con una extensión determinada, pues si pongo sólo el nombre no me guarda la extensión?

Ahora resulta que no me funciona la opción de guardar. Le pongo un nombre de archivo y si coincide con una carpeta me la muestra, si le vuelvo a dar a guardar me dice que lo ha hecho pero no encuentro el archivo.

...Y encima me afecta al resto de programas de windows. Grrr.
¿Qué pasa?

Hola de nuevo.
Utilizo el código que ha posteado Leandro. En el cuadro guardar tengo opción a usar varios formatos (extensiones del fichero a guardar), pero no sé qué variable guarda la extensión que elijo.

¿Me podéis ayudar?

Gracias