Metode ShellFolderItem.InvokeVerbEx
Menjalankan kata kerja pada item Shell.
iRetVal = ShellFolderItem.InvokeVerbEx(
[ vVerb ],
[ vArgs ]
)
-
vVerb [in, opsional]
-
Jenis: Varian
Varian yang berisi string kata kerja yang sesuai dengan perintah yang akan dijalankan. Ini harus menjadi salah satu nilai yang dikembalikan oleh properti Nama item. Jika tidak ada kata kerja yang ditentukan, kata kerja default dijalankan.
-
vArgs [in, opsional]
-
Jenis: Varian
Varian yang terdiri dari string dengan satu atau beberapa argumen ke perintah yang ditentukan oleh vVerb. Format string ini tergantung pada kata kerja tertentu.
Kata kerja adalah string yang digunakan untuk menentukan tindakan tertentu yang didukung item. Biasanya, memanggil kata kerja meluncurkan aplikasi terkait. Misalnya, memanggil kata kerja yang terbuka pada file .txt biasanya membuka file dengan editor teks, biasanya Microsoft Notepad. Objek FolderItemVerbs mewakili kumpulan kata kerja yang terkait dengan item. Untuk diskusi lebih lanjut tentang kata kerja, lihat Meluncurkan Aplikasi.
Metode ini mirip dengan InvokeVerb, tetapi memungkinkan Anda untuk menentukan argumen ke perintah serta perintah itu sendiri.
Contoh berikut menunjukkan penggunaan metode ini yang tepat di JScript, VBScript, dan Visual Basic.
Jscript:
<script language="JScript">
function fnFolderItem2InvokeVerbExJ()
{
var objShell = new ActiveXObject("shell.application");
var objFolder2;
var ssfWINDOWS = 36;
objFolder2 = objShell.NameSpace(ssfWINDOWS);
if (objFolder2 != null)
{
var objFolderItem;
objFolderItem = objFolder2.ParseName("NOTEPAD.EXE");
if (objFolderItem != null)
{
objFolderItem.InvokeVerbEx("open", "c:\\autoexec.bat");
}
}
}
</script>
Vbscript:
<script language="VBScript">
function fnFolderItemInvokeVerbExVB()
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
objFolderItem.InvokeVerbEx()
end if
set objFolderItem = nothing
end if
set objFolder2 = nothing
end if
set objShell = nothing
end function
</script>
Visual Basic:
Private Sub fnFolderItem2InvokeVerbExVB()
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 objFolderItem2 As Object
Set objFolderItem2 = objFolder2.ParseName("NOTEPAD.EXE")
If (Not objFolderItem2 Is Nothing) Then
objFolderItem2.InvokeVerbEx ("open")
Else
'FolderItem object returned nothing.
End If
Set objFolderItem2 = Nothing
Else
'Folder object returned nothing.
End If
Set objFolder2 = Nothing
Set objShell = Nothing
End Sub
Persyaratan | Nilai |
---|---|
Klien minimum yang didukung |
Windows 2000 Professional, Windows XP [hanya aplikasi desktop] |
Server minimum yang didukung |
Windows Server 2003 [hanya aplikasi desktop] |
Header |
|
IDL |
|
DLL |
|