Hallo Zusammen,
ich habe nachstehenden Code um alle Dateien eines Pfads inklusive Änderungsdatum auszulesen und in der Spalte A und B einzufügen:
Private Sub CommandButton1_Click()
Dim Dateiname As String, i As Integer
Dim dReturn As Date
Dim fsFile As Object
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Dateiname = Dir$("L:\Testpfad\*.*") 'Hier Verzeichnis und Datei angeben
cboTwoColumns = Format(cboTwoColumns, "TT.MM.JJJJ")
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = dReturn & vTab & "_" & vTab & Dateiname
ActiveCell.Offset(i, 1) = dReturn
i = i + 1
Dateiname = Dir$()
sFilePath = "L:\Testpfad\" & Dateiname
Set fsFile = fso.GetFile(sFilePath)
dReturn = fsFile.DateLastModified
Loop
End Sub
Leider ist es nun so, dass die erste Datei des Pfads kein korrektes Datumformat hat. Statt dem Format "dd.mm.yyyy hh:mm" wird nur "12:00:00 AM" angegeben. Das betrifft aber ausschließlich die erste Datei eines Pfads.
Kann hier jemand helfen?
Vielen DAnk im Voraus
|