| Byg Software |
026 |
| This creates an empty text file or clears out an existing one: | |
'' *******************************************************************
'' 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
|
|
| Close | |