Public Class Form1
 
    Sub Form_Load(ByVal Sender As Object, ByVal e As EventArgs) Handles _
      MyBase.Load
        Dim Dso As New DSOleFile.PropertyReader
        Dim DocPfad As String = Environment.GetFolderPath( _
          Environment.SpecialFolder.MyDocuments)
        'Dim Dso As Object = CreateObject("DSOleFile.PropertyReader")
        Dim DsoProps As Object
        For Each Fi As FileInfo In New DirectoryInfo(DocPfad).GetFiles("*.doc")
            DsoProps = Dso.GetDocumentProperties(Fi.FullName)
            Dim Tn As TreeNode = TreeView1.Nodes.Add(Fi.Name, Fi.Name, 0)
            Tn.Nodes.Add("Autor", "Autor: " & DsoProps.Author, 1)
            Tn.Nodes.Add("AnzahlWorte", "Anzahl Worte: " & DsoProps.WordCount, _
              1)
            Tn.Nodes.Add("Dokumentversion", "Dokumentversion: " & _
            DsoProps.RevisionNumber, 1)
        Next
    End Sub
End Class