如何删除一个文本文件？

Question

Dim nFreeFile As Long
    nFreeFile = FreeFile        
    Open strFilename For Output Access Write As #nFreeFile
    Seek #nFreeFile, 1
    print #1,"xxxxx"
    close #1
    最后我要删除这个文件，这句语句怎么写？我一时忘记了，谁知道告诉我。谢谢

Answer 1

Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "d:\1.txt", True

Answer 2

前提保证文件没有被使用
if dir("FullPath\Filename.txt")<>"" then
     kill "FullPath\Filename.txt"
end if

Answer 3

DeleteFile VB声明 
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long 
说明 
删除指定文件 
返回值 
Long，非零表示成功，零表示失败。会设置GetLastError 
参数表 
参数 类型及说明 
lpFileName String，欲删除文件的名字 
注解 
与vb的kill语句相似，在windows 95下使用这个函数要小心——即使文件当前正由一个应用程序打开，该函数也会将其删除