Metodo IShellDispatch.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 = 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

Parametri

Hwnd [in]

Tipo: Integer

Handle per la 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: Integer

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

vRootFolder [in, facoltativo]

Tipo: Variant

Cartella radice da utilizzare nella finestra di dialogo. L'utente non può esplorare più in alto nell'albero rispetto a questa cartella. Se questo valore non viene specificato, la cartella radice utilizzata 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 delle costanti disponibili 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 oggetto all'oggetto Folder della cartella selezionata.

VB

Tipo: FOLDER**

Riferimento oggetto all'oggetto Folder della cartella selezionata.

Commenti

Questo metodo viene implementato e accessibile tramite il metodo Shell.BrowseForFolder .

Esempio

Gli esempi seguenti usano BrowseForFolder per visualizzare una finestra di esplorazione denominata "Example" rooted nella cartella Windows. Viene visualizzato l'utilizzo 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