返回列表 发帖
jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
1楼 跳转到 »
发表于 2024-9-21 13:13 | 显示全部帖子
本帖最后由 jyswjjgdwtdtj 于 2024-9-21 13:34 编辑 
  1. $oshell=new-object -comobject shell.application

  2. $s="C:\Users\xx\Desktop\1.docx"

  3. $ofolder=$oshell.NameSpace(17)

  4.  $ofolderitem=$ofolder.ParseName($s)

  5. $ss=$ofolderitem.ExtendedProperty("DocArthor")

  6.  $ss.GetType()

  7. #IsPublic IsSerial Name                                     BaseType

  8. #-------- -------- ----                                     --------

  9. #True     True     String[]                                 System.Array 

  10. $ss.length

  11. #1
复制代码

用c#鼓捣半天总是报错
  1.     [DispId(1610809345)]

  2.     [return: MarshalAs(UnmanagedType.Struct)]

  3.     object ExtendedProperty([In][MarshalAs(UnmanagedType.BStr)] string bstrPropName);
复制代码
vbs的ubound函数可以正常使用至于为什么会是个string()可能是允许一个文档有多个作者吧
你好

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
2楼
发表于 2024-9-21 14:31 | 显示全部帖子
回复 8# flashercs


   我试图这样
  1.         String s = s = @"C:\Users\xx\Desktop\1.docx";

  2.         var ofolder =(new Shell32.Shell()).NameSpace(17);

  3.         var ofolderitem = (Shell32.FolderItem2)ofolder.ParseName(s);

  4.         var ss = ofolderitem.ExtendedProperty("DocAuthor");
复制代码
你好

TOP

jyswjjgdwtdtj

Rank: 5Rank: 5

帖子
672 
积分
797 
技术
35  
捐助
0  
注册时间
2023-2-9 
3楼
发表于 2024-9-22 21:51 | 显示全部帖子
本帖最后由 jyswjjgdwtdtj 于 2024-9-22 21:53 编辑

不用猜了
  1. public static VariantType VarType(object VarName) {

  2.     if (VarName == null) {

  3.         return VariantType.Object;

  4.     }

  5.     return VarTypeFromComType(VarName.GetType());

  6. }

  7. internal static VariantType VarTypeFromComType(Type typ) {

  8.     if ((object) typ == null) {

  9.         return VariantType.Object;

  10.     }

  11. 

  12.     if (typ.IsArray) {

  13.         typ = typ.GetElementType();

  14.         if (typ.IsArray) {

  15.             return (VariantType) 8201;

  16.         }

  17. 

  18.         VariantType variantType = VarTypeFromComType(typ);

  19.         if ((variantType & VariantType.Array) != 0) {

  20.             return (VariantType) 8201;

  21.         }

  22. 

  23.         return variantType | VariantType.Array;

  24.     }

  25. 

  26.     if (typ.IsEnum) {

  27.         typ = Enum.GetUnderlyingType(typ);

  28.     }

  29. 

  30.     if ((object) typ == null) {

  31.         return VariantType.Empty;

  32.     }

  33. 

  34.     switch (Type.GetTypeCode(typ)) {

  35.         case TypeCode.String:

  36.             return VariantType.String;

  37.         case TypeCode.Int32:

  38.             return VariantType.Integer;

  39.         case TypeCode.Int16:

  40.             return VariantType.Short;

  41.         case TypeCode.Int64:

  42.             return VariantType.Long;

  43.         case TypeCode.Single:

  44.             return VariantType.Single;

  45.         case TypeCode.Double:

  46.             return VariantType.Double;

  47.         case TypeCode.DateTime:

  48.             return VariantType.Date;

  49.         case TypeCode.Boolean:

  50.             return VariantType.Boolean;

  51.         case TypeCode.Decimal:

  52.             return VariantType.Decimal;

  53.         case TypeCode.Byte:

  54.             return VariantType.Byte;

  55.         case TypeCode.Char:

  56.             return VariantType.Char;

  57.         case TypeCode.DBNull:

  58.             return VariantType.Null;

  59.         default:

  60.             if ((object) typ == typeof(Missing) || (object) typ == typeof(Exception) || typ.IsSubclassOf(typeof(Exception))) {

  61.                 return VariantType.Error;

  62.             }

  63. 

  64.             if (typ.IsValueType) {

  65.                 return VariantType.UserDefinedType;

  66.             }

  67. 

  68.             return VariantType.Object;

  69.     }

  70. }

  71. public enum VariantType {

  72.     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

  73. }
复制代码
这里的short对应vbsint interger对于vbslong
你好

TOP

返回列表