En klass som loopar ut undermappar/filer

Tja!
En tidig julklapp till alla som letar ett script som loopar ut alla undermappar och filer.

Nu har jag suttit o "knåpat" på en klass som loopar ut undermappar och filer(i undermapparna också).

För att t.ex loopa alla mappar i C:\Inetpub\wwwroot skriver man helt enkelt såhär:

Dim Katalog
Set Katalog = New cCatalog
Katalog.SetFileTypes = "*"
Katalog.Execute("C:\InetPub\wwwroot\")
Set Katalog = Nothing

Du kan även ändra utskrivningshtml:en för mapparna o filerna med 2 metoder och du kan även välja filtyper som ska skrivas ut.

Dim Katalog
Set Katalog = New cCatalog
Katalog.SetFileTypes = ".mp3"
Katalog.FileHTML = "<br /><a href=""¤"">¤</a>"
Katalog.FolderHTML = "<br /><a style=""font-weight: bold;"">¤</a>"
Katalog.Execute("C:\InetPub\wwwroot\")
Set Katalog = Nothing

Till exempel.

Tecknet ¤ byts ut mot filnamnet och kan användas hur många gånger som helst..

Enjay ;D