我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

如何用vbs取得收藏夹里的所有链接名称和URL的脚本-创新互联

这篇文章主要介绍“如何用vbs 取得收藏夹里的所有链接名称和URL的脚本”,在日常操作中,相信很多人在如何用vbs 取得收藏夹里的所有链接名称和URL的脚本问题上存在疑惑,小编查阅了各式资料,整理出简单好用的操作方法,希望对大家解答”如何用vbs 取得收藏夹里的所有链接名称和URL的脚本”的疑惑有所帮助!接下来,请跟着小编一起来学习吧!

为峡江等地区用户提供了全套网页设计制作服务,及峡江网站建设行业解决方案。主营业务为网站设计、做网站、峡江网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!

另外,可以考虑在输出的时候将链接输出成超链接形式,输出文件改为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


到此,关于“如何用vbs 取得收藏夹里的所有链接名称和URL的脚本”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!


分享文章:如何用vbs取得收藏夹里的所有链接名称和URL的脚本-创新互联
分享URL:http://shouzuofang.com/article/coghdd.html

其他资讯