ForWriting and ForReading are constants that need defining before they can be used. Try putting this at the top of your code (within the script tags) :-
Const ForReading = 1, ForWriting = 2 Dan www.diado.com -----Original Message----- From: Cynthia Leslie [mailto:[EMAIL PROTECTED] Sent: 08 September 2004 14:22 To: [EMAIL PROTECTED] Subject: Re: [AspClassicAnyQuestionIsOk] "Undefined" error when using FSOw/ForReading, etc. 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 ADVERTISEMENT 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 the Yahoo! Terms of Service. ------------------------ Yahoo! Groups Sponsor --------------------~--> Make a clean sweep of pop-up ads. Yahoo! Companion Toolbar. Now with Pop-Up Blocker. Get it for free! http://us.click.yahoo.com/L5YrjA/eSIIAA/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/
