Método FolderItems2.InvokeVerbEx

Ejecuta un verb objeto en una colección de objetos FolderItem . Este método es una extensión del método InvokeVerb , lo que permite el control adicional de la operación a través de un conjunto de marcas.

Sintaxis

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

Parámetros

vVerb [in, opcional]

Tipo: Variant

Variant con la verb cadena que corresponde al comando que se va a ejecutar. Si no se especifica , verb se ejecuta el valor predeterminado verb .

vArgs [in, opcional]

Tipo: Variant

Variant que consta de una cadena con uno o varios argumentos para el comando especificado por vVerb. El formato de esta cadena depende del determinado verb.

Observaciones

Es verb una cadena que se usa para especificar una acción determinada asociada a un elemento o colección de elementos. Normalmente, la llamada a verb inicia una aplicación relacionada. Por ejemplo, al llamar a openverb en un archivo de .txt normalmente se abre el archivo con un editor de texto, normalmente el Bloc de notas de Microsoft. Para obtener más información sobre los verbos, consulte Inicio de aplicaciones.

Ejemplos

En el ejemplo siguiente se usa InvokeVerbEx para invocar el valor predeterminado verb ("open") en Mi equipo. Se muestra un uso adecuado para JScript, VBScript y 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

Requisitos

Requisito	Importancia
Cliente mínimo compatible	Windows 2000 Professional, Windows XP [solo aplicaciones de escritorio]
Servidor mínimo compatible	Windows Server 2003 [solo aplicaciones de escritorio]
Cabecera	Shldisp.h
IDL	Shldisp.idl
Archivo DLL	Shell32.dll (versión 5.0 o posterior)

Consulte también

FolderItems2

InvokeVerb