Método FolderItems2.InvokeVerbEx
Ejecuta un verbo en una colección de objetos FolderItem . Este método es una extensión del método InvokeVerb , lo que permite un 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 cadena de verbo que corresponde al comando que se va a ejecutar. Si no se especifica ningún verbo, se ejecuta el verbo predeterminado.
-
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 verbo concreto.
Comentarios
Un verbo es una cadena que se usa para especificar una acción determinada asociada a un elemento o una colección de elementos. Normalmente, al llamar a un verbo se inicia una aplicación relacionada. Por ejemplo, al llamar al verbo abierto en un archivo .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 verbo predeterminado ("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 | Value |
---|---|
Cliente mínimo compatible |
Windows 2000 Professional, Windows XP [solo aplicaciones de escritorio] |
Servidor mínimo compatible |
Windows Server 2003 [solo aplicaciones de escritorio] |
Encabezado |
|
IDL |
|
Archivo DLL |
|
Consulte también