[问题求助] [已解决]“求恢复链接文件夹的快捷方式”备份已由版主写好了,代码在15楼。

zhangop9

“用VBS按需批量创建快捷方式”在网上找到的运行错误，求高手改一下方便系统重装时恢复快捷方式。

"F:\GreenTools\系统工具\CloseMonitor.scr'
"#F:\GreenTools\TextTools\UltraEdit16\Uedit32.exe
"F:\GreenTools\VirtualTools\VMware7\vmware.exe"
"F:\GreenTools\Devtools\MyEclipse8\MyEclipse 8.x Latest\myeclipse.exe"
"F:\GreenTools\网络工具\comunication\QQ2010\Bin\QQ.exe"
"F:\GreenTools\网络工具\FlashXP3.6\flashfxp.exe"
"F:\GreenTools\通讯\G3 eWalk\G3 eWalk.exe"
"F:\GreenTools\Devtools\VC++6\Common\MSDev98\Bin\MSDEV.EXE"
"===================================================
'Option Explicit
Const ForReading = 1
Const isCrerateShortcut=1
"参数说明：1创建快捷方式；0删除快捷方式
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("添加常用应用程序到桌面图标.vbs", ForReading)
Do Until objTextFile.AtEndOfStream 
  Dim strNextLine
  Dim spIndex,program,path,pname,ShortcutName
  Dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell") 
  "
  strNextLine = objTextFile.Readline
  strNextLine = Mid(strNextLine,2,Len(strNextLine))
  If(InStr(strNextLine,"=====")<>0) Then
   Exit Do
  End If
spIndex=InStr(strNextLine,"#")
If (spIndex=0) Then
 part=split(strNextLine,"\")
 program=strNextLine
 pname=part(UBound(part))
 path=Mid(strNextLine,1,InStr(strNextLine,pname)-1)
 ShortcutName=Mid(pname,1,InStr(pname,".")-1)
 "MsgBox ShortcutName
 "下面是创建或删除快捷方式
 strDesktop = WshShell.SpecialFolders("Desktop") 
 If(isCrerateShortcut=1)Then "创建
set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & ShortcutName & ".lnk") "快捷方式的名字 
oShellLink.TargetPath = program "快捷方式里的“目标” 
oShellLink.WindowStyle = 1 "快捷方式里的“运行方式”：参数1默认窗口激活，参数3最大化激活，参数7最小化
oShellLink.WorkingDirectory =path "快捷方式里的“起始位置”
oShellLink.Description = "该快捷方式由VBS添加" "快捷方式里的“备注” 
oShellLink.Save
 ElseIf(isCrerateShortcut=0)Then "删除
objFSO.DeleteFile strDesktop & "\" & ShortcutName & ".lnk"
 End If
End If
Loop
objTextFile.Close
复制代码

zhangop9

求高手看一下！！！！

zhangop9

我的收藏文件夹下，链接文件夹中有很多目录，目录中有很多快捷方式，我想以文本的方式备份，下次系统重做系统后能恢复回来，不是简单的copy

zhangop9

F:\GreenTools\系统工具\CloseMonitor.scr

F:\GreenTools\TextTools\UltraEdit16\Uedit32.exe

F:\GreenTools\VirtualTools\VMware7\vmware.exe"

"F:\GreenTools\Devtools\MyEclipse8\MyEclipse 8.x Latest\myeclipse.exe"

"F:\GreenTools\网络工具\comunication\QQ2010\Bin\QQ.exe"

"F:\GreenTools\网络工具\FlashXP3.6\flashfxp.exe"

"F:\GreenTools\通讯\G3 eWalk\G3 eWalk.exe"

"F:\GreenTools\Devtools\VC++6\Common\MSDev98\Bin\MSDEV.EXE"

zhangop9

"%HOMEPATH%\Favorites\链接"
备份上面路径下的所有快捷方式,以文本方式,还原时以文本为根据还原

zhangop9

里面的快捷方式的后缀是.lnk,有子文件夹"每月工作"、“日常工作”等等

zhangop9

备份没有问题,如何恢复到原处,最好是个vbs能一键恢复回去

zhangop9

晚上，有时间再搞搞好不好，最好能分开备份，url一个文本，lnk一个文本，路径改到收藏夹"%HOMEPATH%\Favorites“，这样就有通用性了

zhangop9

不好意思，只是后来才想到这个方法能比较好的解决问题，以后想好再说，但是有时需求是慢慢才知道的，所以比较难搞一点，那个发在dos版的那个帖子可以删除的谢谢你的指正！

zhangop9

19楼的代码“备份”没有问题，“还原”的代码有一点小问题，要先建目录才能还原。有一个备份文本为空的时候报错。

zhangop9

lnk还原没有问题，url还原后都是打开一个网站的，就一个网站

zhangop9

回复 24# broly
我的 链接文件夹下还有下一级目录，还原时还要新建目录结构如：选用软件、系统更新，不然就报错很不方便！！！！

LinkPath:\Personal\\Favorites\链接\系统更新\9.字体路径.bat.lnk
LinkTargetPath:D:\Personal\setup\字体路径.bat
LinkWorkingDirectory:D:\Personal\Adobe Reader V8\AdobeAcrobatReader

LinkPath:D:\Personal\Favorites\链接\选用软件\Foxit PDF Creator.lnk
LinkTargetPath:D:\Personal\pdf\Foxit PDF Creator 3.0.1.0109 x86\!)绿化.exe
LinkWorkingDirectory:D:\Personal\pdf\Foxit PDF Creator 3.0.1.0109 x86

LinkPath:D:\Personal\Favorites\链接\选用软件\开机映射网络磁盘批处理.lnk.lnk
LinkTargetPath:D:\Personal\自动登录脚本\自动登录网络共享盘\开机映射网络磁盘批处理.bat
LinkWorkingDirectory:D:\Personal\自动登录脚本\自动登录网络共享盘

LinkPath:D:\Personal\Favorites\链接\选用软件\快速定位注册表.vbs.lnk
LinkTargetPath:D:\Personal\自动登录脚本\安装脚本\快速定位注册表.vbs
LinkWorkingDirectory:D:\Personal\校时\网络校时

zhangop9

可以用了，谢谢，目录想想办法自己搞吧