设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 其他脚本区 › VBS求助&讨论 › [已解决]“求恢复链接文件夹的快捷方式”备份已由版主写 ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12下一页
返回列表 发新帖
查看: 61113|回复: 26

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

[复制链接]
zhangop9
发表于 2011-9-7 21:26:27 | 显示全部楼层 |阅读模式
本帖最后由 zhangop9 于 2011-9-9 23:01 编辑

“用VBS按需批量创建快捷方式”在网上找到的运行错误，求高手改一下方便系统重装时恢复快捷方式。
  1. "F:\GreenTools\系统工具\CloseMonitor.scr'
  2. "#F:\GreenTools\TextTools\UltraEdit16\Uedit32.exe
  3. "F:\GreenTools\VirtualTools\VMware7\vmware.exe"
  4. "F:\GreenTools\Devtools\MyEclipse8\MyEclipse 8.x Latest\myeclipse.exe"
  5. "F:\GreenTools\网络工具\comunication\QQ2010\Bin\QQ.exe"
  6. "F:\GreenTools\网络工具\FlashXP3.6\flashfxp.exe"
  7. "F:\GreenTools\通讯\G3 eWalk\G3 eWalk.exe"
  8. "F:\GreenTools\Devtools\VC++6\Common\MSDev98\Bin\MSDEV.EXE"
  9. "===================================================
  10. 'Option Explicit
  11. Const ForReading = 1
  12. Const isCrerateShortcut=1
  13. "参数说明：1创建快捷方式；0删除快捷方式
  14. Set objFSO = CreateObject("Scripting.FileSystemObject")
  15. Set objTextFile = objFSO.OpenTextFile("添加常用应用程序到桌面图标.vbs", ForReading)
  16. Do Until objTextFile.AtEndOfStream
  17.   Dim strNextLine
  18.   Dim spIndex,program,path,pname,ShortcutName
  19.   Dim WshShell
  20. set WshShell = WScript.CreateObject("WScript.Shell")
  21.   "
  22.   strNextLine = objTextFile.Readline
  23.   strNextLine = Mid(strNextLine,2,Len(strNextLine))
  24.   If(InStr(strNextLine,"=====")<>0) Then
  25.    Exit Do
  26.   End If
  27. spIndex=InStr(strNextLine,"#")
  28. If (spIndex=0) Then
  29. part=split(strNextLine,"")
  30. program=strNextLine
  31. pname=part(UBound(part))
  32. path=Mid(strNextLine,1,InStr(strNextLine,pname)-1)
  33. ShortcutName=Mid(pname,1,InStr(pname,".")-1)
  34. "MsgBox ShortcutName
  35. "下面是创建或删除快捷方式
  36. strDesktop = WshShell.SpecialFolders("Desktop")
  37. If(isCrerateShortcut=1)Then "创建
  38. set oShellLink = WshShell.CreateShortcut(strDesktop & "" & ShortcutName & ".lnk") "快捷方式的名字
  39. oShellLink.TargetPath = program "快捷方式里的“目标”
  40. oShellLink.WindowStyle = 1 "快捷方式里的“运行方式”：参数1默认窗口激活，参数3最大化激活，参数7最小化
  41. oShellLink.WorkingDirectory =path "快捷方式里的“起始位置”
  42. oShellLink.Description = "该快捷方式由VBS添加" "快捷方式里的“备注”
  43. oShellLink.Save
  44. ElseIf(isCrerateShortcut=0)Then "删除
  45. objFSO.DeleteFile strDesktop & "" & ShortcutName & ".lnk"
  46. End If
  47. End If
  48. Loop
  49. objTextFile.Close
复制代码

评分

参与人数 1PB +2 收起 理由
broly + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

回复

举报

zhangop9
 楼主| 发表于 2011-9-8 00:21:12 | 显示全部楼层
求高手看一下！！！！
回复

举报

