不想用kill清除文件，只想清除文件内容，vb有此功能吗？

Question

dim a as string 
a=""
open "a.txt" for output as #1
print #1,a
close #1

Answer 1

使用FileSystemObject的CreateTextFile新建一个文件，然后关掉它就可以了。

Answer 2

kill filename
open filename for output as 1
close 1

Answer 3

Open filename For Output As #1
Close #1

Answer 4

Use FSO
'Add the Reference of Microsoft Scripting Runtime
Private Function File(strFile As String)    Dim fso As New FileSystemObject
    '如果没有添加Microsoft Scripting Runtime的引用，则这样定义
    'Dim fso as object 或者Dim fso 
    Dim strMsg As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '使用FileSystemObject对象的FileExists方法检查指定的文件是否存在
    If fso.FileExists(strFile) Then
'        strMsg = "文件" & strFile & "已经存在"
        If MsgBox("文件" & strFile & "已经存在" & vbCrLf & "你需要先删除然后重新建立吗？", vbYesNo + vbExclamation, "请确认") = vbYes Then
            '使用FileSystemObject对象的DeleteFile方法将文件夹整个删除
            fso.DeleteFile (strFile)
            '使用FileSystemObject对象的CreateTextFile方法建立文件夹
            fso.CreateTextFile (strFile)
        End If
    Else
'        strMsg = "文件" & strFile & "不存在，您必须自行建立它。"
        fso.CreateTextFile (strFile)
    End If
    
'    MsgBox strMsg, vbOKOnly + vbExclamation, strUserName & "的计算机"
    
    Set fso = Nothing
    
End Function

Answer 5

Not Use FSO    Dim strFileName As String
    Dim intFile As Integer
    strFileName = App.Path & "\test.txt"
    intFile = FreeFile
    Kill strFileName
    Open strFileName For Output As intFile
    Close intFile