Probier mal:
Dim oPropSet As PropertySet
For Each oPropSet In oPropSets
' Iterate through all the Properties in the current set.
Dim oProp As Property
For Each oProp in oPropset
' Obtain the Name of the Property
Dim Name As String
Name = oProperty.Name
' Obtain the Value of the Property
Dim Value As Variant
Value = oProperty.Value
' Obtain the PropertyId of the Property
Dim PropertyId As Long
PropertyId = oProperty.PropId
Next
Next
aus der Hilfe :-))
Grüsse
Jürgen
------------------
Grüsse
Jürgen
www.dressler.biz << IV Newsletter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP