Board logo

标题: [问题求助] [已解决]“求恢复链接文件夹的快捷方式”备份已由版主写好了,代码在15楼。 [打印本页]
作者: zhangop9    时间: 2011-9-7 21:26     标题: [已解决]“求恢复链接文件夹的快捷方式”备份已由版主写好了,代码在15楼。

本帖最后由 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
复制代码
作者: zhangop9    时间: 2011-9-8 00:21

求高手看一下！！！！
作者: broly    时间: 2011-9-8 00:38

  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

你要实现些什么样的功能啊？请详细说明
作者: zhangop9    时间: 2011-9-8 00:51

我的收藏文件夹下，链接文件夹中有很多目录，目录中有很多快捷方式，我想以文本的方式备份，下次系统重做系统后能恢复回来，不是简单的copy
作者: broly    时间: 2011-9-8 00:56

回复 5# zhangop9


    以文本的形式备份？以后说明你的需求时最好把例子列举出来，帮助别人理解
作者: zhangop9    时间: 2011-9-8 01:24

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

楼主，我投降，我不得不承认自己智商不够高，看不懂你想要表达什么。
作者: zhangop9    时间: 2011-9-8 12:06

"%HOMEPATH%\Favorites\链接"
备份上面路径下的所有快捷方式,以文本方式,还原时以文本为根据还原
作者: broly    时间: 2011-9-8 17:17

回复 9# zhangop9


    里面的快捷方式的后缀是什么？.url？全是网址的快捷方式？你好给给我举个例子吧
作者: zhangop9    时间: 2011-9-8 18:27

里面的快捷方式的后缀是.lnk,有子文件夹"每月工作"、“日常工作”等等
作者: broly    时间: 2011-9-9 00:39

  1. Dim wsh,wshSysEnv,objLink

  2. Dim objFSO,subFolders,subFolder,Folder,Files,File

  3. Dim strHOMEDRIVE,strHOMEPATH

  4. Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath

  5. 

  6. Set wsh = CreateObject("WScript.Shell")

  7. Set wshSysEnv = wsh.Environment("Process")

  8. 

  9. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")

  10. strHOMEPATH = wshSysEnv("HOMEPATH")

  11. 

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

  13. 

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

  15. 

  16. Set File = objFSO.CreateTextFile("LinkBackUp.txt",True)

  17. File.Write strBackup

  18. File.Close

  19. 

  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

  27. 

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

  29. 

  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

本帖最后由 zhangop9 于 2011-9-9 08:49 编辑

备份没有问题,如何恢复到原处,最好是个vbs能一键恢复回去
作者: broly    时间: 2011-9-9 14:32

回复 13# zhangop9


    晚上先
作者: broly    时间: 2011-9-9 22:27

备份部分（12楼代码有点错了，现在改回来）：
  1. Dim wsh,wshSysEnv,objLink

  2. Dim objFSO,subFolders,subFolder,Folder,Files,File

  3. Dim strHOMEDRIVE,strHOMEPATH

  4. Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath

  5. 

  6. Set wsh = CreateObject("WScript.Shell")

  7. Set wshSysEnv = wsh.Environment("Process")

  8. 

  9. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")

  10. strHOMEPATH = wshSysEnv("HOMEPATH")

  11. 

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

  13. 

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

  15. 

  16. Set File = objFSO.CreateTextFile("LinkBackUp.txt",True)

  17. File.Write strBackup

  18. File.Close

  19. 

  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

  27. 

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

  29. 

  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

  3. 

  4. set wsh = CreateObject("WScript.Shell")

  5. Set objFSO = CreateObject("Scripting.FileSystemObject")

  6. Set f = objFSO.OpenTextFile("LinkBackUp.txt",1)

  7. 

  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

  24. 

  25. f.Close

  26. 

  27. Set wsh = Nothing

  28. Set objFSO = Nothing

  29. Set f= Nothing

  30. 

  31. MsgBox "Restore Succeed!",Tips

  32. 

  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
复制代码
作者: zhangop9    时间: 2011-9-10 18:23

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

回复 16# zhangop9


以后发帖求助，有什么需求最好在顶楼一次说完。
作者: zhangop9    时间: 2011-9-10 20:59

本帖最后由 zhangop9 于 2011-9-10 21:08 编辑

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

