各位网友好，现有下面的程序，用二进制方式向文件中写内容
Dim strtext As String
Dim theFileName As String '文件名
    theFileName = App.Path & "\test.txt"
strtext = "我们伟大的祖国！"
If theFileName = "" Then
        MsgBox "文件不存在!"
        Exit Sub
    End If
    'Binary方式打开文件
    Open theFileName For Binary As #1    '写入文件
    Put #1, , strtext  'fileBuff
    Close #1

运行时发现，原文件的内容不能清空，只有由开始到变量strtext 长度之前的内容被覆盖，后面的内容仍存在。那么如何才能把原文件中的内容清空呢，请指导，谢谢。
另外注释中的fileBuff是何意

fOr 0Utput  ？

kill 原文件

不会吧  C里有一种打开文件的方式   就是没有
则创建  有则清空重写

顺序文件不需要清空，写有二种方式，
一种是新建，一种是追加。

随机文件和二进制文件，写只有一种模式，覆盖。
所以如果要新建文件，然后再写内容。
就只能 KILL 原文件，然后再新建文件。

或者写临时文件，然后写完后，改名为 目标文件。这种情况下，如果没写完程序非法中止（包括出错，结束线程、断电等意外情况）不会造成原来保存的文件损坏。
这种方法是建议使用

---
我前面发的个 示例代码里，有KILL 的处理啊。楼主肯定没注意看。

对TXT文件如如何新建，代码为何

清空文本文件(2句就可以完成)
open "文件名" for output as #1
close #1
即可清空文本文件。