如何覆盖文件的内容？

Question

先用“OutPut”方式打开、关闭一次

Answer 1

to zyl910(910：分儿，我来了！) :
  呵呵，你的方法确实好使！不过难道没有什么方法能将OPEN打开后的东东给清空吗？

Answer 2

to jienao (Matchbox 24) 
以下程序运行就能达到覆盖,你试试
Private Sub Command1_Click()
    SaveBytes = "524254"
    TempFile = FreeFile
    Open "t.dat" For Binary As #TempFile
    Put #TempFile, 1, SaveBytes
    Close TempFileEnd Sub你注意跟踪一下SaveBytes的值

Answer 3

to qhzxcz(audio):
你的方法和我的有区别吗？一样不能覆盖！