This 1 should be easy: the following script saves to the desktop, i need it to save to the folder with the html file

<Script language=VBScript>

fileSpec = "SData.dat"
fileSpec2 = "Vars.js"

Function saveThis2()
isData = xferContent.innerHTML
isVars = vars.innerHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set contentFile = fso.CreateTextFile(fileSpec,True)
contentFile.WriteLine(isData)
contentFile.Close
set fso = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set contentFile = fso.CreateTextFile(fileSpec2,True)
contentFile.WriteLine(isVars)
contentFile.Close
MsgBox "Successfully saved Calendar", vbInformation, "Information"
set fso = Nothing

End Function
Function appendThis()
isData = appendContent.innerHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set contentFile = fso.GetFile(fileSpec)
Set fsoStream = contentFile.OpenAsTextStream(8)
fsoStream.WriteLine(isData)
fsoStream.Close
MsgBox "Successfully appended to Test.txt", vbInformation, "Information"
Set fsoStream = Nothing
Set fso = Nothing
End Function


Function readThis2()
Set fso = CreateObject("Scripting.FileSystemObject")
Set contentFile = fso.GetFile(fileSpec)
Set fsoStream = contentFile.OpenAsTextStream(1)
isData = fsoStream.ReadAll
xferContent.innerHTML = isData
fsoStream.Close
Set fsoStream = Nothing
Set fso = Nothing
End Function


Function showInfo()
Set fso = CreateObject("Scripting.FileSystemObject")
Set contentFile = fso.GetFile(fileSpec)
strInfo = contentFile.Name & vbCrLf
strInfo = strInfo & "Created: "
strInfo = strInfo & contentFile.DateCreated & vbCrLf
strInfo = strInfo & "Last Accessed: "
strInfo = strInfo & contentFile.DateLastAccessed & vbCrLf
strInfo = strInfo & "Last Modified: "
strInfo = strInfo & contentFile.DateLastModified
MsgBox strInfo, vbInformation, "File Information"
Set contentFile = Nothing
Set fso = Nothing
End Function

</Script>