Как добавить пользовательское свойство в файл

---

Всем привет,

Мне нужно добавить пользовательское свойство в файл. Свойство (например, комментарий) должно быть видно на вкладке detail, когда я открываю файл правой клавишей мыши.

Вы не могли бы мне помочь?

Спасибо

Марчелло

Что я уже пробовал:

Я попытался добавить пользовательское свойство с помощью библиотеки DSOFile.
Кажется, это работает, но если я открою свойство файла, то не увижу добавленного свойства:

Dim file As New OleDocumentProperties
file.Open("C:\Users\mela\Desktop\file.txt", False, dsoFileOpenOptions.dsoOptionDefault)

Dim has_property As Boolean = False
For Each p As DSOFile.CustomProperty In file.CustomProperties
    If p.Name = "Comment" Then
        has_property = True
    End If
Next

If has_property Then
   For Each x As DSOFile.CustomProperty In file.CustomProperties
      'update existing comment
       If x.Name = "Comment" Then
          x.Value = "Updated Comment"
       End If
   Next
Else
   'add new comment
    file.CustomProperties.Add("Comment", "Comment Inserted")
End If

file.Close(True)

---