标题 | 用vbs 取得收藏夹里的所有链接名称和URL的脚本 |
范文 | 新建一个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 |
随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。