FolderItemVerb.Name property

Contains the verb's name.

This property is read-only.


strName = FolderItemVerb.Name

Property value

A variable of type BSTR that receives the Name property.


The following example uses Name to retrieve the name of the first item in the collection of verbs to which the user's Program folder responds. Proper usage is shown for JScript, VBScript, and Visual Basic.


<script language="JScript">
    function fnFolderItemVerbNameJ()
        var objShell    = new ActiveXObject("shell.application");
        var objFolder;
        var ssfPROGRAMS = 2;
        objFolder = objShell.NameSpace(ssfPROGRAMS);
        if (objFolder != null)
            var objVerbs;
            objVerbs = objFolder.Self.Verbs();
            if (objVerbs != null)
                var szReturn = "";
                szReturn = objVerbs.Item(0).Name;


<script language="VBScript">
    function fnFolderItemVerbNameVB()
        dim objShell
        set objShell = CreateObject("shell.application")
        if (not objShell is nothing) then
            dim objFolder
            dim ssfPROGRAMS
            ssfPROGRAMS = 2
            set objFolder = objShell.NameSpace(ssfPROGRAMS)
            if (not objFolder is nothing) then
                dim objVerbs
                set objVerbs = objFolder.Self.Verbs
                    if (not objVerbs is nothing) then
                        dim szReturn
                        szReturn = objVerbs.Item(0).Name
                    end if
                set objVerbs = nothing
            end if
            set objFolder = nothing
        end if
        set objShell = nothing
    end function

Visual Basic:

Private Sub fnFolderItemVerbNameVB()
    Dim objShell    As Shell
    Dim objFolder2  As Folder2
    Dim ssfPROGRAMS As Long
    ssfPROGRAMS = 2
    Set objShell = New Shell
    Set objFolder2 = objShell.NameSpace(ssfPROGRAMS)
    If (Not objFolder2 Is Nothing) Then
        Dim objVerbs As FolderItemVerbs
        Set objVerbs = objFolder2.Self.Verbs
            If (Not objVerbs Is Nothing) Then
                Dim szReturn As String
                szReturn = objVerbs.Item(0).Name
                Debug.Print szReturn
            End If
        Set objVerbs = Nothing
    End If
    Set objFolder2 = Nothing
    Set objShell = Nothing
End Sub


Requirement Value
Minimum supported client
Windows 2000 Professional, Windows XP [desktop apps only]
Minimum supported server
Windows 2000 Server [desktop apps only]
Shell32.dll (version 4.71 or later)