s = "C:\Users\Administrator\Desktop\1.docx"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")
Set oFolder = oShell.NameSpace(oFSO.GetParentFolderName(s))
Set oFolderItem = oFolder.ParseName(oFSO.GetFileName(s))
s = oFolderItem.ExtendedProperty("DocAuthor")
MsgBox TypeName(s)    'String()
MsgBox  VarType(s)    '8200 = vbArray + vbString
复制代码

s = oFolderItem.ExtendedProperty("System.Author")
复制代码

s = oFolderItem.ExtendedProperty("{F29F85E0-4FF9-1068-AB91-08002B27B3D9}, 4")
复制代码

//  Name:     System.Size -- PKEY_Size
//  Type:     UInt64 -- VT_UI8
//  FormatID: (FMTID_Storage) {B725F130-47EF-101A-A5F1-02608C9EEBAC}, 12 (PID_STG_SIZE)
复制代码

//  Name:     System.Author -- PKEY_Author
//  Type:     Multivalue String -- VT_VECTOR | VT_LPWSTR  (For variants: VT_ARRAY | VT_BSTR)  Legacy code may treat this as VT_LPSTR.
//  FormatID: (FMTID_SummaryInformation) {F29F85E0-4FF9-1068-AB91-08002B27B3D9}, 4 (PIDSI_AUTHOR)
复制代码

$oshell=new-object -comobject shell.application
$s="C:\Users\xx\Desktop\1.docx"
$ofolder=$oshell.NameSpace(17)
 $ofolderitem=$ofolder.ParseName($s)
$ss=$ofolderitem.ExtendedProperty("DocArthor")
 $ss.GetType()
#IsPublic IsSerial Name                                     BaseType
#-------- -------- ----                                     --------
#True     True     String[]                                 System.Array 
$ss.length
#1
复制代码

    [DispId(1610809345)]
    [return: MarshalAs(UnmanagedType.Struct)]
    object ExtendedProperty([In][MarshalAs(UnmanagedType.BStr)] string bstrPropName);
复制代码

dynamic shell =Microsoft.VisualBasic.Interaction.CreateObject("Shell.Application");
复制代码

        String s = s = @"C:\Users\xx\Desktop\1.docx";
        var ofolder =(new Shell32.Shell()).NameSpace(17);
        var ofolderitem = (Shell32.FolderItem2)ofolder.ParseName(s);
        var ss = ofolderitem.ExtendedProperty("DocAuthor");
复制代码

public static VariantType VarType(object VarName) {
    if (VarName == null) {
        return VariantType.Object;
    }
    return VarTypeFromComType(VarName.GetType());
}
internal static VariantType VarTypeFromComType(Type typ) {
    if ((object) typ == null) {
        return VariantType.Object;
    }

    if (typ.IsArray) {
        typ = typ.GetElementType();
        if (typ.IsArray) {
            return (VariantType) 8201;
        }

        VariantType variantType = VarTypeFromComType(typ);
        if ((variantType & VariantType.Array) != 0) {
            return (VariantType) 8201;
        }

        return variantType | VariantType.Array;
    }

    if (typ.IsEnum) {
        typ = Enum.GetUnderlyingType(typ);
    }

    if ((object) typ == null) {
        return VariantType.Empty;
    }

    switch (Type.GetTypeCode(typ)) {
        case TypeCode.String:
            return VariantType.String;
        case TypeCode.Int32:
            return VariantType.Integer;
        case TypeCode.Int16:
            return VariantType.Short;
        case TypeCode.Int64:
            return VariantType.Long;
        case TypeCode.Single:
            return VariantType.Single;
        case TypeCode.Double:
            return VariantType.Double;
        case TypeCode.DateTime:
            return VariantType.Date;
        case TypeCode.Boolean:
            return VariantType.Boolean;
        case TypeCode.Decimal:
            return VariantType.Decimal;
        case TypeCode.Byte:
            return VariantType.Byte;
        case TypeCode.Char:
            return VariantType.Char;
        case TypeCode.DBNull:
            return VariantType.Null;
        default:
            if ((object) typ == typeof(Missing) || (object) typ == typeof(Exception) || typ.IsSubclassOf(typeof(Exception))) {
                return VariantType.Error;
            }

            if (typ.IsValueType) {
                return VariantType.UserDefinedType;
            }

            return VariantType.Object;
    }
}
public enum VariantType {
    Empty = 0, Null = 1, Short = 2, Integer = 3, Single = 4, Double = 5, Currency = 6, Date = 7, String = 8, Object = 9, Error = 10, Boolean = 11, Variant = 12, DataObject = 13, Decimal = 14, Byte = 17, Char = 18, Long = 20, UserDefinedType = 36, Array = 8192
}
复制代码