Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: ---> Tab2HTML: Excel Tabellen ins Forum! <-
Dateiinfo auslesen
zurück: Wertermittlung Access Datenbank weiter: Formular stets im Vordergrund anzeigen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mopitz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
12. März 2010, 10:48
Rufname:

Dateiinfo auslesen - Dateiinfo auslesen

Nach oben
       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:


AW: Dateiinfo auslesen - AW: Dateiinfo auslesen

Nach oben
       Version: Office 2003

Hallo,

Die Infos werden in der Datei selbst gespeichert und daher für Dateisystem unsichtbar:

_________________
Warum einfach, wenn es kompliziert geht!?



pdf_info.JPG
 Beschreibung:
PDF Info
 Dateigröße:  33.56 KB
 Angeschaut:  544 mal

pdf_info.JPG


mopitz
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. März 2010, 08:01
Rufname:

AW: Dateiinfo auslesen - AW: Dateiinfo auslesen

Nach oben
       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:


AW: Dateiinfo auslesen - AW: Dateiinfo auslesen

Nach oben
       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!?
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

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

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS