TKSoft-Online

Hallo,
trage mich schon länger mit einem Problem, wozu ich noch keine vollständige Lösung gefunden habe.

Problem:
Will für beliebige Dateitypen (xls, mdb, pdf, doc,jpg usw.) alle Dateiinformationen auslesen, welche über Eigenschaften/Dateiinfo angezeigt werden (ohne diese Dateien zu öffnen). Habe was gefunden,das es im Prinzip zu tun scheint (\"Shell.Application\"; Namespace --> siehe unten). Allerdings werden nicht alle ausgelesen. Z.B. werden bei Excel- Dateien die \"Stichwörter\" und \"Firma\" und bei pdf- Dateien die \"Quelle\" nicht ausgegeben, obwohl diese unter Eigenschaften/Dateiinfo belegt wurden und dort auch angezeigt werden. Hat dazu jemand einen Tipp? Vielleicht kann man auch die Attribute auf andere Art auslesen?


'Dateieigenschaften einer Datei auslesen
Sub DateieigenschaftenSingle(strDatei As String, ByVal strPath As String)
Dim objShell As Object
Dim objFolder As Object
Dim x As Byte
Dim spalte As Integer
Dim zeile As Long
Dim varName, arrHeaders(34)
spalte = 14
zeile = 1
If Dir(strPath, 16) = \"\" Then
MsgBox \"Der Ordner \" & strPath & \" wurde nicht gefunden!\" & Space(10), 64, \"weise hin...\"
Exit Sub
End If
Set objShell = CreateObject(\"Shell.Application\")
Set objFolder = objShell.Namespace(\"\" & strPath & \"\")
For x = 0 To 33
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Cells(zeile + x, spalte) = arrHeaders(x)
Next
Columns(spalte).Font.Bold = True
For Each varName In objFolder.Items
If varName = strDatei Then 'nur für eine Datei
For x = 0 To 33
Cells(zeile + x, spalte + 1) = objFolder.GetDetailsOf(varName, x)
Next
End If
Next
End Sub


Hier in Datei mit Anwendung:
Im Beispiel kann über Button Dateiauswahl eine Datei gewählt werden. Die Dateiinformationen werden dann in Spalte O ausgegeben. das Auslesen übernimmt die Routine \"DateieigenschaftenSingle\"

Hallo mopitz,

um es einfach zu sagen; Dafür gibt es keine eierlegende Wollmichsau-Lösung.
Ausser in VB.NET, das ist es im Framework enthalten.
Für Office-Dateien empfiehlt sich die dsofile.dll
(http://www.microsoft.com/downloads/details.aspx?FamilyId=9BA6FAC6-520B-4A0A-878A-53EC8300C4C2&displaylang=en)
Für Bilddateien gibt es verschiedene Lösungen die alle aber keine befriedigten Ergebnisse bringen.
Bei PDF's sieht es ähnlich aus.