Méthode FolderItem.Verbs
Récupère l’objet FolderItemVerbs de l’élément. Cet objet est la collection de verbes qui peuvent être exécutés sur l’élément.
Syntaxe
retVal = FolderItem.Verbs()
Paramètres
Cette méthode n’a aucun paramètre.
Valeur retournée
Type : FolderItemVerbs**
Référence d’objet à l’objet FolderItemVerbs .
Exemples
L’exemple suivant utilise Verbs pour récupérer l’objet FolderItemVerbs représentant l’ensemble de verbes qui peuvent être exécutés sur le dossier Windows. Une utilisation correcte est indiquée pour JScript, VBScript et Visual Basic.
Jscript:
<script language="JScript">
function fnFolderItemVerbsJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder2;
var ssfWINDOWS = 36;
objFolder2 = objShell.NameSpace(ssfWINDOWS);
if (objFolder2 != null)
{
var objFolderItem;
objFolderItem = objFolder2.Self;
if (objFolderItem != null)
{
var objItemVerbs;
objItemVerbs = objFolderItem.Verbs();
if (objItemVerbs != null)
{
// Add code here
}
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderItemVerbsVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder2
dim ssfWINDOWS
ssfWINDOWS = 36
set objFolder2 = objShell.NameSpace(ssfWINDOWS)
if (not objFolder2 is nothing) then
dim objFolderItem
set objFolderItem = objFolder2.Self
if (not objFolderItem is nothing) then
dim objItemVerbs
set objItemVerbs = objFolderItem.Verbs
if (not objItemVerbs is nothing) then
'Add code here
end if
set objItemVerbs = nothing
end if
set objFolderItem = nothing
end if
set objFolder2 = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic :
Private Sub fnFolderItemVerbsVB()
Dim objShell As Shell
Dim objFolder2 As Folder2
Dim ssfWINDOWS As Long
ssfWINDOWS = 36
Set objShell = New Shell
Set objFolder2 = objShell.NameSpace(ssfWINDOWS)
If (Not objFolder2 Is Nothing) Then
Dim objFolderItem As FolderItem
Set objFolderItem = objFolder2.Self
If (Not objFolderItem Is Nothing) Then
Dim objItemVerbs As FolderItemVerbs
Set objItemVerbs = objFolderItem.Verbs
If (Not objItemVerbs Is Nothing) Then
'Add code here
End If
Set objItemVerbs = Nothing
Else
'FolderItem object returned nothing.
End If
Set objFolderItem = Nothing
Else
'Folder object returned nothing.
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
Spécifications
Condition requise | Valeur |
---|---|
Client minimal pris en charge |
Windows 2000 Professionnel, Windows XP [applications de bureau uniquement] |
Serveur minimal pris en charge |
Windows 2000 Server [applications de bureau uniquement] |
En-tête |
|
IDL |
|
DLL |
|
Voir aussi