Como despliego en Tree mi estructura de directorios???

[zero_sos]

Hola a todos.


Actualmente estoy teniendo un problema y espero que me puedan ayudar en este.

Me veo en la necesidad de permitir que un usuario pueda ver un tree de los directorios del disco C en el server... Como puedo hacer el Tree... existe algun componente o algo que me lo permita manejar?


Hasta ahora he estado probando con los FSO utilizandolo para que me retorne todos los formularios del disco c: ahora bien no se como hacer que me intente desplegar los subdirectorios cuando estan vacios porque al momento de hacer un llamado en un directorio que este vacio pues me da un error de que el path es invalido...

Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
s = s & f1.name
s = s & "<br>"
Next
response.write s
End Sub

Ese es un ejemplo, cuando le paso un nombre de directorio que no tiene subdirectorios pues da error al entrar en Set fc = f.SubFolders...

Como puedo validar que no lo ejecute si no tiene subdirectorios?

Gracias por su ayuda.

Att.

Edward