DOC: Values for Scripting Object Constants Defined

The information in this article applies to:

• Microsoft Active Server Pages, version 1.0

SUMMARY

The version of VBScript (VBS) provided with Active Server Pages currently does not have access to the values of constants defined by the Scripting object. As a result, you must provide a definition of the constants you wish to use in your scripts. Because the documentation does not provide the values for these constants, it can be difficult to determine what the numerical value is for a given constant.

Consider the following code example:

  Set fs = Server.CreateObject("Scripting.FileSystemObject")
  Set a = fs.OpenTextFile("c:\testfile.txt", ForAppending, FALSE)

  Microsoft VBScript runtime error '800a0005'

  Invalid procedure call or argument: 'fs.OpenTextFile'

MORE INFORMATION

Here is a list of the values of the most commonly used constants for the Scripting object:

   iomode
   ======
   ForAppending = 8
   ForReading =   1
   ForWriting =   2

   format
   ======
   TristateFalse =       0
   TristateMixed =      -2
   TristateTrue =       -1
   TristateUseDefault = -2

To provide an include file that defines these values, paste the text below into a file called Filevbs.inc, and save it to a virtual root. Then add an include directive, similar to the one below, to the ASP file that needs to access the definitions of these constants.

   <!--#include virtual="/ASPSAMP/SAMPLES/FILEVBS.INC"-->

   <%
   '-----------------------------------------------------
   '
   ' FileSystemObject constants include file for VBScript
   '
   '-----------------------------------------------------

   '---- iomode Values ----
   Const ForAppending = 8
   Const ForReading = 1
   Const ForWriting = 2

   '---- format Values ----
   Const TristateFalse = 0
   Const TristateMixed = -2
   Const TristateTrue = -1
   Const TristateUseDefault = -2

   %>

REFERENCES

For the latest Knowledge Base articles and other support information on Visual InterDev and Active Server Pages, see the following page on the Microsoft Technical Support site:

   http://support.microsoft.com/support/vinterdev/