Set fs=CreateObject("Scripting.FileSystemObject")
dim path,dataFile,datas,FileName
FileName = OutPath & Replace(now(),":","-") & ".txt"
if fs.FileExists(FileName) then
Set dataFile=fs.OpenTextFile(FileName,2,true)
else
set dataFile=fs.CreateTextFile(FileName,ForWriting,false)
end if
datas="hello"
dataFile.WriteLine(datas)
dataFile.Close
Set fs = Nothing