Datei Zusatzinformationen - eigenschaften auslese und setzen

Question

Hallo,

gibt es eine Möglichkeit mit VB.net 2010 Dateieigenschaften-informationen wie z.B. Titel, Thema, Bewertung, Markierung, Kommentare, ....

auszulesen bzw. zu setzen. (Im Explorer werden diese Informationen auch angezeigt und können zum Teil auch verändert werden.)

Gruß

Günter

Answer 1

Hallo Günter,

direkt in .NET integriert gibt es da IIRC nichts. Aber über verschiedene Methoden kommt man ggfs. doch an die Informationen ran.

  http://www.google.de/#q=c%23+extended+file+properties

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community

Answer 2

Hallo Guenterm1968,

Lies mal auch folgendes: Structured Storage

Um welche Dateien handelt es sich? Für .xls, und .doc Dateien kannst Du mal mit http://www.mvps.org/emorcillo/en/code/grl/storage.shtml herumbasteln für auszulesen bzw. zu setzen („Wrapper classes for the OLE structured storage files and interfaces. You can use these classes to read the properties of Office documents.“).

[VB.NET Beispiel – Verweis auf Edanmo.OleStorage.dll setzten]

Imports Edanmo.OleStorage

Imports Edanmo.OleStorage.PropertyStorage

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim file As Storage = Nothing

        Dim propset As PropertySetStorage = Nothing

        Dim propstg As PropertyStorage = Nothing

        ' Open the file

        file = New Storage("C:\Temp\Whats_New_SharePoint_Server_2010_Beta.doc")

        ' Get the property set storage.

        propset = file.PropertySetStorage

        ' Properties are grouped in sets. There're 3 predefined sets:

        ' SummaryInformation, DocSummaryInformation and UserProperties.

        ' In this case we open the summary information storage

        propstg = propset.Open(PropertySetStorage.FMTID_SummaryInformation)

        ' Read the file author, revision number and comments

        MsgBox("Author: " & propstg.Item(PropertyStorage.SummaryProperty.Author))

        MsgBox("RevisionNumber: " & propstg.Item(PropertyStorage.SummaryProperty.RevisionNumber))

        MsgBox("Comments: " & propstg.Item(PropertyStorage.SummaryProperty.Comments))

        ' Write comments

        '//propstg.Item(PropertyStorage.SummaryProperty.Comments) = "Kommentare"

        ' Close all

        propstg.Close()

        propset.Close()

        file.Close()

    End Sub

End Class

Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 3

Hallo Robert,

Danke für die Antwort.

Ich kann aber leider die Edanmo.OleStorage.dll nicht finden zum testen.

Gruß

Günter

Answer 4

Ich kann aber leider die Edanmo.OleStorage.dll nicht finden zum testen.

Hallo Guenterm1968,

Unter http://www.mvps.org/emorcillo/en/code/grl/storage.shtml findest Du Rechts die Datei storage.zip.

Nach der Installation bekommst Du den Ordner: C:\Program Files (x86)\Edanmos VB Page. Dort gibt es die Datei Edanmo.OleStorage.dll in zwei Unterordnen:

C:\Program Files (x86)\Edanmos VB Page\Storage\OLEStorage\bin

C:\Program Files (x86)\Edanmos VB Page\Assemblies

Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 5

Hallo Guenterm1968,

Könntest Du Dein Problem lösen? Wenn ja, es wäre schön, wenn Du posten würdest wie es funktioniert hat, denn dann profitieren unter Umständen andere mit dem gleichen Problem davon.

Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.