Visual Basic 6清除文本文件中的内容而不引用库6

Question

我想知道如何使用VB6删除文本文件中的所有内容，而无需添加对任何对象库的引用。 不幸的是，我所知道的是如何打开它：

Open App.Path & "/media/text.txt" For Input As #1

谢谢。

Answer 1

Dim intFile As Integer

intFile = FreeFile

Open App.Path & "/media/text.txt" For Output As #intFile
Close #intFile

使用this作为quickref