用vbs 取得收藏夹里的所有链接名称和URL的脚本
程序员文章站
2022-04-10 08:01:57
另外,可以考虑在输出的时候将链接输出成超链接形式,输出文件改为html文件。getfavorites.vbs:复制代码 代码如下:'====================...
另外,可以考虑在输出的时候将链接输出成超链接形式,输出文件改为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
上一篇: Mysql中的join操作
下一篇: 蜂蜜柚子茶要熬到没水吗