我这个帖子一共给40分 一共是两个问题 一个问题20分
第一个问题: 如何用VBS删除C盘下后缀为.vbs的所有文件(注意,这里不包含C盘下其他文件夹里的VBS文件,只删除C盘根目录的)
第二个问题: 如何用VBS给收藏夹增加一个网址
------解决方案--------------------
- VBScript code
On Error Resume Next Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile "C:*.vbs", True Set fso = Nothing
------解决方案--------------------
- VBScript code
Const ADMINISTRATIVE_TOOLS = 6 Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self Set objShell = WScript.CreateObject("WScript.Shell") strDesktopFld = objFolderItem.Path Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "MSDN.url") objURLShortcut.TargetPath = "http://msdn.microsoft.com" objURLShortcut.Save