Shell.BrowseForFolder-Methode

Artikel
06/13/2023

Erstellt ein Dialogfeld, das es dem Benutzer ermöglicht, einen Ordner auszuwählen, und gibt dann das Folder-Objekt des ausgewählten Ordners zurück.

Syntax

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

Parameter

Hwnd [in]

Typ: Integer

Das Handle zum übergeordneten Fenster des Dialogfelds. Dieser Wert kann auch 0 sein.

sTitle [in]

Typ: BSTR

Ein String-Wert , der den Im Dialogfeld Durchsuchen angezeigten Titel darstellt.

iOptions [in]

Typ: Integer

Ein Integer-Wert , der die Optionen für die -Methode enthält. Dies kann null oder eine Kombination der Werte sein, die unter dem ulFlags-Member der BROWSEINFO-Struktur aufgeführt sind.

vRootFolder [in, optional]

Typ: Variant

Der Stammordner, der im Dialogfeld verwendet werden soll. Der Benutzer kann in der Struktur nicht höher als in diesem Ordner suchen. Wenn dieser Wert nicht angegeben wird, ist der Im Dialogfeld verwendete Stammordner der Desktop. Dieser Wert kann eine Zeichenfolge sein, die den Pfad des Ordners oder einen der ShellSpecialFolderConstants-Werte angibt. Beachten Sie, dass die in ShellSpecialFolderConstants gefundenen Konstantennamen in Visual Basic, aber nicht in VBScript oder JScript verfügbar sind. In diesen Fällen müssen die numerischen Werte an ihrer Stelle verwendet werden.

Rückgabewert

JScript

Typ: FOLDER**

Ein Objektverweis auf das Folder-Objekt des ausgewählten Ordners.

VB

Typ: FOLDER**

Ein Objektverweis auf das Folder-Objekt des ausgewählten Ordners.

Beispiele

Im folgenden Beispiel wird BrowseForFolder verwendet, um ein Suchfenster mit dem Titel "Beispiel" anzuzeigen, das im Windows-Ordner verwurzelt ist. Die ordnungsgemäße Verwendung wird für JScript, VBScript und Visual Basic angezeigt.

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

Anforderungen

Anforderung	Wert
Unterstützte Mindestversion (Client)	Windows 2000 Professional, Windows XP [nur Desktop-Apps]
Unterstützte Mindestversion (Server)	Windows 2000 Server [nur Desktop-Apps]
Header	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (Version 4.71 oder höher)

Share via