FileSystemObjec t CreateTextFile falling over

[Iain Bishop]

I am trying to execute the following function which performs four tests to
make sure the current environment is capable of uploading files. Test 1
completes ok, but test 2 results in the page hanging indefinitely. An error
number is not returned (it just hangs on the line: Set testFile =
fso.CreateTextF ile(fileName, true) ). However when I execute test 2 using
VBScript from within an Excel macro it creates the text file without any
problem.
I have given IUSR & IWAM Administrator rights but this has not helped.

Does anyone please have any ideas?

Many Thanks
Iain

function TestEnvironment ()
Dim fso, fileName, testFile, streamTest
TestEnvironment = ""

'Test 1
Set fso = Server.CreateOb ject("Scripting .FileSystemObje ct")
if not fso.FolderExist s(uploadsDirVar ) then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not
exist.</B><br>The value of your uploadsDirVar is incorrect. Open
AdminFileUpload .asp in an editor and change the value of uploadsDirVar to
the pathname of a directory with write permissions."
exit function
end if

'Test 2
fileName = uploadsDirVar & "\test.txt"
on error resume next
Set testFile = fso.CreateTextF ile(fileName, true)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have
write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open
AdminFileUpload .asp in an editor and change the value of uploadsDirVar to
the pathname of a directory with write permissions."
exit function
end if
Err.Clear
testFile.Close

'Test 3
fso.DeleteFile( fileName)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have
delete permissions</B>, although it does have write permissions.<br >Change
the permissions for IUSR_<I>compute rname</Ion this folder."
exit function
end if
Err.Clear

'Test 4
Set streamTest = Server.CreateOb ject("ADODB.Str eam")
If Err.Number<>0 then
TestEnvironment = "<B>The ADODB object <I>Stream</Iis not
available in your server.</B><br>Check the Requirements page for information
about upgrading your ADODB libraries."
exit function
end if
Set streamTest = Nothing
end function

[Mike Brind]

Iain Bishop wrote:

I am trying to execute the following function which performs four tests to
make sure the current environment is capable of uploading files. Test 1
completes ok, but test 2 results in the page hanging indefinitely.

http://classicasp.aspfaq.com/files/d...-a-sudden.html

--
Mike Brind