Ver contenidos de carpetas y subcarpetas

[Fuso]

Hola:

Queria saber como puedo aparte de ver lo que tengo en las carpetas y subcarpetas poder mostrarlo.

Me explico he hecho el codigo para poder ver el contenido de las carpetas, pero me sale un listado de dichas carpetas pero no tengo acceso a ellas, y ese es mi problem:

Os pego el codigo que tngo hecho:

Código:

<%
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "AKI VA LA RUTA "

Set objFolder = objFSO.GetFolder(objStartFolder)
response.write "<br>"&objFolder.Path&"<br>"&"<br>"
Set colFiles = objFolder.Files
For Each objFile in colFiles
  response.write objFile.Name&"<br>"
Next


ShowSubfolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
      response.write "<br>"&Subfolder.Path&"<br>"&"<br>"
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
           response.write objFile.Name&"<br>"
        Next
        ShowSubFolders Subfolder
    Next
End Sub

%>

Espero que me podais ayudar...