| Autor |
Nachricht |
mopitz
Im Profil kannst Du frei den Rang ändern
Verfasst am: 12. März 2010, 10:48 Rufname:
|
|
| Version: Office 2003 |
|
Hallo,
habe folgendes 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?
| Code: | '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 x
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 x
End If
Next varName
End Sub |
_________________ nitram
|
|
Sinister
Access-Programmierer

Verfasst am: 12. März 2010, 17:11 Rufname:
|
| |
| Version: Office 2003 |
|
Hallo,
Die Infos werden in der Datei selbst gespeichert und daher für Dateisystem unsichtbar:
_________________ Warum einfach, wenn es kompliziert geht!?
| Beschreibung: |
|
| Dateigröße: |
33.56 KB |
| Angeschaut: |
544 mal |

|
|
|
mopitz
Im Profil kannst Du frei den Rang ändern
Verfasst am: 15. März 2010, 08:01 Rufname:
|
|
| Version: Office 2003 |
|
Hallo,
vielen Dank fpr die Antwort. Leider nützt mir dies nichts. Der Sinn des Auslesens ist es, die Informationen in Attributen abzulegen, welche zum Befüllen eines Dokumentenmanagementsystems dienen (u.a. zur besseren Auffindbarkeit). Da es sich um viele Dokumente handelt, für welche automatisch beim Hochladen in das DMS diese Attrubute belegt werden sollen, ist ein automatischer Zugriff darauf z.B. per VBA zwingend.
_________________ nitram
|
|
Sinister
Access-Programmierer

Verfasst am: 15. März 2010, 12:15 Rufname:
|
| |
| Version: Office 2003 |
|
Wie gesagt, die Infos stehen in der Datei, man muss diese öffnen, um an die Infos zu kommen. Windows (ich habe Adobe Reader 8.2.1) benutzt dafür die Bibliothek "PScript5.dll"; diese könnte man mit VBA einbinden. Weiter weiß ich nicht.
Ebensolcher Spaß mit jedem Datentyp.
_________________ Warum einfach, wenn es kompliziert geht!?
|
|
Du kannst Beiträge in dieses Forum schreiben. Du kannst auf Beiträge in diesem Forum antworten. Du kannst deine Beiträge in diesem Forum nicht bearbeiten. Du kannst deine Beiträge in diesem Forum nicht löschen. Du kannst an Umfragen in diesem Forum nicht mitmachen. Du kannst Dateien in diesem Forum nicht posten Du kannst Dateien in diesem Forum herunterladen
|
| |

|
|
| Verwandte Themen |
| Forum / Themen |
Antworten |
Autor |
Aufrufe |
Letzter Beitrag |
 |
Access Programmierung / VBA: Werte aus einer XML-Datei in Textfelder auslesen |
9 |
ice-devil86 |
334 |
15. Dez 2009, 13:06 ice-devil86  |
 |
Access Formulare: Wert aus Kombinationsfeld auslesen |
2 |
Dr.Spock |
444 |
01. Dez 2009, 11:35 Dr.Spock  |
 |
Access Programmierung / VBA: Access-Benutzer auslesen |
12 |
BoRo85 |
1279 |
25. Nov 2008, 12:32 BoRo85  |
 |
Access Programmierung / VBA: Programm erstellen zum auslesen von wechselrichter |
0 |
Bardl111 |
334 |
16. Okt 2008, 13:02 Bardl111  |
 |
Access Tabellen & Abfragen: Tabelleneigenschaften auslesen und Pause im Makro setzen |
3 |
thorstenseidel76 |
1792 |
22. Jun 2008, 15:18 JörgG  |
 |
Access Programmierung / VBA: Alle offenen Excel-Mappen auslesen |
1 |
Stefan5 |
226 |
28. Mai 2008, 19:09 rita2008  |
 |
Access Programmierung / VBA: mac adresse auslesen |
0 |
hund555@ |
1654 |
06. Mai 2008, 10:21 hund555@  |
 |
Access Programmierung / VBA: Listenfeld Spalte auslesen |
2 |
Walli07 |
441 |
10. Feb 2008, 18:28 Walli07  |
 |
Access Formulare: Tabelle auslesen und formular öffnen |
3 |
Bodde |
418 |
14. Sep 2007, 10:26 Bodde  |
 |
Access Programmierung / VBA: Felddatentyp auslesen |
6 |
GregorJ |
1647 |
08. Mai 2007, 23:52 GregorJ  |
 |
Access Programmierung / VBA: VBA Code auslesen |
16 |
macxman |
1453 |
24. Apr 2007, 08:42 macxman  |
 |
Access Programmierung / VBA: Arbeitzeiten 4stellig/5stellig auslesen ... |
2 |
Marja |
317 |
22. März 2007, 16:41 Marja  |
| |
|