FolderItems2.InvokeVerbEx, méthode

Exécute une verb collection d’objets FolderItem . Cette méthode est une extension de la méthode InvokeVerb , ce qui permet un contrôle supplémentaire de l’opération via un ensemble d’indicateurs.

Syntaxe

iRetVal = FolderItems2.InvokeVerbEx(
  [ vVerb ],
  [ vArgs ]
)

Paramètres

vVerb [in, facultatif]

Type : Variant

Variant avec la verb chaîne qui correspond à la commande à exécuter. Si aucune valeur n’est verb spécifiée, la valeur par défaut verb est exécutée.

vArgs [in, facultatif]

Type : Variant

Variant qui se compose d’une chaîne avec un ou plusieurs arguments à la commande spécifiée par vVerb. Le format de cette chaîne dépend de l’élément particulier verb.

Remarques

Il verb s’agit d’une chaîne utilisée pour spécifier une action particulière associée à un élément ou une collection d’éléments. En règle générale, l’appel d’une verb application associée lance une application associée. Par exemple, l’appel du openverb fichier sur un .txt ouvre normalement le fichier avec un éditeur de texte, généralement le Bloc-notes Microsoft. Pour plus d’informations sur les verbes, consultez Lancement d’applications.

Exemples

L’exemple suivant utilise InvokeVerbEx pour appeler la valeur par défaut verb («open ») sur Mon ordinateur. Une utilisation appropriée s’affiche pour JScript, VBScript et Visual Basic.

JScript :

<script language="JScript">
    function fnFolderItems2InvokeVerbExJ()
    {
        var objShell  = new ActiveXObject("shell.application");
        var objFolder;
        var ssfDRIVES = 17;
        
        objFolder = objShell.NameSpace(ssfDRIVES);
        if (objFolder != null)
        {
            var objFolderItems2;
            
            objFolderItems2 = objFolder.Items();
            if (objFolderItems2 != null)
            {
                objFolderItems2.InvokeVerbEx();
            }
        }
    }
</script>

VBScript :

<script language="VBScript">
    function fnFolderItems2InvokeVerbExVB()
        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 objFolderItems2
                        
                set objFolderItems2 = objFolder.Items()
                if (not objFolderItems2 is nothing) then
                    objFolderItems2.InvokeVerbEx
                end if
                set objFolderItems2 = nothing
            end if
            set objFolder = nothing
        end if
        set objShell = nothing
    end function
</script>

Visual Basic :

Private Sub fnFolderItems2InvokeVerbExVB()
    Dim objShell      As Shell
    Dim objFolder     As Folder2
    Dim ssfDRIVES     As Long
    
    ssfDRIVES = 17
    Set objShell = New Shell
    Set objFolder = objShell.NameSpace(ssfDRIVES)
        If (Not objFolder Is Nothing) Then
            Dim objFolderItems2 As FolderItems
            
            Set objFolderItems2 = objFolder.Items
                If (Not objFolderItems2 Is Nothing) Then
                    objFolderItems2.InvokeVerbEx
                End If
            Set objFolderItems2 = Nothing
        End If
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Spécifications

Voir aussi

FolderItems2

InvokeVerb