zhangop9

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

broly

Dim wsh,wshSysEnv,objLink
Dim objFSO,subFolders,subFolder,Folder,Files,File
Dim strHOMEDRIVE,strHOMEPATH
Dim strBackup,strLnkPath,strWorkingDirectory,strTargetPath

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

strHOMEDRIVE = wshSysEnv("HOMEDRIVE")
strHOMEPATH = wshSysEnv("HOMEPATH")

Set objFSo = CreateObject("Scripting.FileSystemObject")

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

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

Set wsh = Nothing
Set wshSysEnv = Nothing
Set objFSO = Nothing
Set Folder = Nothing
Set subFolders = Nothing
Set Files = Nothing
Set File = Nothing

MsgBox "Backup Succeed!",,"TIPs"

Sub FindLinks(strPath)
  Set Folder = objFSO.GetFolder(strPath)
  Set subFolders = Folder.subFolders
  Set Files = Folder.Files
  For Each File In Files
	If LCase(objFSO.GetExtensionName(File.Path)) = "lnk" Then
		Set objLink = wsh.CreateShortcut(File.Path)
		strWorkingDirectory = objLink.WorkingDirectory
		strTargetPath = objLink.TargetPath
		strBackup = strBackup & _
			"LinkPath:" & File.Path & vbCrLf & _
			"LinkTargetPath:" & strTargetPath & vbCrLf & _
			"LinkWorkingDirectory:" & strTargetPath _
			& vbCrLf & vbCrLf
	End If
  Next
  For Each subFolder In subFolders
      FindLinks(subFolder.Path)
  Next
End Sub
复制代码

zhangop9

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

broly

回复 9# zhangop9


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

zhangop9

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

broly

楼主，我投降，我不得不承认自己智商不够高，看不懂你想要表达什么。

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"

broly

回复 5# zhangop9


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

zhangop9

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

broly

你要实现些什么样的功能啊？请详细说明

broly

'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

求高手看一下！！！！