用vbs 取得收藏夹里的所有链接名称和URL的脚本

2009-9-24 16:52 747 0

摘要: 　　新建一个vbs文件（C:vbsGetfavorites.vbs），再新建一个bat文件（Getfavorites.bat），执行bat文件，收藏夹里的所有项目都会被写入到C:vbsGetf...

　　新建一个vbs文件（C:\vbs\Getfavorites.vbs），再新建一个bat文件（Getfavorites.bat），执行bat文件，收藏夹里的所有项目都会被写入到C:\vbs\Getfavorites_result.txt文件中。　　另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为html文件。　　GetFavorites.vbs: 　　代码如下: 　　'=================================================================== 　　Const FAVORITES = &H6& 　　Const ForWriting = 2 　　Set objShell = CreateObject("shell.application") 　　Set objFolder = objShell.Namespace(FAVORITES) 　　Set fso = CreateObject ("scripting.filesystemobject") 　　processGet objFolder 　　Set objFolder = Nothing 　　Set fso = Nothing 　　Wscript.quit 　　'=================================================================== 　　Sub processGet (objFolder) 　　For Each objItem in objFolder.Items 　　If objItem.IsLink Then 　　Set objLink = objItem.GetLink 　　Wscript.echo objItem.Name 　　Wscript.echo objLink.Target 　　Set objLink = Nothing 　　ElseIf objItem.IsFolder Then 　　processGet objItem.getfolder 　　Else 　　Exit For 　　End If 　　Next 　　End Sub 　　'=================================================================== 　　Getfavorites.bat: 　　代码如下: 　　cscript.exe C:\vbs\Getfavorites.vbs >C:\vbs\Getfavorites_result.txt 　　pause

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除