Script asp che non vede le cartelle su HD

[Mizushi]

Ciao, ho trovato con google questo script che legge i files contenuti sull'hd:

 <%@ LANGUAGE="VBSCRIPT" %>
    <% Option Explicit %>

<%

    	Dim objFSO

    	Dim objFile

    	Dim objFolder

    	Dim sMapPath

    	Set objFSO = CreateObject("Scripting.FileSystemObject")

    	sMapPath = "D:\"

    	Set objFolder = objFSO.GetFolder(sMapPath)
    	
    	
    	
    	For Each objFile In objFolder.Files
    	%> 

<A href="altrapagina.asp?file=<% = sMapPath & "/" & objFile.Name %>"> 
  
    	<%

    			Response.Write objFile.Name
     	%>
    	</A>

<%
    			if objFile.Size <1024 Then
    				Response.Write objFile.Size & " Bytes"
    			ElseIf objFile.Size < 1048576 Then
    				Response.Write Round(objFile.Size / 1024.1) & " KB"
    			Else
    				Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
    			End if
    	%>

<%	   				Response.Write objFile.DateLastModified
    			%>

<%
    		Next
    	%>

Perchè non fa vedere anche le cartelle contenute nell'HD???

:master: