Shell.BrowseForFolder-Methode
Erstellt ein Dialogfeld, in dem der Benutzer einen Ordner auswählen und dann das Ordnerobjekt des ausgewählten Ordners zurückgibt.
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: Ganze Zahl
Das Handle für das übergeordnete Fenster des Dialogfelds. Dieser Wert kann auch 0 sein.
-
sTitle [ In]
-
Typ: BSTR
Ein Zeichenfolgenwert, der den Titel darstellt, der im Dialogfeld Durchsuchen angezeigt wird.
-
iOptions [ In]
-
Typ: Ganze Zahl
Ein Ganzzahlwert, der die Optionen für die -Methode enthält. Dies kann 0 (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 weiter oben als in diesem Ordner suchen. Wenn dieser Wert nicht angegeben ist, 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 konstanten Namen in ShellSpecialFolderConstants 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 Ordner Windows gerootet ist. Die richtige 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
Requirements (Anforderungen)
| Anforderung | Wert |
|---|---|
| Unterstützte Mindestversion (Client) |
Windows 2000 Professional, nur Windows [ XP-Desktop-Apps] |
| Unterstützte Mindestversion (Server) |
Windows 2000 Server [nur Desktop-Apps] |
| Header |
|
| IDL |
|
| DLL |
|