VBS删除文件和VBS给收藏夹新建网址解决办法

VBS删除文件和VBS给收藏夹新建网址
我这个帖子一共给40分 一共是两个问题 一个问题20分
第一个问题： 如何用VBS删除C盘下后缀为.vbs的所有文件（注意，这里不包含C盘下其他文件夹里的VBS文件，只删除C盘根目录的）
第二个问题： 如何用VBS给收藏夹增加一个网址

[解决办法]

VBScript code

On Error Resume NextSet fso = CreateObject("Scripting.FileSystemObject")fso.DeleteFile "C:\*.vbs", TrueSet fso = Nothing
[解决办法]
VBScript code
Const ADMINISTRATIVE_TOOLS = 6Set objShell = CreateObject("Shell.Application")Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS) Set objFolderItem = objFolder.Self     Set objShell = WScript.CreateObject("WScript.Shell")strDesktopFld = objFolderItem.PathSet objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\MSDN.url")objURLShortcut.TargetPath = "http://msdn.microsoft.com"objURLShortcut.Save