Método Shell.BrowseForFolder

Cria uma caixa de diálogo que permite que o usuário selecione uma pasta e, em seguida, retorna o objeto Folder da pasta selecionada.

Sintaxe

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

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

Parâmetros

Hwnd [in]

Tipo: inteiro

O identificador para a janela pai da caixa de diálogo. Esse valor pode ser zero.

sTitle [in]

Tipo: BSTR

Um valor String que representa o título exibido dentro da caixa de diálogo Procurar .

iOptions [in]

Tipo: inteiro

Um valor Integer que contém as opções para o método . Isso pode ser zero ou uma combinação dos valores listados no membro ulFlags da estrutura BROWSEINFO .

vRootFolder [in, opcional]

Tipo: Variant

A pasta raiz a ser usada na caixa de diálogo. O usuário não pode navegar mais alto na árvore do que essa pasta. Se esse valor não for especificado, a pasta raiz usada na caixa de diálogo será a área de trabalho. Esse valor pode ser uma cadeia de caracteres que especifica o caminho da pasta ou um dos valores ShellSpecialFolderConstants . Observe que os nomes constantes encontrados em ShellSpecialFolderConstants estão disponíveis no Visual Basic, mas não em VBScript ou JScript. Nesses casos, os valores numéricos devem ser usados em seu lugar.

Valor retornado

JScript

Tipo: FOLDER**

Uma referência de objeto ao objeto Folder da pasta selecionada.

VB

Tipo: FOLDER**

Uma referência de objeto ao objeto Folder da pasta selecionada.

Exemplos

O exemplo a seguir usa BrowseForFolder para exibir uma janela de navegação intitulada "Exemplo" com raiz na pasta windows. O uso adequado é mostrado para JScript, VBScript e 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