[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

@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代码把弹出的控件对话框点取消。
1

评分人数

    • broly: 感谢给帖子标题标注[已解决]字样PB + 2

清理*.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友情提示"
复制代码
一路飘过的鸟~~~

TOP

打开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
复制代码
一路飘过的鸟~~~

TOP

多个问题请分开提问,并且注意标题要符合版规。(你第二个问题文不对题)
---学无止境---

TOP

2个代码都没效果估计是个人系统问题。算了。

TOP

5# vbsQQ


把INF改成xls后可得到这个EXCEL

TOP

返回列表