No need to delete it, just rename it...
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> CopyAndDelete()
Name "C:\Test.txt" <SPAN style="color:#00007F">As</SPAN> "C:\Test01.txt"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>