Wie so oft hab ich die Antwort dann doch selbst gefunden (mit viel
Experimentieren und Raten:
Dieser Script z�hlt zB. Die Files in C: und untergeordneten Ordnern
'-------------------------------------------------------------------
Dim fso, fldr, a
Sub CountFiles(CountFolder)
Dim Files, Folder
Set Files = CountFolder.files
a = a + Files.Count
Set Files = Nothing
For Each Folder In CountFolder.SubFolders
CountFiles Folder
Next
Set Folder = Nothing
Set CountFolder = Nothing
End Sub
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:")
CountFiles fldr
MsgBox (a)
Set fldr = nothing
Set fso = nothing
'-------------------------------------------------------------------
Andreas Roth
--------------------------------------
[EMAIL PROTECTED] *jetzt mit Chat*
http://www.EuphoriasChild.DarkTech.org
--------------------------------------
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
