Folder.ParentFolder-Eigenschaft
Enthält das übergeordnete Folder-Objekt .
Diese Eigenschaft ist schreibgeschützt.
ParentFolder = Folder.ParentFolder
Ein Objektverweis auf das ParentFolder-Objekt.
Hinweis
Nicht alle Methoden sind für alle Ordner implementiert. Die ParseName-Methode ist beispielsweise nicht für den ordner Systemsteuerung (CSIDL_CONTROLS) implementiert. Wenn Sie versuchen, eine nicht implementierte Methode aufzurufen, wird ein 0x800A01BD (Dezimalfehler 445) ausgelöst.
Das folgende Beispiel zeigt die ordnungsgemäße Verwendung von ParentFolder für JScript, VBScript und Visual Basic.
Jscript:
<script language="JScript">
function fnFolderParentFolderJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfPROGRAMS = 2;
objFolder = objShell.NameSpace(ssfPROGRAMS);
if (objFolder != null)
{
var objParentFolder;
objParentFolder = objFolder.ParentFolder;
if (objParentFolder != null)
{
alert(objParentFolder.Title);
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderParentFolderVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfPROGRAMS
ssfPROGRAMS = 2
set objFolder = objShell.NameSpace(ssfPROGRAMS)
if (not objFolder is nothing) then
dim objParentFolder
set objParentFolder = objFolder.ParentFolder
if (not objParentFolder is nothing) then
alert(objParentFolder.Title)
end if
set objParentFolder = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnFolderParentFolderVB()
Dim objShell As Shell
Dim objFolder As Folder
Dim ssfPROGRAMS As Long
ssfPROGRAMS = 2
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfPROGRAMS)
If (Not objFolder Is Nothing) Then
Dim objParentFolder As Folder
Set objParentFolder = objFolder.ParentFolder
If (Not objParentFolder Is Nothing) Then
Debug.Print objParentFolder.Title
End If
Set objParentFolder = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
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 |
|
IDL |
|
DLL |
|