哪里有EPDM二次开发的论坛？国内国外的都行

574395

谁能贴个输出自定义属性值的代码？
1 m: G1 z. R* P/ C+ ]再给出BOM输出到EXCEL的代码，谢谢！！

可以参考
Private Sub ShowFolderComment(folder As IEdmFolder5)! _/ R/ v( y* i) t( T
On Error GoTo ErrHand' i& P8 p6 o! Z; F# ?6 ?
6 e# g7 ~! F/ W7 a$ k
3 x9 ]/ h8 T3 A5 i7 n' p1 w) u Dim varEnum As IEdmEnumeratorVariable5
+ e+ ]4 `3 f8 D. D# L9 O Set varEnum = folder
/ o3 t; `. u+ }/ C$ l Dim value As Variant
If varEnum.GetVar("comment", "", value) Then
( K  U! I- g. Q6 a) j* ~: U   MsgBox value
/ r8 Y' S$ d6 s8 h$ L Else
   MsgBox "<No comment found.>"+ J- u6 `8 n& ?8 J
& d* N* ?" `: m6 z2 \ End If3 {& W$ o& r' f, V
6 c) c. s5 N) f' c- g' [ Exit Sub 9 o1 ~! J4 U; n+ E2 S3 Y& ]: d
* W" H% z/ U, Q$ s: x9 C, P1 N1 O
) E! Q, K  S; E7 U5 c5 T7 |! uErrHand:) S& S. ?% [) C$ h0 _, p
  Dim ename As String% }5 J; C. w$ X. n0 a* e
  Dim edesc As String. F( e% q1 J' U4 H
  folder.vault.GetErrorString Err.Number, ename, edesc) S  }! G- p1 k4 m4 R
& F: x* n) {! M+ }; p  MsgBox ename + vbLf + edesc9 X6 ^; |) M# G+ Q+ _0 O) ~1 b
4 c( X7 d( q5 ]" kEnd Sub