ShellFolderItem.ExtendedProperty 方法

從專案的屬性集取得屬性的值。 屬性可以依名稱或屬性集的格式識別碼指定， (FMTID) 和屬性識別碼 (PID) 。

語法

retVal = ShellFolderItem.ExtendedProperty(
  sPropName
)

參數

sPropName [in]

類型： BSTR

指定 屬性的 String 值。 如需詳細資訊，請參閱＜備註＞一節。

傳回值

類型： Variant*

當這個方法傳回時，如果指定專案存在，則包含 屬性的值。 此值會完整輸入，例如，日期會以日期的形式傳回，而不是字串。

如果屬性有效但不存在於指定的專案，否則會傳回零長度字串，否則會傳回錯誤碼。

備註

有兩種方式可以指定屬性。 第一個是將屬性的已知名稱，例如 「Author」 或 「Date」 指派給 sPropName。 不過，每個屬性都是元件物件模型 (COM) 屬性集的成員，也可以藉由指定其格式識別碼 (FMTID) 和屬性識別碼 (PID) 來識別。 FMTID是識別屬性集的GUID，而 PID是識別屬性集內特定屬性的整數。

藉由 FMTID/PID 值指定屬性通常比使用其名稱更有效率。 若要搭配 ExtendedProperty使用屬性的 FMTID/PID 值，必須將它們合併成 SCID。 SCID 是字串，其中包含格式為 「FMTID**PID」 的 FMTID/PID值，其中 FMTID 是屬性集 GUID 的字串格式。 例如，摘要資訊屬性集作者屬性的 SCID 是 「{F29F85E0-4FF9-1068-AB91-08002B27B3D9} 4」。

如需殼層目前支援的 FMTID 和 PID 清單，請參閱 SHCOLUMNID。

範例

此範例程式碼說明如何使用ExtendedProperty從Word檔擷取 「Title」 和 「Author」 屬性。 一旦您有與檔案相關聯的 ShellFolderItem 物件，在此範例中 為 fiWordDoc ，請將屬性的名稱傳遞至 ExtendedProperty來擷取屬性值。

...
Doc_Title=fiWordDoc.ExtendedProperty("DocTitle")
Doc_Author=fiWordDoc.ExtendedProperty("Author")
...

更快速且更有效率的方法是將 SCID 傳遞至 ExtendedProperty。

...
FMTID_SummaryInfo="{F29F85E0-4FF9-1068-AB91-08002B27B3D9}"
PID_TITLE="2"
PID_AUTHOR="4"
SCID_TITLE=FMTID_SummaryInfo+" "+PID_TITLE
SCID_AUTHOR=FMTID_SummaryInfo+" "+PID_AUTHOR
Doc_Title=fiWordDoc.ExtendedProperty(SCID_TITLE)
Doc_Author=fiWordDoc.ExtendedProperty(SCID_AUTHOR)
...

下列範例顯示 JScript、VBScript 和 Visual Basic 的適當使用此方法。

Jscript：

<script language="JScript">
    function fnFolderItem2ExtendedPropertyJ()
    {
        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)
            {
                var szReturn = "";
                
                szReturn = objFolderItem.ExtendedProperty("infotip");
                alert(szReturn);
            }
        }
    }
</script>

VBScript：

<script language="VBScript">
    function fnFolderItemExtendedPropertyVB()
        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
                    
                    szReturn = objFolderItem.ExtendedProperty("type")
                    alert(szReturn)
                end if
                set objFolderItem = nothing
            end if
            set objFolder2 = nothing
        end if
        set objShell = nothing
    end function
 </script>

Visual Basic：

Private Sub fnFolderItem2ExtendedPropertyVB()
    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
                    Dim szReturn As String
                    
                    szReturn = objFolderItem2.ExtendedProperty("size")
                    Debug.Print szReturn
                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

規格需求