用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:vbsGetfavorites.vbs >C:vbsGetfavorites_result.txt 
pause 

以上就是【用vbs 取得收藏夹里的所有链接名称和URL的脚本】的全部内容了,欢迎留言评论进行交流!