Only me!

I've just moved the bed in as I can see this being my second home now!

I have 2 text files with one numerical value each (i.e. 54338). I would like to get another script to take one value and subtract it from the other, and have this resultant value written to a new (3rd) text file.

what I have is:

Const ForReading = 1

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO.OpenTextFile("..\freespacebefore.txt", ForReading)
objFile1.Close

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO.OpenTextFile("..\freespaceafter.txt", ForReading)
objFile2.Close

Set objFile3 = objFSO.CreateTextFile("..\savedspace.txt")
objFile3.WriteLine "savedspace=" & (objFile2-objFile1)
objFile3.Close


The error message I am getting is 'Object doesn't support this property or method' - refering to the highlighted text.Opening a file does not get you any data. You'll need to read the file.

Code: [Select]Const ForReading = 1

strComputer = "."

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO.OpenTextFile("..\freespacebefore.txt", ForReading)
value1 = objFile1.ReadLine
objFile1.Close

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO.OpenTextFile("..\freespaceafter.txt", ForReading)
value2 = objFile2.ReadLine
objFile2.Close

Set objFile3 = objFSO.CreateTextFile("..\savedspace.txt")
objFile3.WriteLine "savedspace=" & (value2 - value1)
objFile3.Close

Thank you for your speedy response, much appreciated.

I am getting an error message from the code:

Type mismatch: 'value2'Quote

I have 2 text files with one numerical value each (i.e. 54338). I would like to get another script to take one value and subtract it from the other,

It might have, but val() is not listed as a valid function in the VBScript documentation!

I'm still getting a Type mismatch: 'arrData2(..)

The strComputer"." - applies it to the local machine. Just something I have been doing as I''ve also worked on networked computers with vbscript.

I guess instead of having explicit conversion function, they decided to have VBScript always use Evil Type coercion, since everything is a Variant.

but whats with the use of .. for parent directory?

PCWizard: Please post the data from the freespacebfore and freespaceafter files. I cannot duplicate your error.

Quote

following your request I have found the issue is indeed with the content from the 2 text files.

I have freespace after as "freespaceafter=123456"
I have freespacebefore as "freespacebefore=1234567"

I see now that the variables freespace..... are causing the issue.

I need these to remain though as this is what flash uses to collect the data. I should however be able to get vbscript to create duplicate freepsace... files without this text in.

Thanks so much for everyone's help.