Hacer un listado de archivos de mi disco!

[yos77]

Hola amigos:

La estructura mostrada abajo funciona perfectamente para listar los archivos del directorio windows, pero a la hora de ponerle una variable ahi me manda error. He buscado por todos lados y siempre sale el mismo ejemplo. Quisiera que me ayudaran porque ya no se que hacer.

Quisiera hacer esto

Set directorio = fso.GetFolder (variable)

y no esto

Set directorio = fso.GetFolder ("C:\windows")


<%

'Conecto con el sistema de archivos
Set fso = CreateObject("Scripting.FileSystemObject")
Set directorio = fso.GetFolder ("C:\windows")


For Each fichero IN directorio.Files
Set file = fso.GetFile(fichero)
Response.Write fichero.Name &"<BR>"
Next

%>

Gracias.......