[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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
复制代码
1

评分人数

    • broly: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
2楼
发表于 2011-9-8 00:21 | 只看该作者
求高手看一下！！！！

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
3楼
发表于 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
复制代码
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
4楼
发表于 2011-9-8 00:39 | 只看该作者
你要实现些什么样的功能啊？请详细说明
---学无止境---

TOP

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
5楼
发表于 2011-9-8 00:51 | 只看该作者
我的收藏文件夹下，链接文件夹中有很多目录，目录中有很多快捷方式，我想以文本的方式备份，下次系统重做系统后能恢复回来，不是简单的copy

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
6楼
发表于 2011-9-8 00:56 | 只看该作者
回复 5# zhangop9


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

TOP

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
7楼
发表于 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"

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
8楼
发表于 2011-9-8 07:57 | 只看该作者
楼主，我投降，我不得不承认自己智商不够高，看不懂你想要表达什么。
---学无止境---

TOP

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
9楼
发表于 2011-9-8 12:06 | 只看该作者
"%HOMEPATH%\Favorites\链接"
备份上面路径下的所有快捷方式,以文本方式,还原时以文本为根据还原

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
10楼
发表于 2011-9-8 17:17 | 只看该作者
回复 9# zhangop9


    里面的快捷方式的后缀是什么？.url？全是网址的快捷方式？你好给给我举个例子吧
---学无止境---

TOP

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
11楼
发表于 2011-9-8 18:27 | 只看该作者
里面的快捷方式的后缀是.lnk,有子文件夹"每月工作"、“日常工作”等等

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
12楼
发表于 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
复制代码
---学无止境---

TOP

zhangop9

Rank: 2

帖子
119 
积分
169 
技术
1  
捐助
0  
注册时间
2010-12-16 
13楼
发表于 2011-9-9 08:47 | 只看该作者
本帖最后由 zhangop9 于 2011-9-9 08:49 编辑

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

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
14楼
发表于 2011-9-9 14:32 | 只看该作者
回复 13# zhangop9


    晚上先
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
15楼
发表于 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
复制代码
---学无止境---

TOP

12
返回列表