Hello, Dan.
I've pasted a code sample below.
The error message that I'm getting in my browser window is:
a.. Error Type:
Microsoft VBScript runtime (0x800A01F4)
Variable is undefined: 'ForWriting'
/dynamic/cgi.bin/ForWritingUndefined.asp, line 29
Interestingly, while I was preparing this code sample, I stumbled across the code in
"ThisSubWorks" (on the Internet) and found that it actually does seem to work okay.
Notice that the code in "ThisSubWorks" works does not make use of the ForReading,
ForWriting, or ForAppending constants.
Prior to today, I had not had any success when trying to use the FileSystemObject to
read or write any files from an ASP page -- though I am using it successfully from VB.
However, when I first tried to use the FileSystemObject (with ForReading, ForWriting,
or ForAppending) from VB, it didn't work. Eventually I found out that I had to use the
VB project menu to create a reference to "Microsoft Scripting Runtime" -- after I did
that, it worked okay. That's why I think that I probably need to do something
analagous to that in order to use similar code in my ASP pages, which are running
under Windows 2000/IIS.
<% @Language="VBScript" %>
<% Option Explicit %>
<SCRIPT LANGUAGE=VBScript RUNAT=SERVER>
Sub ThisSubWorksdim filesys, filetxt, getname, path
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("c:\file_1.txt", True)
path = filesys.GetAbsolutePathName("c:\file_1.txt")
getname = filesys.GetFileName(path)
filetxt.WriteLine("Bozo The Clown wears lots of makeup")
filetxt.Close
If filesys.FileExists(path) Then
Response.Write ("Your file, '" & getname & "', has been created.")
End If
Set filetxt = Nothing
Set filesys = Nothing
End Sub
Sub ThisSubDoesNotWork
dim filesys, file, file_ts
Set filesys = CreateObject("Scripting.FileSystemObject")
filesys.CreateTextFile "C:\file_2.txt", True
Set file = filesys.GetFile("C:\file_2.txt")
Set file_ts = filesys.OpenAsTextStream(ForWriting)
file_ts.WriteLine "Bozo The Clown wears lots of makeup"
file_ts.Close
Set file_ts = Nothing
Set file = Nothing
Set filesys = Nothing
End Sub
</SCRIPT>
<html>
<head>
</head>
<body>
<%
Response.Write "Calling sub ThisSubWorks"
call ThisSubWorks
Response.Write "Calling sub ThisSubDoesNotWork"
call ThisSubDoesNotWork
%>
</body>
</html>
----- Original Message -----
From: Dan Powderhill
To: [EMAIL PROTECTED]
Sent: Wednesday, September 08, 2004 8:15 AM
Subject: RE: [AspClassicAnyQuestionIsOk] "Undefined" error when using FSO
w/ForReading, etc.
Can you show us the code that's causing the error?
Dan
www.diado.com
-----Original Message-----
From: Cynthia Leslie [mailto:[EMAIL PROTECTED]
Sent: 08 September 2004 13:08
To: [EMAIL PROTECTED]
Subject: [AspClassicAnyQuestionIsOk] "Undefined" error when using FSO w/ForReading,
etc.
Hi.
Can somebody tell me why I'm getting an "undefined" error for ForReading,
ForWriting, and ForAppending when attempting to use the FileSystemObject in an ASP
page? I think I might have to register a DLL to make it work?? If so, which one?
Thanks.
- Cynthia Leslie
[Non-text portions of this message have been removed]
Yahoo! Groups Sponsor
ADVERTISEMENT
<http://us.ard.yahoo.com/SIG=1297l16p2/M=298184.5285298.6392945.3001176/D=groups/S=1705006764:HM/EXP=1094731803/A=2319498/R=0/SIG=11thfntfp/*http://www.netflix.com/Default?mqso=60185352&partid=5285298>
click here
<http://us.adserver.yahoo.com/l?M=298184.5285298.6392945.3001176/D=groups/S=:HM/A=2319498/rand=388449500>
_____
Yahoo! Groups Links
* To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
* To unsubscribe from this group, send an email to:
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]>
* Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service
<http://docs.yahoo.com/info/terms/> .
[Non-text portions of this message have been removed]
Yahoo! Groups Sponsor
ADVERTISEMENT
------------------------------------------------------------------------------
Yahoo! Groups Links
a.. To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
b.. To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/saFolB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
