欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

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

更新时间: 2014-01-05 01:52:49 责任编辑: Author_N1

 

VBS删除文件和VBS给收藏夹新建网址
我这个帖子一共给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 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:49
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2442/
本文WWW.DOC100.NET DOC100.NET版权所有。