REM // JScript
REM var fso = new ActiveXObject("Scripting.FileSystemObject");
REM var a = fso.CreateTextFile("c:\\testfile.txt", true);
REM a.WriteLine("This is a test.");
REM a.Close();
REM object.OpenTextFile(filename[, iomode[, create[, format]]])
REM ForReading, ForWriting, ForAppending
REM TristateUseDefault, TristateTrue (unicode), TristateFalse (ascii)
REM we must define our constants - not hardcoded as #'s!?!
REM declare variables first
REM we have objects, then pointers/instances of objects
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, fp, filecontents
Set fso = CreateObject("Scripting.FileSystemObject")
set fp = fso.CreateTextFile("c:\testvbs.txt",True)
fp.writeline("test 123")
fp.writeline("finish this test!")
fp.close
Set fp = fso.OpenTextFile("c:\testvbs.txt", ForReading)
filecontents = fp.ReadLine
wscript.echo filecontents
filecontents = fp.Read(6)
wscript.echo filecontents
fp.close
set fp = fso.getfile("c:\testvbs.txt")
Wscript.Echo fp.size & " " & fp.path & " " & fp.datelastaccessed& " " & fp.datelastmodified & " " & fp.datecreated
REM ShowFileAccessInfo = s //this is a vbs "return" value
REM End Function //vbs close brace }
REM strContents = objReadFile.ReadAll
REM WScript.Echo fs.FileSize("c:\remote.txt")
REM WScript.Echo fc.WhenAccessed("c:\remote.txt")
REM WScript.Echo fc.WhenCreated("c:\remote.txt")
REM WScript.Echo fc.WhenModified("c:\remote.txt")