ArdentMan

清理*.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

打开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
复制代码