求教，急急急急急急急急急急急急

Question

我想写一个程序
作用如下
先判断指定目录下是否有指定文件，有，则删除，没有则，执行下面的程序
如何实现呢

Answer 1

引用microsoft scripting runtime
Option Explicit
Dim fs As New FileSystemObjectPrivate Sub Command1_Click()
If fs.FileExists("c:\test\a.bmp") Then
   fs.DeleteFile "c:\test\a.bmp"
Else
MsgBox "没有"
End IfEnd Sub

Answer 2

if dir("C:\text.txt")<>"" then
    Kill "C:\text.txt"
else
    msgbox "没有"
endif