最后一次写，楼主自重，下不为例
  1. '备份部分

  2. 

  3. Dim wsh,wshSysEnv,objLink,objUrl

  4. Dim objFSO,subFolders,subFolder,Folder,Files,File

  5. Dim strHOMEDRIVE,strHOMEPATH

  6. Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath

  7. 

  8. Set wsh = CreateObject("WScript.Shell")

  9. Set wshSysEnv = wsh.Environment("Process")

  10. 

  11. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")

  12. strHOMEPATH = wshSysEnv("HOMEPATH")

  13. 

  14. Set objFSO = CreateObject("Scripting.FileSystemObject")

  15. 

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

  17. 

  18. Set File = objFSO.CreateTextFile("BackUp_lnk.txt",True)

  19. File.Write strBackup

  20. File.Close

  21. 

  22. strBackup = ""

  23. FindUrls(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")

  24. 

  25. Set File = objFSO.CreateTextFile("BackUp_url.txt",True)

  26. File.Write strBackup

  27. File.Close

  28. 

  29. Set wsh = Nothing

  30. Set wshSysEnv = Nothing

  31. Set objFSO = Nothing

  32. Set Folder = Nothing

  33. Set subFolders = Nothing

  34. Set Files = Nothing

  35. Set File = Nothing

  36. 

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

  38. 

  39. Sub FindLinks(strPath)

  40.   Set Folder = objFSO.GetFolder(strPath)

  41.   Set subFolders = Folder.subFolders

  42.   Set Files = Folder.Files

  43.   For Each File In Files

  44.         If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then

  45.                 Set objLink = wsh.CreateShortcut(File.Path)

  46.                 strWorkingDirectory = objLink.WorkingDirectory

  47.                 strTargetPath = objLink.TargetPath

  48.                 strBackup = strBackup & _

  49.                         "LinkPath:" & File.Path & vbCrLf & _

  50.                         "LinkTargetPath:" & strTargetPath & vbCrLf & _

  51.                         "LinkWorkingDirectory:" & strWorkingDirectory _

  52.                         & vbCrLf & vbCrLf

  53.         End If

  54.   Next

  55.   For Each subFolder In subFolders

  56.       FindLinks(subFolder.Path)

  57.   Next

  58. End Sub

  59. 

  60. Sub FindUrls(strPath)

  61.   Set Folder = objFSO.GetFolder(strPath)

  62.   Set subFolders = Folder.subFolders

  63.   Set Files = Folder.Files

  64.   For Each File In Files

  65.         If LCase(objFSO.GetExtensionName(File.Path)) = "url" Then

  66.                 Set objUrl = objFSO.OpenTextFile(File.Path,1)

  67. 				strBackup = strBackup & _

  68. 					objUrl.ReadAll & vbCrLf & _

  69. 					"#" & File.Path & vbCrLf & vbCrLf

  70. 				objUrl.Close

  71.         End If

  72.   Next

  73.   For Each subFolder In subFolders

  74.       FindUrls(subFolder.Path)

  75.   Next

  76. End Sub
复制代码
  1. '还原部分

  2. 

  3. Dim wsh,objFSO,f,Folder,strTxtLine,ary,objLink,objUrl

  4. Dim strLnkPath,strWorkingDirectory,strTargetPath,strRestore

  5. 

  6. set wsh = CreateObject("WScript.Shell")

  7. Set objFSO = CreateObject("Scripting.FileSystemObject")

  8. Set f = objFSO.OpenTextFile("BackUp_lnk.txt",1)

  9. 

  10. While Not f.AtEndOfStream

  11.         strTxtLine = f.ReadLine

  12.         If strTxtLine <> "" Then

  13.                 ary = Split(strTxtLine,":",-1)

  14.                 ReDim Preserve ary(3)

  15.                 Select Case ary(0)

  16.                         Case "LinkPath"

  17.                                 strLnkPath = ary(1) & ":" & ary(2)

  18.                         Case "LinkTargetPath"

  19.                                 strTargetPath = ary(1) & ":" & ary(2)

  20.                         Case "LinkWorkingDirectory"

  21.                         	If ary(2) <> "" Then

  22.                                 strWorkingDirectory = ary(1) & ":" & ary(2)

  23.                             End If

  24.                                 CreateLnk strLnkPath,strTargetPath,strWorkingDirectory

  25.                 End Select

  26.         End If

  27. Wend

  28. 

  29. f.Close

  30. 

  31. Set f = objFSO.OpenTextFile("BackUp_url.txt",1)

  32. 

  33. While Not f.AtEndOfStream

  34. 	strTxtLine = f.ReadLine

  35. 	If Left(strTxtLine,1)="#" Then

  36. 		Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))

  37.         If Not objFSO.FolderExists(Folder) Then

  38.                 objFSO.CreateFolder Folder

  39.         End If

  40. 		Set objUrl = objFSO.CreateTextFile(Right(strTxtLine,Len(strTxtLine)-1),True)

  41. 		objUrl.Write strRestore

  42. 		objUrl.Close

  43. 	Else

  44. 		strRestore = strRestore & _

  45. 			strTxtLine & vbCrLf

  46. 	End If

  47. Wend

  48. 

  49. f.Close

  50. 

  51. Set wsh = Nothing

  52. Set objFSO = Nothing

  53. Set f= Nothing

  54. Set objUrl = Nothing

  55. 

  56. 

  57. MsgBox "Restore Succeed!",Tips

  58. 

  59. Sub CreateLnk(strLnkPath,strTargetPath,strWorkingDirectory)

  60.         Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))

  61.         If Not objFSO.FolderExists(Folder) Then

  62.                 objFSO.CreateFolder Folder

  63.         End If

  64.         Set objLink = wsh.CreateShortcut(strLnkPath)

  65.         objLink.TargetPath = strTargetPath

  66.         objLink.WorkingDirectory = strWorkingDirectory

  67.         objLink.Save

  68.         Set objLink = Nothing

  69. End Sub
