Dim i As Integer
Dim vDate As Variant
Dim sPath As String
 
sPath = txtPath.Text
If Right$(sPath, 1) <> "\" Then sPath & sPath & "\"
 
With sevList1
  For i = 1 To .ListCount
    vDate = FileDateTime(sPath & .SubItems(i, 1))
    .SubItems(i, 2) = Format$(vDate, "dd.mm.yyyy hh:nn:ss")    
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de