broly
发表于 2011-9-8 00:38:31 | 显示全部楼层
  1. 'F:\GreenTools\系统工具\CloseMonitor.scr'
  2. '#F:\GreenTools\TextTools\UltraEdit16\Uedit32.exe
  3. 'F:\GreenTools\VirtualTools\VMware7\vmware.exe"
  4. 'F:\GreenTools\Devtools\MyEclipse8\MyEclipse 8.x Latest\myeclipse.exe"
  5. 'F:\GreenTools\网络工具\comunication\QQ2010\Bin\QQ.exe"
  6. 'F:\GreenTools\网络工具\FlashXP3.6\flashfxp.exe"
  7. 'F:\GreenTools\通讯\G3 eWalk\G3 eWalk.exe"
  8. 'F:\GreenTools\Devtools\VC++6\Common\MSDev98\Bin\MSDEV.EXE"
  9. '===================================================
  10. 'Option Explicit
  11. Const ForReading = 1
  12. Const isCrerateShortcut=1
  13. '参数说明：1创建快捷方式；0删除快捷方式
  14. Set objFSO = CreateObject("Scripting.FileSystemObject")
  15. Set objTextFile = objFSO.OpenTextFile("添加常用应用程序到桌面图标.vbs", ForReading)
  16. Do Until objTextFile.AtEndOfStream
  17.   Dim strNextLine
  18.   Dim spIndex,program,path,pname,ShortcutName
  19.   Dim WshShell
  20. set WshShell = WScript.CreateObject("WScript.Shell")
  21.   '
  22.   strNextLine = objTextFile.Readline
  23.   strNextLine = Mid(strNextLine,2,Len(strNextLine))
  24.   If(InStr(strNextLine,"=====")<>0) Then
  25.    Exit Do
  26.   End If
  27. spIndex=InStr(strNextLine,"#")
  28. If (spIndex=0) Then
  29. part=split(strNextLine,"")
  30. program=strNextLine
  31. pname=part(UBound(part))
  32. path=Mid(strNextLine,1,InStr(strNextLine,pname)-1)
  33. ShortcutName=Mid(pname,1,InStr(pname,".")-1)
  34. 'MsgBox ShortcutName
  35. '下面是创建或删除快捷方式
  36. strDesktop = WshShell.SpecialFolders("Desktop")
  37. If(isCrerateShortcut=1)Then '创建
  38. set oShellLink = WshShell.CreateShortcut(strDesktop & "" & ShortcutName & ".lnk") '快捷方式的名字
  39. oShellLink.TargetPath = program '快捷方式里的“目标”
  40. oShellLink.WindowStyle = 1 '快捷方式里的“运行方式”：参数1默认窗口激活，参数3最大化激活，参数7最小化
  41. oShellLink.WorkingDirectory =path '快捷方式里的“起始位置”
  42. oShellLink.Description = "该快捷方式由VBS添加" '快捷方式里的“备注”
  43. oShellLink.Save
  44. ElseIf(isCrerateShortcut=0)Then'删除
  45. objFSO.DeleteFile strDesktop & "" & ShortcutName & ".lnk"
  46. End If
  47. End If
  48. Loop
  49. objTextFile.Close
复制代码
回复

举报

broly
发表于 2011-9-8 00:39:09 | 显示全部楼层
你要实现些什么样的功能啊？请详细说明
回复

举报

zhangop9
 楼主| 发表于 2011-9-8 00:51:25 | 显示全部楼层
我的收藏文件夹下，链接文件夹中有很多目录，目录中有很多快捷方式，我想以文本的方式备份，下次系统重做系统后能恢复回来，不是简单的copy
回复

举报

broly
发表于 2011-9-8 00:56:01 | 显示全部楼层
回复 5# zhangop9


    以文本的形式备份？以后说明你的需求时最好把例子列举出来，帮助别人理解
回复

举报

zhangop9
 楼主| 发表于 2011-9-8 01:24:01 | 显示全部楼层
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"
回复

举报

broly
发表于 2011-9-8 07:57:30 | 显示全部楼层
楼主，我投降，我不得不承认自己智商不够高，看不懂你想要表达什么。
回复

举报

zhangop9
 楼主| 发表于 2011-9-8 12:06:30 | 显示全部楼层
"%HOMEPATH%\Favorites\链接"
备份上面路径下的所有快捷方式,以文本方式,还原时以文本为根据还原
回复

举报

broly
发表于 2011-9-8 17:17:15 | 显示全部楼层
回复 9# zhangop9


    里面的快捷方式的后缀是什么？.url？全是网址的快捷方式？你好给给我举个例子吧
回复

举报

zhangop9
 楼主| 发表于 2011-9-8 18:27:22 | 显示全部楼层
里面的快捷方式的后缀是.lnk,有子文件夹"每月工作"、“日常工作”等等
回复

举报

