Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jpeg Erstelldatum einlesen

Jpeg Erstelldatum einlesen
14.12.2006 14:20:23
Adem
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

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

Betreff
Datum
Anwender
Anzeige
AW: Jpeg Erstelldatum einlesen
14.12.2006 14:34:37
ransi
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
Anzeige
Kleine Korrektur...
14.12.2006 14:40:57
ransi
Hallo
...damit du auch wirklich alle erwischt:
.Filename = "*.jp*g"
ransi
AW: Kleine Korrektur...
14.12.2006 14:55:48
Adem
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige