VBS: Auflistung aller Dateien mit A Flag rekursiv im Verzeichnisbaum

Hallo zusammen,
ich habe Dennis Bistron Script auf seiner Webseite blog.bistron.eu/scripting/e-mail-benachrichtigung-bei-neuenveral ... so modifiziert, das es alle Dateien mit Archiv Flag auflistet.
Das macht es auch wunderbar, allerdings nur im aktuellen Verzeichnis.
Leider benötige ich das nun mit allen Dateien incl. Pfad des Unterverzeichnisses und des Dateinamens.

Ich bekomme den Loop nicht hin, auch Unterverzeichnisse zu durchforsten.
Hat da jemand vielleicht ein Codeschnipsel für mich parat ?

vielen Dank im Voraus
Lg Ingo


CONST F_ATTR_HIDDEN = 2
CONST F_ATTR_STANDARD = 32 ‘ Normal ist nur Attribut Archiv

Function getArchivFlag(strF)

Set MyFSO = CreateObject(“Scripting.FileSystemObject”)
Set oFS=MyFSO.GetFile(strF) ‘ obj File Source

If oFS.Attributes AND F_ATTR_STANDARD Then
getArchivFlag = “true”
‘Danach wird das Archivflag wegegnommen
oFS.Attributes=oFS.attributes-32
End If

End Function

Danach darauf abgefragt und alle Dateien in die E-Mail gepackt, nicht nur die Letzte :

‘* Neustes Objekt ermitteln
For Each objF In colObj
strFName = objF.Name
‘* Test Endung
If IsEmpty(strExt) Or LCase(Right(strFName, intLenExt)) = LCase(strExt) Then
intFAge = getArchivFlag(objF.Path)

If intFAge = “true” then
‘strNewestF = objF.Name
strNewestF = strNewestF & objF.Name & vbCRLF

End if
End If
Next

06.05.2013
- Option -ca: Erkennung neuer Dateien am Archiv-Attribut
- Option -ra: Gesetztes Archiv-Attribut entfernen
- Option -s: Durchsuchen von Unterordnern
- MAXFILES neuste Objekte werden in E-Mail aufgelistet