vb6 - 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

将此用作快速参考