复制代码
作者: wc726842270    时间: 2011-9-15 23:48

规范性不错，可惜我今天早上才明白它的重要性，呵呵，又落后了
作者: zhangop9    时间: 2011-9-16 11:27

19楼的代码“备份”没有问题，“还原”的代码有一点小问题，要先建目录才能还原。有一个备份文本为空的时候报错。
作者: broly    时间: 2011-9-16 12:23

本帖最后由 broly 于 2011-9-16 19:18 编辑

还原部分（原来那个有地方顺序错了）
  1. '还原部分

  2. 

  3. Dim wsh,objFSO,f,Folder,strTxtLine,ary,objLink,objUrl

  4. Dim strLnkPath,strWorkingDirectory,strTargetPath,strRestore

  5. 

  6. set wsh = CreateObject("WScript.Shell")

  7. Set objFSO = CreateObject("Scripting.FileSystemObject")

  8. Set f = objFSO.OpenTextFile("BackUp_lnk.txt",1)

  9. 

  10. While Not f.AtEndOfStream

  11.         strTxtLine = f.ReadLine

  12.         If strTxtLine <> "" Then

  13.                 ary = Split(strTxtLine,":",-1)

  14.                 ReDim Preserve ary(3)

  15.                 Select Case ary(0)

  16.                         Case "LinkPath"

  17.                                 strLnkPath = ary(1) & ":" & ary(2)

  18.                         Case "LinkTargetPath"

  19.                                 strTargetPath = ary(1) & ":" & ary(2)

  20.                         Case "LinkWorkingDirectory"

  21.                             If ary(2) <> "" Then

  22.                                 strWorkingDirectory = ary(1) & ":" & ary(2)

  23.                             End If

  24.                                 CreateLnk strLnkPath,strTargetPath,strWorkingDirectory

  25.                 End Select

  26.         End If

  27. Wend

  28. 

  29. f.Close

  30. 

  31. Set f = objFSO.OpenTextFile("BackUp_url.txt",1)

  32. 

  33. While Not f.AtEndOfStream

  34.         strTxtLine = f.ReadLine

  35.         Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))

  36.         If Not objFSO.FolderExists(Folder) Then

  37.             objFSO.CreateFolder Folder

  38.         End If

  39.         If Left(strTxtLine,1)="#" Then

  40.                 Set objUrl = objFSO.CreateTextFile(Right(strTxtLine,Len(strTxtLine)-1),True)

  41.                 objUrl.Write strRestore

  42.                 objUrl.Close

  43.                 strRestore = ""

  44.         Else

  45.                 strRestore = strRestore & _

  46.                         strTxtLine & vbCrLf

  47.         End If

  48. Wend

  49. 

  50. f.Close

  51. 

  52. Set wsh = Nothing

  53. Set objFSO = Nothing

  54. Set f= Nothing

  55. Set objUrl = Nothing

  56. 

  57. 

  58. MsgBox "Restore Succeed!",Tips

  59. 

  60. Sub CreateLnk(strLnkPath,strTargetPath,strWorkingDirectory)

  61.         Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))

  62.         If Not objFSO.FolderExists(Folder) Then

  63.                 objFSO.CreateFolder Folder

  64.         End If

  65.         Set objLink = wsh.CreateShortcut(strLnkPath)

  66.         objLink.TargetPath = strTargetPath

  67.         objLink.WorkingDirectory = strWorkingDirectory

  68.         objLink.Save

  69.         Set objLink = Nothing

  70. End Sub
复制代码
作者: zhangop9    时间: 2011-9-16 19:00

lnk还原没有问题，url还原后都是打开一个网站的，就一个网站
作者: broly    时间: 2011-9-16 19:19

回复 23# zhangop9


    sorry,已修正
作者: zhangop9    时间: 2011-9-16 19:29

本帖最后由 zhangop9 于 2011-9-16 23:26 编辑

回复 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    时间: 2011-9-16 19:32

本帖最后由 zhangop9 于 2011-9-16 23:25 编辑

可以用了，谢谢，目录想想办法自己搞吧
作者: wc726842270    时间: 2011-9-23 11:59

其实，这个也可以用P来完成。当然有用WINRAR了，这方面的帮助，还是“百度或GOOGLE”一下比较好
关键字：WINRAR管理清除桌面文件或图标（绝对路径没有改变的情况下）



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2