Ordnerinhalt auslesen

09/04/2008 - 12:16 von Jens Herhold | Report spam
Hallo,

ich möchte per VBA beim öffnen einer Liste die Anzahl der Inhalte von
ausgewàhlten Ordnern, z.B. C:\Eigene Dateien, mit dem aktuellen Datum
anzeigen lassen. so etwa:
Zelle A1 = aktuelles Datum, Zelle B1 = Anzahl Dateien

nàchster Tag (Mappe wird wieder geöffnet):
Zelle A2 = aktuelles Datum, Zelle B2 = Anzahl Dateien
(Die Pfade werden per Hand in den Code eingetragen.)
Grüße
 

Lesen sie die antworten

#1 stefan onken
09/04/2008 - 16:34 | Warnen spam
On 9 Apr., 12:16, Jens Herhold <Jens
wrote:
Hallo,

ich möchte per VBA beim öffnen einer Liste die Anzahl der Inhalte von
ausgewàhlten Ordnern, z.B. C:\Eigene Dateien, mit dem aktuellen Datum
anzeigen lassen. so etwa:
Zelle A1 = aktuelles Datum,  Zelle B1 = Anzahl Dateien

nàchster Tag (Mappe wird wieder geöffnet):
Zelle A2 = aktuelles Datum,  Zelle B2 = Anzahl Dateien
(Die Pfade werden per Hand in den Code eingetragen.)
Grüße



hallo Jens,
prinzpiell geht sowas mit FileDateTime, etwa so:

Sub AnzahlDateienVonHeute()
Pfad = "D:\test\"
Dateiname = Dir(Pfad & "*.xls")
Do While Dateiname <> ""
If Not FileDateTime(pfad & Dateiname) < Date Then
i = i + 1
End If
Dateiname = Dir$()
Loop
MsgBox i
End Sub

Anstatt des Vegleichs FiledateTime<Date (Dateien, die ein Datum in der
Zukunft haben, würden hier fàlschlich erkannt), ginge auch
If DateDiff("D", FileDateTime(Pfad & Dateiname), Date) = 0 Then

Gruß
stefan

Ähnliche fragen