vbs 删除文件.

Dim   oFSO,a,b,fs
 SET   b=WSCRIPT.CreateObject("WSCRIPT.SHELL")  
   b.POPUP("确定要删除C盘1.txt文件？")  
    On   Error   Resume   Next  
   
  Set   oFSO   =   CreateObject("Scripting.FileSystemObject")  
   
  Set   a   =   fso.GetFile("c:/1.txt")  
   
  oFSO.DeleteFile("c:/1.txt")  
   
  Set   oFSO   =   Nothing  
   
  b.POPUP("此文件已经删除!") 

想加一个判断是否有文件存在.思考中