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 = " <b>Size</b> <i>(bytes)</i>"
obj.setNameColLastMod = " <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
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 = " <b>Size</b> <i>(bytes)</i>"
obj.setNameColLastMod = " <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