以下代码的反复运行(两次以上)就会提示"文件已存在"
请修改代码，使其无论运行多少次都不再提示"文件已存在"
要求：
1.请在原代码基础上略微修改，不可增加代码行数。
2.请写上完整代码，且代码可被正常运行
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.CreateTextFile("c:\ufo.txt",false)
求指点这道题怎么做，