可以先判断文件是否存在,如果存在就先删除的方法吧 if Dir(strFileName)<>"" then
Kill strFileName
End if
lngHandle = FreeFile() '取得句柄
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strText '写入文本
Close lngHandle '关闭文件
Kill strFileName
End if
lngHandle = FreeFile() '取得句柄
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strText '写入文本
Close lngHandle '关闭文件
我写这个文件的目的也是为了让用户了解当前程序运行的信息。
有没有其他的建议?