conta = conta + 1
a.close
Set a = fs.CreateTextFile(path, True)

certo, se il file lo chiudi prima di scriverci...