可以先判断文件是否存在,如果存在就先删除的方法吧    if Dir(strFileName)<>"" then
         Kill strFileName
    End if
    lngHandle = FreeFile() '取得句柄
    Open strFileName For Output As lngHandle    '打开文件
    Print #lngHandle, strText '写入文本
    Close lngHandle    '关闭文件