Custom Directory Listing Script

I am trying to create a custom directory listing script. I have
virtual directory that points to a separate drive on the server. When
i go directly to the virtual directly i get the standard directory
list after entering my username and password. Is it possible to keep
this security but change the look and feel of the directory list. I
have a script that gives my the option to customize the look but i can
use windows authentications with it. Any help would be appreciated.
Here is the current version of my script.

Set objFSO = CreateObject("Scripting.FileSystemObject")

objStartFolder = "E:\"

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

ShowSubfolders objFSO.GetFolder(objStartFolder)

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

Here is the error message I get
E:\file1.rtf

E:\Folder1
Microsoft VBScript runtime error '800a0046'

Permission denied

/testscript.asp, line 27

I have also tried using server.mapPath("virtual directory name") with
no success. Thanks