Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Änderungsdatum in Ordner und Unterordner

Änderungsdatum in Ordner und Unterordner
08.03.2004 14:16:57
Russi
Hallo Forum,
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

                    

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Änderungsdatum erledigt...
08.03.2004 15:26:24
Russi
siehe oben...
Anzeige

112 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige