vorrei scrivere una variabili su un file di testo con questo codice, ma non mi funziona anche se c'è il permesso di scrittura, cosa sbaglio??

daticard=1

Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("attivazione.txt")

Set a = fs.CreateTextFile(path, True)
a.WriteLine(daticard)
a.Close