Änderungsdatum in Ordner und Unterordner
08.03.2004 14:16:57
Russi
kurze Frage. Was muss ich in untenstehendes Makro noch einbauen, damit ich neben den Angaben der gefundenen Dateien das Änderungsdatum ("Geändert am") und den Dateityp separat ("Typ") gemäß Explorer anzeigen lassen möchte? Habe leider keinen Ansatz.
Für eure Hilfe besten Dank
Andreas
---- Makro ----
Sub Start()
Set ASF = Application.FileSearch
Pfad = Application.InputBox("Bitte den Pfad eingeben", "Pfad", "f:\eigene dateien\")
If Pfad = False Then Exit Sub
Columns("A:A").ClearContents
With ASF
On Error GoTo Errorhandler
ChDir Pfad
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True
.Filename = "*.*"
If .Execute > 0 Then
MsgBox "Es wurden " & .FoundFiles.Count & _
" Datei(en) gefunden.", vbInformation, _
"Anzahl Dateien:"
For i = 1 To .FoundFiles.Count
Sheets(1).Cells(i, 1) = .FoundFiles(i)
Next i
Else
MsgBox "Es wurden keine Dateien gefunden", _
vbCritical, "Keine Dateien"
Exit Sub
End If
End With
Columns("A:A").AutoFit
Exit Sub
Errorhandler:
MsgBox "Pfad " & Pfad & " nicht gefunden", vbCritical, "Fehler:"
End
Sub