导出IE收藏夹的批处理（已解决）

Wingl83

如题，注意是利用IE工具栏上的“文件”→“导入和导出”功能的导出，而不是单纯的复制url。并可以通过编辑来指定导出的路径。

其实我这个想法是由于我想将IE收藏夹备份到35766在线书签。里面就有一个上传至35766在线书签的方法，详情请看http://www.35766.com/Help/Import_IE.asp。有没有办法可以实现呢？

[ 本帖最后由 Wingl83 于 2008-10-2 18:12 编辑 ]

youxi01

你所叙述的，它们有区别吗？

Wingl83

利用导出功能默认是导出一个bookmark.htm文件，而复制只是将收藏夹复制备份而已。

zqz0012005

bookmark.htm的版面格式自己弄

@echo off
for /f "skip=4 tokens=2*" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Favorites') do set "favor=%%b"
for /r "%favor%" %%a in (*.url) do for /f "tokens=1* delims==" %%i in ('findstr /i "^URL=" "%%a"') do (echo ^<a href="%%j"^>%%~na^</a^>^<br^>^<br^>) >>bookmark.htm
start iexplore bookmark.htm

[ 本帖最后由 zqz0012005 于 2008-9-28 22:52 编辑 ]

Wingl83

请问，为什么导出的bookmark.htm不能像IE导出的那样把文件名带上呢？

zqz0012005

4楼导出的不带文件名吗？

Wingl83

抱歉，是文件夹名……

zqz0012005

版面格式自己弄，那个属于html的范畴了，我只会一点点

@echo off
for /f "skip=4 tokens=2*" %%a in ('reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v Favorites') do set "favor=%%b"
for /f "delims=" %%a in ('dir /s/b/on "%favor%"') do (
    if exist "%%a\" (
        echo ^<b^>%%~na^</b^>^<br^> >>bookmark.htm
    ) else (
        for /f "tokens=1* delims==" %%i in ('findstr /i "^URL=" "%%a"') do (echo ^<a href="%%j"^>%%~na^</a^>^<br^>^<br^>) >>bookmark.htm
    )
)
start iexplore bookmark.htm

[ 本帖最后由 zqz0012005 于 2008-9-28 23:30 编辑 ]

Wingl83

可以成功上传35766的代码（我用的输入法是搜狗，所以输入http://www.35766.com/Fav/Import_IE.asp后有一个enter），存为vbs即可。谢谢各同学的帮忙。

1. set ws=wscript.createobject("wscript.shell")
   
2. ws.run "C:\Progra~1\Intern~1\iexplore.exe"
   
3. wscript.sleep 5000
   
4. ws.sendkeys("%fi%n")
   
5. wscript.sleep 200
   
6. ws.sendkeys("{down 1}%n%n")
   
7. ws.sendkeys("{tab}")
   
8. wscript.sleep 500
   
9. ws.sendkeys("http://www.35766.com/Fav/Import_IE.asp")
   
10. wscript.sleep 500
    
11. ws.sendkeys("{enter}")
    
12. wscript.sleep 500
    
13. ws.sendkeys("{enter}")
    
14. wscript.sleep 500
    
15. ws.sendkeys("{enter}")
    
16. wscript.sleep 10000
    
17. ws.sendkeys("{enter}")
    
18. wscript.sleep 400
    
19. ws.sendkeys("%{f4}")
    
20. wscript.sleep 1000

复制代码

[ 本帖最后由 Wingl83 于 2008-10-2 18:14 编辑 ]