p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

asp_components thread: IIS 5.1 crash using Scripting.FileSystemObject, Win XP


Message #1 by "charles e dial" <cedial@s...> on Wed, 12 Jun 2002 23:23:22
The following Microsoft KB sample code hangs IIS 5.1 (localhost server) 
when executing the GetFolder method. The "objFolder created." text never 
appears. Does anyone know how to get this code to work? The code works 
fine when run as part of an MS Access VB module.

Needless to say, it is rather frightening to think that IIS can be 
crashed this easily. The following code kills IIS 5.1 until it is 
restarted.

	strDocsPath = "ch02"
	strDocsPhysicalPath = Server.MapPath(strDocsPath)
	' create a system file object
 	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

	' create an object for the folder
	Response.write "Creating objFolder for " + strDocsPhysicalPath
	Response.write " -- "
	Response.flush
	Set objFolder = objFSO.GetFolder(strDocsPhysicalPath)
	Response.write "objFolder created."
	Response.flush
Message #2 by "Adrian Forbes" <adrian.forbes@n...> on Thu, 13 Jun 2002 08:30:22 +0100
http://www.aspfaq.com/show.asp?id=2180

-----Original Message-----
From: charles e dial [mailto:cedial@s...]
Sent: Wednesday, June 12, 2002 11:23 PM
To: ASP components
Subject: [asp_components] IIS 5.1 crash using
Scripting.FileSystemObject, Win XP


The following Microsoft KB sample code hangs IIS 5.1 (localhost server)
when executing the GetFolder method. The "objFolder created." text never
appears. Does anyone know how to get this code to work? The code works
fine when run as part of an MS Access VB module.

Needless to say, it is rather frightening to think that IIS can be
crashed this easily. The following code kills IIS 5.1 until it is
restarted.

	strDocsPath = "ch02"
	strDocsPhysicalPath = Server.MapPath(strDocsPath)
	' create a system file object
 	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

	' create an object for the folder
	Response.write "Creating objFolder for " + strDocsPhysicalPath
	Response.write " -- "
	Response.flush
	Set objFolder = objFSO.GetFolder(strDocsPhysicalPath)
	Response.write "objFolder created."
	Response.flush

%%email.unsub%%



  Return to Index