wann wurden die Dateien geaendert?
11.12.2006 22:39:20
Gábor
ich habe folgendes Problem. Ich möchte mir das Aenderungs- Datum verschiedener Dateien ansehen. Ich habe auch schon ein makro, welches dies hervoragend erledigt aber nicht bei Dateien mit denen Windows offenbar nichts anfangen kann. Im Explorer wird fuer diese Dateien keine Erweiterung angezeigt ein Aenderungsdatum aber schon. Das Makro findet auch diese Dateien nicht.
Wer kann mir hier weiterhelfen?
Hier der bissherige CODE:
Sub wann_geaendert_vorlage()
'pfad_zusammenbau
Sheets("wann geaendert").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = _
"=auswertung!R[1]C&"":\""&""excel\""&auswertung!R[1]C[-2]&""\""&auswertung!R[1]C[-1]&""\"""
'delete
Rows("2:65536").Select
Selection.Delete Shift:=xlUp
'fill
Dim strExt$, strFile$, strPath$, i%
strPath = Range("E1") 'Pfad
strExt = "*.*" 'Dateiextension
If strPath = "" Then
Exit Sub
Else
i = 2
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
ActiveSheet.Cells(i, 1).Value = strPath & strFile
ActiveSheet.Cells(i, 2).Value = FileDateTime(strPath & strFile)
i = i + 1
strFile = Dir() ' nächste Datei
Loop
End If
End Sub
Danke fuer jede Antwort
Gábor