批处理之家 - Powered by Discuz! Board

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

作者: vbsQQ 时间: 2011-7-10 06:33 标题: [已解决]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代码把弹出的控件对话框点取消。

作者: ArdentMan 时间: 2011-7-10 09:37

清理*.mp3:

Dim FSO, Mpath, File
Mpath = CreateObject("Shell.Application").Namespace(&H20).Self.Path
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each File In FSO.GetFolder(Mpath).Files
  If LCase(FSO.GetExtensionName(File)) = "mp3" Then
    FSO.DeleteFile File
  End If
Next
Set FSO = Nothing
MsgBox "清理完毕！", , "ArdentMan友情提示"
复制代码

作者: ArdentMan 时间: 2011-7-10 09:43

打开excel

Dim EXCEL, Path
Path = CreateObject("Wscript.Shell").CurrentDirectory & "\"
Set EXCEL = CreateObject("Excel.Application")
EXCEL.Visible = True
EXCEL.Workbooks.Open Path & "aaa.xls"
Set EXCEL = Nothing
复制代码

作者: broly 时间: 2011-7-10 19:54

多个问题请分开提问，并且注意标题要符合版规。（你第二个问题文不对题）

作者: vbsQQ 时间: 2011-7-10 21:19

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

作者: vbsQQ 时间: 2011-7-10 21:26

5# vbsQQ

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

欢迎光临批处理之家 (http://bathome.net./)