Code to delete text from a .txt file

[cs1ctp]

Hi,

Is there VB code to delete the contents of a text file. Basically I am deleting an item from a text file, but have found the best way to do this is to re-write the text file omitting the deleted item. At the moment I have the code that re-writes the text file, but it is adding to rather than replacing the text in the text file. A simple work around would be simply to delete the contents of the text file. Is there code for this??

Many thanks in advance for your help

Chris

 

[pcc]

try this

Sub test_code()
Dim ff As Integer
On Error Resume Next
yourfile = "C:\any.txt" ''''''''''''''''' change to suit
Kill yourfile
On Error GoTo 0
 ff = FreeFile
Open yourfile For Append As #ff
Close #ff
End Sub

 

[cs1ctp]

Excellent, works fine!!