Método IShellDispatch.BrowseForFolder

Crea un cuadro de diálogo que permite al usuario seleccionar una carpeta y, a continuación, devuelve el objeto Folder de la carpeta seleccionada.

Sintaxis

retVal = IShellDispatch.BrowseForFolder(
  Hwnd,
  sTitle,
  iOptions,
  [ vRootFolder ]
)

IShellDispatch.BrowseForFolder( _
  ByVal Hwnd As Integer, _
  ByVal sTitle As BSTR, _
  ByVal iOptions As Integer, _
  [ ByVal vRootFolder As Variant ] _
) As FOLDER

Parámetros

Hwnd [in]

Tipo: Entero

Identificador de la ventana primaria del cuadro de diálogo. Este valor puede ser cero.

sTitle [in]

Tipo: BSTR

Valor de tipo String que representa el título que se muestra dentro del cuadro de diálogo Examinar.

iOptions [in]

Tipo: Entero

Valor entero que contiene las opciones del método . Puede ser cero o una combinación de los valores enumerados en el miembro ulFlags de la estructura BROWSEINFO .

vRootFolder [in, optional]

Tipo: Variant

Carpeta raíz que se va a usar en el cuadro de diálogo. El usuario no puede examinar más arriba en el árbol que esta carpeta. Si no se especifica este valor, la carpeta raíz usada en el cuadro de diálogo es el escritorio. Este valor puede ser una cadena que especifica la ruta de acceso de la carpeta o uno de los valores ShellSpecialFolderConstants . Tenga en cuenta que los nombres de constante que se encuentran en ShellSpecialFolderConstants están disponibles en Visual Basic, pero no en VBScript o JScript. En esos casos, los valores numéricos deben usarse en su lugar.

Valor devuelto

JScript

Tipo: FOLDER**

Referencia de objeto al objeto Folder de la carpeta seleccionada.

VB

Tipo: FOLDER**

Referencia de objeto al objeto Folder de la carpeta seleccionada.

Comentarios

Este método se implementa y se accede a través del método Shell.BrowseForFolder .

Ejemplos

En los ejemplos siguientes se usa BrowseForFolder para mostrar una ventana de exploración titulada "Ejemplo" con raíz en la carpeta Windows. El uso se muestra para JScript, VBScript y Visual Basic.

Jscript:

<script language="JScript">
    function fnShellBrowseForFolderJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var ssfWINDOWS = 36;
        var objFolder;
        
        objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS);
        if (objFolder != null)
        {
            // Add code here.
        }
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellBrowseForFolderVB()
        dim objShell
        dim ssfWINDOWS
        dim objFolder
        
        ssfWINDOWS = 36
        set objShell = CreateObject("shell.application")
            set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
                if (not objFolder is nothing) then
                    'Add code here.
                end if
            set objFolder = nothing
        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnShellBrowseForFolderVB()
    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
    
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objshell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            End If
        Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Requisitos