Server object error

P

ptaz

Guest
Hi guys,

I am pretty new to asp and have downloaded a script to list virtual firectory folders. When i run it it gives me an error as bellow.

Error Type:
Server object, ASP 0177 (0x800401F3)
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.
/list/samples/viewdir/files.asp, line 20

Line 20 is: Set obj = Server.CreateObject("ListFiles.Files")

The whole code is:
Dim curr_dir

curr_dir = Request.QueryString("dir")
Set obj = Server.CreateObject("ListFiles.Files")

obj.AspFile = "files.asp"

obj.RootFolder = "c:\inetpub\wwwroot\"

obj.RootVirtualFolder = "http://net/"

obj.Href = "off"

obj.FPsupport = "off"

obj.CurrentFolder = curr_dir

obj.TargetLinks = ""

obj.ImageOpenFolder = "open.gif"

obj.ImageCloseFolder = "close.gif"

obj.ImageFiles = "doc.gif"

obj.AdvanceView = "on"

obj.CtrlRedirFile = ""

obj.setTableTag = "<table border=1 bordercolordark='#464646' cellspacing=0 bgcolor='#dcdcdc'>"

obj.setNameColName = "<b>Name</b>"

obj.setNameColSize = "&nbsp;<b>Size</b> <i>(bytes)</i>"

obj.setNameColLastMod = "&nbsp;<b>Last Modified</b>"

obj.setDivider = "<hr color='#b22222'>"

obj.Runme()

res = obj.Result

Response.Write "<b>" & curr_dir & "</b><p>"
Response.Write res

Set obj = Nothing

Can someone tell me what is going on here and how to fix the issue so the script will work? or if anyone has a better script to display virtual directories and thie folder, it is greatly appreciated.

Thanks
 
Back
Top