022

2) Clear an existing file of any content

'' *******************************************************************
'' Purpose  : 1) Create an empty file,
''      Or  : 2) Clear an existing file of any content
'' Author   : Andy Wiggins, Byg Software Ltd, 14-Mar-2000
''
Public Sub ClearFile()
Dim vi_Fn As Integer

    vi_Fn = FreeFile

    Open "C:\Temp\Test.Txt" For Output As #vi_Fn
    Close #vi_Fn

End Sub