Propriété Folder. ParentFolder
Contient l’objet dossier parent.
Cette propriété est en lecture seule.
Syntaxe
ParentFolder = Folder.ParentFolder
Valeur de la propriété
Référence d’objet à l’objet ParentFolder.
Notes
Notes
Toutes les méthodes ne sont pas implémentées pour tous les dossiers. Par exemple, la méthode ParseName n’est pas implémentée pour le dossier du panneau de configuration ( _ contrôles CSIDL). Si vous tentez d’appeler une méthode non implémentée, une erreur 0x800A01BD (Decimal 445) est générée.
Exemples
l’exemple suivant illustre l’utilisation correcte de ParentFolder pour JScript, VBScript et 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
Spécifications
| Condition requise | Valeur |
|---|---|
| Client minimal pris en charge |
Windows 2000 Professional, Windows XP [ desktop apps uniquement] |
| Serveur minimal pris en charge |
Windows 2000 Server - [Applications de bureau uniquement] |
| En-tête |
|
| MIDL |
|
| DLL |
|