Metode FolderItem.InvokeVerb

Artikel
06/13/2023

Menjalankan kata kerja pada item.

Sintaks

FolderItem.InvokeVerb(
  [ vVerb ]
)

Parameter

vVerb [in, opsional]

Jenis: Varian

String yang menentukan kata kerja yang akan dijalankan. Ini harus menjadi salah satu nilai yang dikembalikan oleh properti FolderItemVerb.Name item. Jika tidak ada kata kerja yang ditentukan, kata kerja default akan dipanggil.

Menampilkan nilai

Metode ini tidak mengembalikan nilai.

Keterangan

Kata kerja adalah string yang digunakan untuk menentukan tindakan tertentu yang didukung item. Memanggil kata kerja setara dengan memilih perintah dari menu pintasan item. Biasanya, memanggil kata kerja meluncurkan aplikasi terkait. Misalnya, memanggil kata kerja "buka" pada file .txt membuka file dengan editor teks, biasanya Microsoft Notepad. Lihat Meluncurkan Aplikasi untuk diskusi lebih lanjut tentang kata kerja.

Objek FolderItemVerbs mewakili kumpulan kata kerja yang terkait dengan item. Kata kerja default dapat bervariasi untuk item yang berbeda, tetapi biasanya "terbuka".

Contoh

Contoh berikut menggunakan InvokeVerb untuk memanggil kata kerja default ("buka" dalam hal ini) pada folder Windows. Penggunaan yang tepat ditampilkan untuk JScript, VBScript, dan Visual Basic.

Jscript:

<script language="JScript">
    function fnFolderItemInvokeVerbJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var objFolder2;
        var ssfWINDOWS = 36;
        
        objFolder2 = objShell.NameSpace(ssfWINDOWS);
        if (objFolder2 != null)
        {
            var objFolderItem;
            
            objFolderItem = objFolder2.Self;
            if (objFolderItem != null)
            {
                var szReturn;
                
                objFolderItem.InvokeVerb();
            }
        }
    }
</script>

Vbscript:

<script language="VBScript">
    function fnFolderItemInvokeVerbVB()
        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
                    dim szReturn
                                
                    objFolderItem.InvokeVerb()
                end if
                set objFolderItem = nothing
            end if
            set objFolder2 = nothing
        end if
        set objShell = nothing
    end function
</script>

Visual Basic:

Private Sub fnFolderItemInvokeVerbVB()
    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 objFolderItem As FolderItem
            
            Set objFolderItem = objFolder2.Self
                If (Not objFolderItem Is Nothing) Then
                    Dim szReturn As String
                    
                    objFolderItem.InvokeVerb
                Else
                    'FolderItem object returned nothing.
                End If
            Set objFolderItem = Nothing
        Else
            'Folder object returned nothing.
        End If
    Set objFolder2 = Nothing
    Set objShell = Nothing
End Sub

Persyaratan

Persyaratan	Nilai
Klien minimum yang didukung	Windows 2000 Professional, Windows XP [hanya aplikasi desktop]
Server minimum yang didukung	Windows 2000 Server [hanya aplikasi desktop]
Header	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (versi 4.71 atau yang lebih baru)

Lihat juga

FolderItem
Kata kerja
DoIt

Bagikan melalui