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. Set wsh = CreateObject("WScript.Shell")
  6. Set wshSysEnv = wsh.Environment("Process")
  7. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")
  8. strHOMEPATH = wshSysEnv("HOMEPATH")
  9. Set objFSo = CreateObject("Scripting.FileSystemObject")
  10. FindLinks(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")
  11. Set File = objFSO.CreateTextFile("LinkBackUp.txt",True)
  12. File.Write strBackup
  13. File.Close
  14. Set wsh = Nothing
  15. Set wshSysEnv = Nothing
  16. Set objFSO = Nothing
  17. Set Folder = Nothing
  18. Set subFolders = Nothing
  19. Set Files = Nothing
  20. Set File = Nothing
  21. MsgBox "Backup Succeed!",,"TIPs"
  22. Sub FindLinks(strPath)
  23.   Set Folder = objFSO.GetFolder(strPath)
  24.   Set subFolders = Folder.subFolders
  25.   Set Files = Folder.Files
  26.   For Each File In Files
  27. If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then
  28. Set objLink = wsh.CreateShortcut(File.Path)
  29. strWorkingDirectory = objLink.WorkingDirectory
  30. strTargetPath = objLink.TargetPath
  31. strBackup = strBackup & _
  32. "LinkPath:" & File.Path & vbCrLf & _
  33. "LinkTargetPath:" & strTargetPath & vbCrLf & _
  34. "LinkWorkingDirectory:" & strTargetPath _
  35. & vbCrLf & vbCrLf
  36. End If
  37.   Next
  38.   For Each subFolder In subFolders
  39.       FindLinks(subFolder.Path)
  40.   Next
  41. 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. Set wsh = CreateObject("WScript.Shell")
  6. Set wshSysEnv = wsh.Environment("Process")
  7. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")
  8. strHOMEPATH = wshSysEnv("HOMEPATH")
  9. Set objFSo = CreateObject("Scripting.FileSystemObject")
  10. FindLinks(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")
  11. Set File = objFSO.CreateTextFile("LinkBackUp.txt",True)
  12. File.Write strBackup
  13. File.Close
  14. Set wsh = Nothing
  15. Set wshSysEnv = Nothing
  16. Set objFSO = Nothing
  17. Set Folder = Nothing
  18. Set subFolders = Nothing
  19. Set Files = Nothing
  20. Set File = Nothing
  21. MsgBox "Backup Succeed!",,"TIPs"
  22. Sub FindLinks(strPath)
  23.   Set Folder = objFSO.GetFolder(strPath)
  24.   Set subFolders = Folder.subFolders
  25.   Set Files = Folder.Files
  26.   For Each File In Files
  27.         If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then
  28.                 Set objLink = wsh.CreateShortcut(File.Path)
  29.                 strWorkingDirectory = objLink.WorkingDirectory
  30.                 strTargetPath = objLink.TargetPath
  31.                 strBackup = strBackup & _
  32.                         "LinkPath:" & File.Path & vbCrLf & _
  33.                         "LinkTargetPath:" & strTargetPath & vbCrLf & _
  34.                         "LinkWorkingDirectory:" & strWorkingDirectory _
  35.                         & vbCrLf & vbCrLf
  36.         End If
  37.   Next
  38.   For Each subFolder In subFolders
  39.       FindLinks(subFolder.Path)
  40.   Next
  41. End Sub
复制代码
还原部分:
  1. Dim wsh,objFSO,f,Folder,strTxtLine,ary,objLink
  2. Dim strLnkPath,strWorkingDirectory,strTargetPath
  3. set wsh = CreateObject("WScript.Shell")
  4. Set objFSO = CreateObject("Scripting.FileSystemObject")
  5. Set f = objFSO.OpenTextFile("LinkBackUp.txt",1)
  6. While Not f.AtEndOfStream
  7. strTxtLine = f.ReadLine
  8. If strTxtLine <> "" Then
  9. ary = Split(strTxtLine,":",-1)
  10. ReDim Preserve ary(3)
  11. Select Case ary(0)
  12. Case "LinkPath"
  13. strLnkPath = ary(1) & ":" & ary(2)
  14. Case "LinkTargetPath"
  15. strTargetPath = ary(1) & ":" & ary(2)
  16. Case "LinkWorkingDirectory"
  17. strWorkingDirectory = ary(1) & ":" & ary(2)
  18. CreateLnk strLnkPath,strTargetPath,strWorkingDirectory
  19. End Select
  20. End If
  21. Wend
  22. f.Close
  23. Set wsh = Nothing
  24. Set objFSO = Nothing
  25. Set f= Nothing
  26. MsgBox "Restore Succeed!",Tips
  27. Sub CreateLnk(strLnkPath,strTargetPath,strWorkingDirectory)
  28. Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))
  29. If Not objFSO.FolderExists(Folder) Then
  30. objFSO.CreateFolder Folder
  31. End If
  32. Set objLink = wsh.CreateShortcut(strLnkPath)
  33. objLink.TargetPath = strTargetPath
  34. objLink.WorkingDirectory = strWorkingDirectory
  35. objLink.Save
  36. Set objLink = Nothing
  37. 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. Dim wsh,wshSysEnv,objLink,objUrl
  3. Dim objFSO,subFolders,subFolder,Folder,Files,File
  4. Dim strHOMEDRIVE,strHOMEPATH
  5. Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath
  6. Set wsh = CreateObject("WScript.Shell")
  7. Set wshSysEnv = wsh.Environment("Process")
  8. strHOMEDRIVE = wshSysEnv("HOMEDRIVE")
  9. strHOMEPATH = wshSysEnv("HOMEPATH")
  10. Set objFSO = CreateObject("Scripting.FileSystemObject")
  11. FindLinks(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")
  12. Set File = objFSO.CreateTextFile("BackUp_lnk.txt",True)
  13. File.Write strBackup
  14. File.Close
  15. strBackup = ""
  16. FindUrls(strHOMEDRIVE & strHOMEPATH & "\Favorites\链接")
  17. Set File = objFSO.CreateTextFile("BackUp_url.txt",True)
  18. File.Write strBackup
  19. 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
  27. MsgBox "Backup Succeed!",,"TIPs"
  28. Sub FindLinks(strPath)
  29.   Set Folder = objFSO.GetFolder(strPath)
  30.   Set subFolders = Folder.subFolders
  31.   Set Files = Folder.Files
  32.   For Each File In Files
  33.         If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then
  34.                 Set objLink = wsh.CreateShortcut(File.Path)
  35.                 strWorkingDirectory = objLink.WorkingDirectory
  36.                 strTargetPath = objLink.TargetPath
  37.                 strBackup = strBackup & _
  38.                         "LinkPath:" & File.Path & vbCrLf & _
  39.                         "LinkTargetPath:" & strTargetPath & vbCrLf & _
  40.                         "LinkWorkingDirectory:" & strWorkingDirectory _
  41.                         & vbCrLf & vbCrLf
  42.         End If
  43.   Next
  44.   For Each subFolder In subFolders
  45.       FindLinks(subFolder.Path)
  46.   Next
  47. End Sub
  48. Sub FindUrls(strPath)
  49.   Set Folder = objFSO.GetFolder(strPath)
  50.   Set subFolders = Folder.subFolders
  51.   Set Files = Folder.Files
  52.   For Each File In Files
  53.         If LCase(objFSO.GetExtensionName(File.Path)) = "url" Then
  54.                 Set objUrl = objFSO.OpenTextFile(File.Path,1)
  55. strBackup = strBackup & _
  56. objUrl.ReadAll & vbCrLf & _
  57. "#" & File.Path & vbCrLf & vbCrLf
  58. objUrl.Close
  59.         End If
  60.   Next
  61.   For Each subFolder In subFolders
  62.       FindUrls(subFolder.Path)
  63.   Next
  64. End Sub
复制代码
  1. '还原部分
  2. Dim wsh,objFSO,f,Folder,strTxtLine,ary,objLink,objUrl
  3. Dim strLnkPath,strWorkingDirectory,strTargetPath,strRestore
  4. set wsh = CreateObject("WScript.Shell")
  5. Set objFSO = CreateObject("Scripting.FileSystemObject")
  6. Set f = objFSO.OpenTextFile("BackUp_lnk.txt",1)
  7. While Not f.AtEndOfStream
  8.         strTxtLine = f.ReadLine
  9.         If strTxtLine <> "" Then
  10.                 ary = Split(strTxtLine,":",-1)
  11.                 ReDim Preserve ary(3)
  12.                 Select Case ary(0)
  13.                         Case "LinkPath"
  14.                                 strLnkPath = ary(1) & ":" & ary(2)
  15.                         Case "LinkTargetPath"
  16.                                 strTargetPath = ary(1) & ":" & ary(2)
  17.                         Case "LinkWorkingDirectory"
  18.                          If ary(2) <> "" Then
  19.                                 strWorkingDirectory = ary(1) & ":" & ary(2)
  20.                             End If
  21.                                 CreateLnk strLnkPath,strTargetPath,strWorkingDirectory
  22.                 End Select
  23.         End If
  24. Wend
  25. f.Close
  26. Set f = objFSO.OpenTextFile("BackUp_url.txt",1)
  27. While Not f.AtEndOfStream
  28. strTxtLine = f.ReadLine
  29. If Left(strTxtLine,1)="#" Then
  30. Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))
  31.         If Not objFSO.FolderExists(Folder) Then
  32.                 objFSO.CreateFolder Folder
  33.         End If
  34. Set objUrl = objFSO.CreateTextFile(Right(strTxtLine,Len(strTxtLine)-1),True)
  35. objUrl.Write strRestore
  36. objUrl.Close
  37. Else
  38. strRestore = strRestore & _
  39. strTxtLine & vbCrLf
  40. End If
  41. Wend
  42. f.Close
  43. Set wsh = Nothing
  44. Set objFSO = Nothing
  45. Set f= Nothing
  46. Set objUrl = Nothing
  47. MsgBox "Restore Succeed!",Tips
  48. Sub CreateLnk(strLnkPath,strTargetPath,strWorkingDirectory)
  49.         Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))
  50.         If Not objFSO.FolderExists(Folder) Then
  51.                 objFSO.CreateFolder Folder
  52.         End If
  53.         Set objLink = wsh.CreateShortcut(strLnkPath)
  54.         objLink.TargetPath = strTargetPath
  55.         objLink.WorkingDirectory = strWorkingDirectory
  56.         objLink.Save
  57.         Set objLink = Nothing
  58. 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. Dim wsh,objFSO,f,Folder,strTxtLine,ary,objLink,objUrl
  3. Dim strLnkPath,strWorkingDirectory,strTargetPath,strRestore
  4. set wsh = CreateObject("WScript.Shell")
  5. Set objFSO = CreateObject("Scripting.FileSystemObject")
  6. Set f = objFSO.OpenTextFile("BackUp_lnk.txt",1)
  7. While Not f.AtEndOfStream
  8.         strTxtLine = f.ReadLine
  9.         If strTxtLine <> "" Then
  10.                 ary = Split(strTxtLine,":",-1)
  11.                 ReDim Preserve ary(3)
  12.                 Select Case ary(0)
  13.                         Case "LinkPath"
  14.                                 strLnkPath = ary(1) & ":" & ary(2)
  15.                         Case "LinkTargetPath"
  16.                                 strTargetPath = ary(1) & ":" & ary(2)
  17.                         Case "LinkWorkingDirectory"
  18.                             If ary(2) <> "" Then
  19.                                 strWorkingDirectory = ary(1) & ":" & ary(2)
  20.                             End If
  21.                                 CreateLnk strLnkPath,strTargetPath,strWorkingDirectory
  22.                 End Select
  23.         End If
  24. Wend
  25. f.Close
  26. Set f = objFSO.OpenTextFile("BackUp_url.txt",1)
  27. While Not f.AtEndOfStream
  28.         strTxtLine = f.ReadLine
  29.         Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))
  30.         If Not objFSO.FolderExists(Folder) Then
  31.             objFSO.CreateFolder Folder
  32.         End If
  33.         If Left(strTxtLine,1)="#" Then
  34.                 Set objUrl = objFSO.CreateTextFile(Right(strTxtLine,Len(strTxtLine)-1),True)
  35.                 objUrl.Write strRestore
  36.                 objUrl.Close
  37.                 strRestore = ""
  38.         Else
  39.                 strRestore = strRestore & _
  40.                         strTxtLine & vbCrLf
  41.         End If
  42. Wend
  43. f.Close
  44. Set wsh = Nothing
  45. Set objFSO = Nothing
  46. Set f= Nothing
  47. Set objUrl = Nothing
  48. MsgBox "Restore Succeed!",Tips
  49. Sub CreateLnk(strLnkPath,strTargetPath,strWorkingDirectory)
  50.         Folder = Left(strLnkPath,InStrRev(strLnkPath,"\"))
  51.         If Not objFSO.FolderExists(Folder) Then
  52.                 objFSO.CreateFolder Folder
  53.         End If
  54.         Set objLink = wsh.CreateShortcut(strLnkPath)
  55.         objLink.TargetPath = strTargetPath
  56.         objLink.WorkingDirectory = strWorkingDirectory
  57.         objLink.Save
  58.         Set objLink = Nothing
  59. 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://www.bathome.net/) Powered by Discuz! 7.2