Herbers Excel-Forum - das Archiv

Jpeg Erstelldatum einlesen

Bild

Betrifft: Jpeg Erstelldatum einlesen
von: Adem

Geschrieben am: 14.12.2006 14:20:23
Hallo Allerseits!
Ich habe ca.20000 Jpegs. Von diesen möchte ich das Erstelldatum bzw. wann es geändert wurde in Excel einlesen. Ist sowas möglich?
Habe schon "gegooglt", jedoch keine brauchbaren Ergebnisse gefunden.
Erwartungsvoll und Grüße aus Südhessen
Adem
Bild

Betrifft: AW: Jpeg Erstelldatum einlesen
von: ransi

Geschrieben am: 14.12.2006 14:34:37
HAllo Adem
Test mal dies hier:

Option Explicit
Public Sub test()
Dim Fs As FileSearch
Dim FsO
Dim Datums
Dim Bild
Dim L As Long
Set Fs = Application.FileSearch
Set FsO = CreateObject("Scripting.FileSystemObject")
L = 1
With Fs
    .NewSearch
    .LookIn = "D:/" 'Pfad anpassen
    .Filename = "*.JPEG"
    .SearchSubFolders = True
    .Execute
            For Each Bild In .FoundFiles
            Set Datums = FsO.getfile(Bild)
                Cells(L, 1) = Bild
                Cells(L, 2) = Datums.datecreated
                Cells(L, 3) = Datums.dateLastModified
                L = L + 1
            Next
End With
End Sub

Code eingefügt mit Syntaxhighlighter 4.0


ransi
Bild

Betrifft: Kleine Korrektur...
von: ransi
Geschrieben am: 14.12.2006 14:40:57
Hallo
...damit du auch wirklich alle erwischt:
.Filename = "*.jp*g"
ransi
Bild

Betrifft: AW: Kleine Korrektur...
von: Adem

Geschrieben am: 14.12.2006 14:55:48
ransi....ich bin fassungslos.....
ich such schon seit 4h im Internet rum, nach einer Software die die Dateien archiviert...und du----unfassbar!!!!!!!
EIN RIESENDANKESCHÖN!
Wirklich, das ist das beste Forum der Welt!!
DANKE!
ADEM
 Bild
Excel-Beispiele zum Thema "Jpeg Erstelldatum einlesen"
Tabellenblattnamen in ein Listenfeld einlesen Gefilterte Daten in eine ListBox einlesen
Einlesen von Zellinhalten in Variablen 1000 Arbeitsblätter aus 1000 Arbeitsmappen einlesen
Tabellenblattnamen in eine ListBox einlesen Text aus UserForm-Textbox in Variable einlesen
Blätter in ComboBox-Feld einlesen und auswählen Dateinamen in Tabelle einlesen
Namen einer Arbeitsmappe einlesen