Metode FolderItems2.InvokeVerbEx

Artikel
06/13/2023

Menjalankan kata kerja pada kumpulan objek FolderItem . Metode ini adalah ekstensi dari metode InvokeVerb , memungkinkan kontrol tambahan operasi melalui sekumpulan bendera.

Sintaks

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

Parameter

vVerb [in, opsional]

Jenis: Varian

Varian dengan string kata kerja yang sesuai dengan perintah yang akan dijalankan. 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.

Keterangan

Kata kerja adalah string yang digunakan untuk menentukan tindakan tertentu yang terkait dengan item atau kumpulan item. Biasanya, memanggil kata kerja meluncurkan aplikasi terkait. Misalnya, memanggil kata kerja terbuka pada file .txt biasanya membuka file dengan editor teks, biasanya Microsoft Notepad. Untuk diskusi lebih lanjut tentang kata kerja, lihat Meluncurkan Aplikasi.

Contoh

Contoh berikut menggunakan InvokeVerbEx untuk memanggil kata kerja default ("buka") di Komputer Saya. Penggunaan yang tepat ditampilkan untuk JScript, VBScript, dan 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

Persyaratan

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	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (versi 5.0 atau yang lebih baru)

Lihat juga

FolderItems2
InvokeVerb

Share via