ShellFolderItem.ExtendedProperty-Methode

Ruft den Wert einer Eigenschaft aus dem Eigenschaftensatz eines Elements ab. Die Eigenschaft kann entweder anhand des Namens oder durch den Formatbezeichner (FMTID) und den Eigenschaftsbezeichner (PID) des Eigenschaftssatzes angegeben werden.

Syntax

retVal = ShellFolderItem.ExtendedProperty(
  sPropName
)

Parameter

sPropName [in]

Typ: BSTR

Ein String-Wert , der die -Eigenschaft angibt. Weitere Informationen finden Sie im Abschnitt Hinweise.

Rückgabewert

Typ: Variant*

Wenn diese Methode zurückgibt, enthält den Wert der -Eigenschaft, wenn sie für das angegebene Element vorhanden ist. Der Wert verfügt über eine vollständige Eingabe, z. B. werden Datumsangaben als Datumsangaben und nicht als Zeichenfolgen zurückgegeben.

Diese Methode gibt eine Zeichenfolge der Länge Null zurück, wenn die Eigenschaft gültig ist, aber für das angegebene Element nicht vorhanden ist, oder andernfalls einen Fehlercode.

Bemerkungen

Es gibt zwei Möglichkeiten, eine Eigenschaft anzugeben. Die erste besteht darin, sPropName den bekannten Namen der Eigenschaft zuzuweisen, z. B. "Author" oder "Date". Jede Eigenschaft ist jedoch Mitglied eines Com-Eigenschaftssatzes (Component Object Model) und kann auch durch Angabe ihrer Format-ID (FMTID) und der Eigenschaften-ID (PID) identifiziert werden. Eine FMTID ist eine GUID, die den Eigenschaftensatz identifiziert, und eine PID ist eine ganze Zahl, die eine bestimmte Eigenschaft innerhalb des Eigenschaftensatzes identifiziert.

Das Angeben einer Eigenschaft durch ihre FMTID/PID-Werte ist in der Regel effizienter als die Verwendung ihres Namens. Um die FMTID/PID-Werte einer Eigenschaft mit ExtendedProperty zu verwenden, müssen sie in einer SCID kombiniert werden. Eine SCID ist eine Zeichenfolge, die die FMTID/PID-Werte im Format "FMTID**PID" enthält, wobei fmTID die Zeichenfolgenform der GUID des Eigenschaftensatzes ist. Beispielsweise lautet die SCID der Eigenschaft autor des Zusammenfassungsinformations-Eigenschaftssatzes "{F29F85E0-4FF9-1068-AB91-08002B27B3D9} 4".

Eine Liste der FMTIDs und PIDs, die derzeit von der Shell unterstützt werden, finden Sie unter SHCOLUMNID.

Beispiele

In diesem Beispielcode wird veranschaulicht, wie Sie extendedProperty verwenden, um die Eigenschaften "Title" und "Author" aus einem Word Dokument abzurufen. Nachdem Sie das ShellFolderItem-Objekt der Datei zugeordnet haben, ruft fiWordDoc in diesem Beispiel den Wert der Eigenschaft ab, indem sie ihren Namen an ExtendedProperty übergeben.

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

Ein schnellerer und effizienterer Ansatz ist die Übergabe einer SCID an 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)
...

Die folgenden Beispiele zeigen die ordnungsgemäße Verwendung dieser Methode für JScript, VBScript und 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

Anforderungen