另外，可以考虑在输出的时候将链接输出成超链接形式，输出文件改为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
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
免责声明：本站文章均来自网站采集或用户投稿，网站不提供任何软件下载或自行开发的软件！
如有用户或公司发现本站内容信息存在侵权行为，请邮件告知！ 858582#qq.com
内蒙古资源网 Copyright www.nmgbbs.com
暂无“用vbs 取得收藏夹里的所有链接名称和URL的脚本”评论...