找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 23569|回复: 5

[问题求助] [已解决]VBS 能否删除Internet临时文件夹/IE缓存里的*.MP3类文件

[复制链接]
发表于 2011-7-10 06:33:57 | 显示全部楼层 |阅读模式
@echo off
del /f /s /q  "C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files/*.MP3"

Kill ("C:\Documents and Settings\Administrator\Local Settings\Temporary Internet Files/*.MP3")

问题一:以上是BAT和VBA都不能删除缓存区的MP3文件等。而且现在是管理权限。VBS能删除吗?
用专门清理工具可以清空缓存区,bat几个版本都清理不了。如果VBS可以我想清理指定类文件如*.MP3


--------------------------------------------------------------------------------------------------------


问题二:以下是一个VBS打开EXCEL文件的代码 可否加一句VBS代码把弹出的控件对话框点取消。

评分

参与人数 1PB +2 收起 理由
broly + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2011-7-10 09:37:56 | 显示全部楼层
清理*.mp3:

  1. Dim FSO, Mpath, File
  2. Mpath = CreateObject("Shell.Application").Namespace(&H20).Self.Path
  3. Set FSO = CreateObject("Scripting.FileSystemObject")
  4. For Each File In FSO.GetFolder(Mpath).Files
  5.   If LCase(FSO.GetExtensionName(File)) = "mp3" Then
  6.     FSO.DeleteFile File
  7.   End If
  8. Next
  9. Set FSO = Nothing
  10. MsgBox "清理完毕!", , "ArdentMan友情提示"
复制代码
发表于 2011-7-10 09:43:47 | 显示全部楼层
打开excel

  1. Dim EXCEL, Path
  2. Path = CreateObject("Wscript.Shell").CurrentDirectory & ""
  3. Set EXCEL = CreateObject("Excel.Application")
  4. EXCEL.Visible = True
  5. EXCEL.Workbooks.Open Path & "aaa.xls"
  6. Set EXCEL = Nothing
复制代码
发表于 2011-7-10 19:54:56 | 显示全部楼层
多个问题请分开提问,并且注意标题要符合版规。(你第二个问题文不对题)
 楼主| 发表于 2011-7-10 21:19:46 | 显示全部楼层
2个代码都没效果估计是个人系统问题。算了。
 楼主| 发表于 2011-7-10 21:26:54 | 显示全部楼层
5# vbsQQ


把INF改成xls后可得到这个EXCEL
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 01:06 , Processed in 0.018693 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表