Свойства oFile (файла)
-------------------------
oFile {...} Object
Path "D:\00\Scripts\_debug-logs-files\file_props.js" String
Name "file_props.js" String
ShortPath "D:\00\Scripts\_DEBUG~1\FILE_P~1.JS" String
ShortName "FILE_P~1.JS" String
Drive {...} Object
ParentFolder {...} Object
Attributes 32 Object
DateCreated 10.05.2010 15:48:10 Date
DateLastModified 10.05.2010 15:54:02 Date
DateLastAccessed 10.05.2010 15:48:10 Date
Size 221 Variant
Type "JScript Script File" String

Свойства oFolder (папки)
---------------------------
- oFolder {...} Object
Path "D:\00\Scripts\_debug-logs-files" String
Name "_debug-logs-files" String
ShortPath "D:\00\Scripts\_DEBUG~1" String
ShortName "_DEBUG~1" String
- Drive {...} Object
  Path "D:" String
  DriveLetter "D" String
  ShareName "" String
  DriveType 2 Object
  + RootFolder {...} Object
  AvailableSpace 551718150144 Variant
  FreeSpace 551718150144 Variant
  TotalSize 1000203087872 Variant
  VolumeName "wdj" String
  FileSystem "NTFS" String
  SerialNumber 143236712 Number
  IsReady true Boolean
+ ParentFolder {...} Object
Attributes 16 Object
DateCreated 02.05.2010 18:37:11 Date
DateLastModified 10.05.2010 15:48:10 Date
DateLastAccessed 10.05.2010 15:48:10 Date
Type "Папка с файлами" String
IsRootFolder false Boolean
Size 16531 Variant
- SubFolders {...} Object
  Item Object
  _NewEnum {...} Object
  Count 0 Number
- Files {...} Object
  Item Object
  _NewEnum {...} Object
  Count 10 Number

var sReadFileName = "4_read.txt";
var sWriteFileName = "4_write.txt";

var sReadFileFullName = sGetReadFileFullName(sReadFileName);
var sWriteFileFullName = sGetReadFileFullName(sWriteFileName);

var oReadFile, oWriteFile, oAppendFile;

var ForReading = 1, ForWriting = 2, ForAppending = 8; //Ручками прописываем режимы!
var oFS = new ActiveXObject("Scripting.FileSystemObject");

//Чтение файла
var sMsg = sReadFileFullName + " ";
sMsg += oFS.FileExists(sReadFileFullName) ? "есть!" : "нет";
WScript.Echo(sMsg);
if (oFS.FileExists(sReadFileFullName))
{
  try
  {
    /*Синтаксис object.OpenTextFile(filename[, iomode[, create[, format]]])
    iomode: ForReading = 1, ForWriting = 2, ForAppending = 8
    create: если запрошенный файл не существует   true создавать, false не создавать
    format:   -2  Opens the file using the system default
              -1  Opens the file as Unicode
               0  Opens the file as ASCII
    */
    oReadFile = oFS.OpenTextFile(sReadFileFullName, ForReading, false); //3-й параметр
    /*Возможные ошибки при OpenTextFile():
        * путь до файла не существует,
        * атрибут RO (hidden, system - не мешают),
        * недостаточные права доступа
        * недостаток места на диске (впрочем, это уже в процессе записи в файл)
    */
    WScript.Echo("Содержимое файла " + sReadFileName + ":\n" + oReadFile.ReadAll());
    WScript.Echo("---\nЧтение его же по строкам:");
    oReadFile.Close();
    oReadFile = oFS.OpenTextFile(sReadFileFullName, ForReading, false); //По достижении конца надо заново переоткрывать
    //while(!oReadFile.AtEndOfStream) //как вариант
    for ( var i = 1; !oReadFile.AtEndOfStream; i++)
    {
      var txt = ((i < 10) ? "0" : "") + i + " >" + oReadFile.ReadLine() + "<";
      WScript.Echo(txt);
    }
    //     oReadFile.WriteLine("xxx"); //Вызовет ошибку "Недопустимый режим файла"
    oReadFile.Close();
  } catch(e)
  {
    WScript.Echo("Ошибка при работе с файлом \"" + sReadFileName + "\": " + e.message);
    vardump(e);
  }
}

//Запись файла
oWriteFile = oFS.OpenTextFile(sWriteFileFullName, ForAppending, true); //Не проверяем, есть ли - все равно делаем
WScript.Echo("Открываем файл " + sReadFileName + " для записи");
var dt = new Date();
sMsg = "перезаписываемый файл\n" + dt.toLocaleString() + "\n";
sMsg += "случайное число " + Math.random().toFixed(5) + "\n"
WScript.Echo(sMsg);
oWriteFile.WriteLine(sMsg);
oWriteFile.Close();
WScript.Echo("Записали, закрыли.");