broly
发表于 2011-9-9 00:39:01 | 显示全部楼层
  1. Dim wsh,wshSysEnv,objLink
  2. Dim objFSO,subFolders,subFolder,Folder,Files,File
  3. Dim strHOMEDRIVE,strHOMEPATH
  4. Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath

  6. Set wsh = CreateObject("WScript.Shell")
  7. Set wshSysEnv = wsh.Environment("Process")

  9. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")
  10. strHOMEPATH = wshSysEnv("HOMEPATH")

  12. Set objFSo = CreateObject("Scripting.FileSystemObject")

  14. FindLinks(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")

  16. Set File = objFSO.CreateTextFile("LinkBackUp.txt",True)
  17. File.Write strBackup
  18. File.Close

  20. Set wsh = Nothing
  21. Set wshSysEnv = Nothing
  22. Set objFSO = Nothing
  23. Set Folder = Nothing
  24. Set subFolders = Nothing
  25. Set Files = Nothing
  26. Set File = Nothing

  28. MsgBox "Backup Succeed!",,"TIPs"

  30. Sub FindLinks(strPath)
  31.   Set Folder = objFSO.GetFolder(strPath)
  32.   Set subFolders = Folder.subFolders
  33.   Set Files = Folder.Files
  34.   For Each File In Files
  35.         If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then
  36.                 Set objLink = wsh.CreateShortcut(File.Path)
  37.                 strWorkingDirectory = objLink.WorkingDirectory
  38.                 strTargetPath = objLink.TargetPath
  39.                 strBackup = strBackup & _
  40.                         "LinkPath:" & File.Path & vbCrLf & _
  41.                         "LinkTargetPath:" & strTargetPath & vbCrLf & _
  42.                         "LinkWorkingDirectory:" & strTargetPath _
  43.                         & vbCrLf & vbCrLf
  44.         End If
  45.   Next
  46.   For Each subFolder In subFolders
  47.       FindLinks(subFolder.Path)
  48.   Next
  49. End Sub

复制代码
回复

举报

zhangop9
 楼主| 发表于 2011-9-9 08:47:48 | 显示全部楼层
本帖最后由 zhangop9 于 2011-9-9 08:49 编辑

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

举报

broly
发表于 2011-9-9 14:32:35 | 显示全部楼层
回复 13# zhangop9


    晚上先
回复

举报

broly
发表于 2011-9-9 22:27:06 | 显示全部楼层
备份部分（12楼代码有点错了，现在改回来）：
  1. Dim wsh,wshSysEnv,objLink
  2. Dim objFSO,subFolders,subFolder,Folder,Files,File
  3. Dim strHOMEDRIVE,strHOMEPATH
  4. Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath

  6. Set wsh = CreateObject("WScript.Shell")
  7. Set wshSysEnv = wsh.Environment("Process")

  9. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")
  10. strHOMEPATH = wshSysEnv("HOMEPATH")

  12. Set objFSo = CreateObject("Scripting.FileSystemObject")

  14. FindLinks(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")

  16. Set File = objFSO.CreateTextFile("LinkBackUp.txt",True)
  17. File.Write strBackup
  18. File.Close

  20. Set wsh = Nothing
  21. Set wshSysEnv = Nothing
  22. Set objFSO = Nothing
  23. Set Folder = Nothing
  24. Set subFolders = Nothing
  25. Set Files = Nothing
  26. Set File = Nothing

  28. MsgBox "Backup Succeed!",,"TIPs"

  30. Sub FindLinks(strPath)
  31.   Set Folder = objFSO.GetFolder(strPath)
  32.   Set subFolders = Folder.subFolders
  33.   Set Files = Folder.Files
  34.   For Each File In Files
  35.         If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then
  36.                 Set objLink = wsh.CreateShortcut(File.Path)
  37.                 strWorkingDirectory = objLink.WorkingDirectory
  38.                 strTargetPath = objLink.TargetPath
  39.                 strBackup = strBackup & _
  40.                         "LinkPath:" & File.Path & vbCrLf & _
  41.                         "LinkTargetPath:" & strTargetPath & vbCrLf & _
  42.                         "LinkWorkingDirectory:" & strWorkingDirectory _
  43.                         & vbCrLf & vbCrLf
  44.         End If
  45.   Next
  46.   For Each subFolder In subFolders
  47.       FindLinks(subFolder.Path)
  48.   Next
  49. End Sub
复制代码
还原部分：
  1. Dim wsh,objFSO,f,Folder,strTxtLine,ary,objLink
  2. Dim strLnkPath,strWorkingDirectory,strTargetPath

  4. set wsh = CreateObject("WScript.Shell")
  5. Set objFSO = CreateObject("Scripting.FileSystemObject")
  6. Set f = objFSO.OpenTextFile("LinkBackUp.txt",1)

  8. While Not f.AtEndOfStream
  9.         strTxtLine = f.ReadLine
  10.         If strTxtLine <> "" Then
  11.                 ary = Split(strTxtLine,":",-1)
  12.                 ReDim Preserve ary(3)
  13.                 Select Case ary(0)
  14.                         Case "LinkPath"
  15.                                 strLnkPath = ary(1) & ":" & ary(2)
  16.                         Case "LinkTargetPath"
  17.                                 strTargetPath = ary(1) & ":" & ary(2)
  18.                         Case "LinkWorkingDirectory"
  19.                                 strWorkingDirectory = ary(1) & ":" & ary(2)
  20.                                 CreateLnk strLnkPath,strTargetPath,strWorkingDirectory
  21.                 End Select
  22.         End If
  23. Wend

  25. f.Close

  27. Set wsh = Nothing
  28. Set objFSO = Nothing
  29. Set f= Nothing

  31. MsgBox "Restore Succeed!",Tips

  33. Sub CreateLnk(strLnkPath,strTargetPath,strWorkingDirectory)
  34.         Folder = Left(strLnkPath,InStrRev(strLnkPath,""))
  35.         If Not objFSO.FolderExists(Folder) Then
  36.                 objFSO.CreateFolder Folder
  37.         End If
  38.         Set objLink = wsh.CreateShortcut(strLnkPath)
  39.         objLink.TargetPath = strTargetPath
  40.         objLink.WorkingDirectory = strWorkingDirectory
  41.         objLink.Save
  42.         Set objLink = Nothing
  43. End Sub
复制代码
回复

举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-16 22:04 , Processed in 0.024338 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表