f1.close Set f = Nothing Set f1 = Nothing Else Set a = fso.CreateTextFile(vFilePath) a.WriteLine("1") s=1 Set f = fso.OpenTextFile(vFilePath,1, True) f.close a.Close Set f = Nothing Set a = Nothing End If Set fso = nothing %>

40034