新建一個vbs文件(C:\vbs\Getfavorites.vbs),再新建一個bat文件(Getfavorites.bat),執(zhí)行bat文件,收藏夾里的所有項(xiàng)目都會被寫入到C:\vbs\Getfavorites_result.txt文件中。
另外,可以考慮在輸出的時候?qū)㈡溄虞敵龀沙溄有问?,輸出文件改為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