Метод FolderItem.InvokeVerb

Выполняет элемент verb .

Синтаксис

FolderItem.InvokeVerb(
  [ vVerb ]
)

Параметры

vVerb [in, необязательный]

Тип: Variant

Строка, указывающая verb выполнение. Оно должно быть одним из значений, возвращаемых свойством FolderItemVerb.Name элемента. Если значение не verb задано, по умолчанию будет вызвано значение по умолчанию verb .

Возвращаемое значение

Этот метод не возвращает значение.

Замечания

Строка verb , используемая для указания определенного действия, которое поддерживает элемент. verb Вызов эквивалентен выбору команды из контекстного меню элемента. Как правило, при вызове связанного verb приложения запускается соответствующее приложение. Например, вызов "open" verb в файле .txt открывает файл с текстовым редактором, как правило, Microsoft Notepad. Дополнительные сведения о командах см. в разделе "Запуск приложений ".

Объект FolderItemVerbs представляет коллекцию команд, связанных с элементом. Значение по умолчанию verb может отличаться для разных элементов, но обычно это "open".

Примеры

В следующем примере для вызова по умолчанию verb ("open" в данном случае) в папке Windows используется InvokeVerb. Правильное использование отображается для JScript, VBScript и 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

Требования

См. также

FolderItem

Глаголы

DoIt