Dateiinfos aus VBA auslesen

Forumthread: Dateiinfos aus VBA auslesen

15.07.2003 08:39:07

Marsupilami

ist es möglich,dateiinfos von datei x wie version Datum der Erstellung und größe auszulesen?
wenn ja wie lautet der befehl dafür und wie geht das am besten? :)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateiinfos aus VBA auslesen

15.07.2003 09:05:29

Bernd held
AW: Dateiinfos aus VBA auslesen

15.07.2003 09:00:11

Mac4
AW: Dateiinfos aus VBA auslesen

15.07.2003 08:58:47

Mac4

AW: Dateiinfos aus VBA auslesen

15.07.2003 09:05:29

Bernd held

Hallo Marsipulami (-;
sowas in der Art sollte dir weiterhelfen:

Sub Dateienauslesen()
Dim s_Dateiname As String
Dim i As Integer
Dim fs As FileSystemObject
Dim f As Object
i = 1
Cells(i, 1).Value = "Dateiname"
Cells(i, 2).Value = "Letzte ÄÄnderung"
Cells(i, 3).Value = "Erstellungsdatum"
Cells(i, 4).Value = "Letzter Zugriff"
Cells(i, 5).Value = "Größe"
Cells(i, 6).Value = "Typ"
Range(Cells(i, 1), Cells(i, 6)).Font.Bold = True
On Error Goto Ende:
ChDir "D:\Eigene Dateien\"
s_Dateiname = Dir$("D:\Eigene Dateien\*.*")
Do While s_Dateiname <> ""
   i = i + 1
   Cells(i, 1).Value = s_Dateiname
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(s_Dateiname)
   Cells(i, 2).Value = f.DateLastModified
   Cells(i, 3).Value = f.DateCreated
   Cells(i, 4).Value = f.DateLastAccessed
   Cells(i, 5).Value = f.Size
   Cells(i, 6).Value = f.Type
   s_Dateiname = Dir$()
  Loop
  ActiveSheet.Columns("A:F").AutoFit
  Exit Sub
Ende:
  MsgBox "Das angegebene Verzeichnis existiert nicht!", vbCritical
End Sub

Code eingefügt mit Syntaxhighlighter 1.14

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de

Sub DateiEigenchaften() Worksheets("Tabelle1").Activate For rw = 1 To 30 On Error Resume Next Cells(rw, 1) = ActiveWorkbook.BuiltinDocumentProperties(rw).Name Cells(rw, 2) = ActiveWorkbook.BuiltinDocumentProperties(rw).Value Next End Sub

Infobox / Tutorial

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Informationen wie das Erstellungsdatum, Änderungsdatum und die Größe einer Datei auszulesen, kannst du das folgende VBA-Skript verwenden:

Sub Dateienauslesen()
    Dim s_Dateiname As String
    Dim i As Integer
    Dim fs As FileSystemObject
    Dim f As Object
    i = 1
    Cells(i, 1).Value = "Dateiname"
    Cells(i, 2).Value = "Letzte Änderung"
    Cells(i, 3).Value = "Erstellungsdatum"
    Cells(i, 4).Value = "Letzter Zugriff"
    Cells(i, 5).Value = "Größe"
    Cells(i, 6).Value = "Typ"
    Range(Cells(i, 1), Cells(i, 6)).Font.Bold = True
    On Error GoTo Ende:
    ChDir "D:\Eigene Dateien\"
    s_Dateiname = Dir$("D:\Eigene Dateien\*.*")
    Do While s_Dateiname <> ""
        i = i + 1
        Cells(i, 1).Value = s_Dateiname
        Set fs = CreateObject("Scripting.FileSystemObject")
        Set f = fs.GetFile(s_Dateiname)
        Cells(i, 2).Value = f.DateLastModified
        Cells(i, 3).Value = f.DateCreated
        Cells(i, 4).Value = f.DateLastAccessed
        Cells(i, 5).Value = f.Size
        Cells(i, 6).Value = f.Type
        s_Dateiname = Dir$()
    Loop
    ActiveSheet.Columns("A:F").AutoFit
    Exit Sub
Ende:
    MsgBox "Das angegebene Verzeichnis existiert nicht!", vbCritical
End Sub

Dieses Makro listet alle Dateien im angegebenen Verzeichnis auf und gibt deren Eigenschaften wie das Änderungsdatum und das Erstellungsdatum aus.

Häufige Fehler und Lösungen

Fehlermeldung: "Das angegebene Verzeichnis existiert nicht!"
- Überprüfe den Pfad im ChDir Befehl und stelle sicher, dass das Verzeichnis existiert.
Keine Daten in den Zellen
- Stelle sicher, dass das Verzeichnis Dateien enthält. Überprüfe auch, ob du die richtigen Berechtigungen hast.
Fehler beim Auslesen der Eigenschaften
- Stelle sicher, dass du die Scripting.FileSystemObject-Bibliothek aktiviert hast.

Alternative Methoden

Falls du die Dateiinfos nicht mit VBA auslesen möchtest, kannst du auch die Excel-Funktion CELL verwenden, um bestimmte Informationen zu erhalten. Beispielsweise:

=CELL("filename", A1)

Diese Funktion gibt den Namen der Datei zurück, in der sich die Zelle A1 befindet.

Praktische Beispiele

Um das PDF-Erstelldatum auszulesen, kannst du ähnlich vorgehen. Verwende ein VBA-Skript, das die Datei mit der Adobe Acrobat-Bibliothek öffnet und das Erstelldatum abruft.

Sub PDF_Erstellungsdatum()
    Dim pdfFile As String
    pdfFile = "D:\Eigene Dateien\deine_datei.pdf"
    ' Hier steht der Code zum Auslesen des Erstelldatums
End Sub

Tipps für Profis

Nutze die Try-Catch-Methode in VBA, um Fehler während des Auslesens abzufangen und besser zu diagnostizieren.
Experimentiere mit der FileSystemObject-Bibliothek, um weitere Informationen wie die Dateiversion auszulesen.
Halte deine Excel-Version aktuell, um von den neuesten Funktionen und Bugfixes zu profitieren.

FAQ: Häufige Fragen

1. Wie kann ich das Änderungsdatum einer Datei in Excel auslesen?
Verwende das FileSystemObject in VBA, um das Änderungsdatum mit f.DateLastModified abzufragen.

2. Ist es möglich, das Erstellungsdatum einer PDF-Datei auszulesen?
Ja, du kannst auch das Erstellungsdatum einer PDF-Datei auslesen, indem du eine geeignete Bibliothek verwendest, die PDF-Dateien unterstützt.

3. Funktioniert das Skript in allen Excel-Versionen?
Das VBA-Skript sollte in den meisten Excel-Versionen funktionieren, jedoch ist es ratsam, Excel 2010 oder neuer zu verwenden, um volle Kompatibilität sicherzustellen.

Beliebteste Forumthreads (12 Monate)

Dateiinfos aus VBA auslesen

Forumthread: Dateiinfos aus VBA auslesen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial