关闭

vbs 删除文件.

524人阅读 评论(0) 收藏 举报

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("此文件已经删除!") 

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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:97581次
    • 积分:2063
    • 等级:
    • 排名:第18619名
    • 原创:108篇
    • 转载:22篇
    • 译文:0篇
    • 评论:27条
    最新评论