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\*.*")
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