GetFileName


Volver
'*********************************************************
' Function GetFileName(
'          hwndOwner As Long,
'          AppName As String,
'          DlgTitle As String,
'          OpenTitle As String,
'          File As String,
'          InitialDir As String,
'          Filter As String,
'          FilterIndex As Long,
'          View As Long,
'          flags As Long,
'          fOpen As Boolean) As Long
'
' Método que permite utilizar el cuadro de diálogo 
' Abrir/Guardar de Ms Office
'
' Argumentos
'   hwndOwner: Valor Long con el controlador de ventana a
'              la que pertenecerá el cuadro de diálogo

'   AppName: Ni idea (?¿?)
'   DlgTitle: Texto de la barra de título del cuadro de
'             diálogo
'   OpenTitle: Texto del botón Aceptar
'   File: Variable que contendrá la ruta escogida por el
'         usuario
'   InitialDir - Directorio donde se iniciará el cuadro de
'                diálogo
'   Filter - Filtro del tipo de archivos que queremos que
'            muestren. Puede haber más de un filtro. Se
'            han de separar con el caracter "|"
'   FilterIndex - Número de índice del filtro que queremos
'                 activar.
'   View - Tipo de vista que queremos activar.
'   flags - Este argumento, junto con View, activa las 
'           vistas y algunos atributos del cuadro de
'           diálogo:
'
'           View = 0 y flags = 0
'             Vista: Lista
'           View = 0 y flags = 64
'             Vista: Detalles
'           View = 1 y flags = 64
'             Vista: Vista previa
'           View = 2 y flags = 64
'             Vista: Vista propiedades
'   y además:
'           View = 0 y flags = 32
'             Muestra y selecciona sólo directorios
'           View = 0 y flags = 12
'             Permite seleccionar más de un archivo
'
'   fOpen:
'     Establecido a True: Muestra el botón Abrir
'     Establecido a False: Muestra el botón Guardar
'
' El siguiente ejemplo abrirá el cuadro de diálogo "Abrir"
' de Office, mostrando los archivos gráficos existentes en
' el directorio activo y con la opción "Vista previa"
' activada.
'
Sub wzGetFileName()
Dim wzhwndOwner As Long
Dim wzAppName As String
Dim wzDlgTitle As String
Dim wzOpenTitle As String
Dim wzFile As String
Dim wzInitialDir As String
Dim wzFilter As String
Dim wzFilterIndex As Long
Dim wzView As Long
Dim wzflags As Long
Dim wzfOpen As Boolean
Dim ret As Long
    
    WizHook.Key = 51488399
    
    wzhwndOwner = 0&
    wzAppName = ""
    wzDlgTitle = "Cuadro de diálogo con WizHook"
    wzOpenTitle = "Abrir con Wz"
    wzFile = String(255, Chr(0))
    wzInitialDir = ""
    wzFilter = "Archivos gráficos " _
    & "(*.wmf;*.emf;*.dib;*.bmp;*.ico;" _
    & "*.pcx;*.pcx;*.jpg;*.gif;*.png)"
    wzFilterIndex = 1
    wzView = 1
    wzflags = 64
    wzfOpen = True

    ret = WizHook.GetFileName(wzhwndOwner, _
        wzAppName, wzDlgTitle, wzOpenTitle, wzFile, _
        wzInitialDir, wzFilter, wzFilterIndex, _
        wzView, wzflags, wzfOpen)
        
    ' Si no se ha pulsado el botón Cancelar (-302)
    If ret <> -302 Then
        MsgBox "Archivo seleccionado: " & wzFile
    End If

End Sub
'*********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera