Propriété FolderItems3.Verbs
Obtient la liste des verbes communs à tous les éléments de dossier.
Cette propriété est en lecture seule.
Syntaxe
Verbs = FolderItems3.Verbs
Valeur de la propriété
Adresse d’un pointeur vers la collection de verbes. Consultez FolderItemVerbs.
Exemples
L’exemple suivant montre l’utilisation correcte de Verbs pour JScript, VBScript et Visual Basic.
Jscript:
<script language="JScript">
function fnFolderItems3VerbsJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder;
var ssfWINDOWS = 17;
objFolder = objShell.NameSpace(ssfWINDOWS);
if (objFolder != null)
{
var objFolderItems3;
objFolderItems3 = objFolder.Items();
if (objFolderItems3 != null)
{
var objFolderItemVerbs;
objFolderItemVerbs = objFolderItems3.Verbs;
alert(objFolderItemVerbs.Item(0));
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderItems3VerbsVB()
dim objShell
set objShell = CreateObject("shell.application")
if (not objShell is nothing) then
dim objFolder
dim ssfDRIVES
ssfWINDOWS = 17
set objFolder = objShell.NameSpace(ssfWINDOWS)
if (not objFolder is nothing) then
dim objFolderItems3
set objFolderItems3 = objFolder.Items()
if (not objFolderItems3 is nothing) then
dim objFolderItemVerbs
set objFolderItemVerbs = objFolderItems3.Verbs
if (not objFolderItemVerbs is nothing) then
alert(objFolderItemVerbs.Item(0))
end if
set objFolderItemVerbs = nothing
end if
set objFolderItems3 = nothing
end if
set objFolder = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic :
Private Sub fnFolderItems3VerbsVB()
Dim objShell As Shell
Dim objFolder As Folder
Dim ssfWINDOWS As Long
ssfWINDOWS = 36
Set objShell = New Shell
Set objFolder = objShell.NameSpace(ssfWINDOWS)
If (Not objFolder Is Nothing) Then
Dim objFolderItems3 As FolderItems3
Set objFolderItems3 = objFolder.Items
If (Not objFolderItems3 Is Nothing) Then
Dim objFolderItemVerbs As FolderItemVerbs
Set objFolderItemVerbs = objFolderItems3.Verbs
If (Not objFolderItemVerbs Is Nothing) Then
Debug.Print objFolderItemVerbs.Item(0)
End If
Set objFolderItemVerbs = Nothing
End If
Set objFolderItems3 = Nothing
End If
Set objFolder = Nothing
Set objShell = Nothing
End Sub
Spécifications
Condition requise | Valeur |
---|---|
Client minimal pris en charge |
Windows XP [applications de bureau uniquement] |
Serveur minimal pris en charge |
Windows Server 2003 [applications de bureau uniquement] |
En-tête |
|
IDL |
|
DLL |
|
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour