Metodo Shell.BrowseForFolder

Crea una finestra di dialogo che consente all'utente di selezionare una cartella e quindi restituisce l'oggetto Folder della cartella selezionata.

Sintassi

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

Parametri

Hwnd [in]

Tipo: Intero

Handle nella finestra padre della finestra di dialogo. Il valore può essere zero.

sTitle [in]

Tipo: BSTR

Valore String che rappresenta il titolo visualizzato all'interno della finestra di dialogo Sfoglia .

iOptions [in]

Tipo: Intero

Valore Integer che contiene le opzioni per il metodo. Questo può essere zero o una combinazione dei valori elencati nel membro ulFlags della struttura BROWSEINFO .

vRootFolder [in, facoltativo]

Tipo: Variant

Cartella radice da usare nella finestra di dialogo. L'utente non può esplorare più alto nell'albero rispetto a questa cartella. Se questo valore non è specificato, la cartella radice usata nella finestra di dialogo è il desktop. Questo valore può essere una stringa che specifica il percorso della cartella o uno dei valori ShellSpecialFolderConstants . Si noti che i nomi costanti trovati in ShellSpecialFolderConstants sono disponibili in Visual Basic, ma non in VBScript o JScript. In questi casi, i valori numerici devono essere usati al loro posto.

Valore restituito

JScript

Tipo: FOLDER**

Riferimento all'oggetto Folder della cartella selezionata.

VB

Tipo: FOLDER**

Riferimento all'oggetto Folder della cartella selezionata.

Esempio

Nell'esempio seguente viene usato BrowseForFolder per visualizzare una finestra di esplorazione denominata "Esempio" radicata nella cartella di Windows. L'utilizzo appropriato viene visualizzato per 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

Requisiti