dazu trate de esta manera para descargar los archivos y no pude, se ve bien
<%
Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("C:\")
Set filecoll = demofolder.Files
For Each fil in filecoll
Response.Write "<a href=" &demofolder&"/"&fil.Name & """>"
Response.Write "" & fil.Name & "</b></a> "
Response.Write "( Size: " & fil.Size & " ) "
Response.Write "<BR>"
Next
Response.Write filist
%>