分享程序员开发的那些事...
更新时间：2022-10-12 10:17:16
我们上一篇文章中介绍了使用vbs脚本不同版本的office激活任务，其实说到vbs脚本相信大家都很了解了，有什么作用呢，其实说白了就是执行批处理任务的工具。Vbs在windows上应用相对比较多，其功能上我们就不多说了，今天呢还是介绍vbs脚本程序备份数据的计划任务。怎么想起来备份数据呢，近期呢，领导突然想到对公司的SAP备份数据进行异地备份，这样能提高数据的可恢复性；公司的SAP的系统是每天晚上2点执行一次备份，然后新的一天数据会覆盖旧的数据，如果当数据出现错误，我们也无法使用该之前的备份进行恢复。再加上SAP数据盘我们当时给的磁盘空间不大，仅仅为40G左右，但备份数据就有37G，所以就进行了备份数据的再次备份。具体见下：
当前服务的状态图，我们的备份数据存放在D盘下:该盘为共享磁盘。
我们需要将共享磁盘中；DBBackup下的数据全部备份
DBBackup下有4个文件夹均要备份；其中PRD中的数据为最大为：37G
所以我们就通过vbs脚本定义将D盘下SQLAPPDISK下的DBBackup下的所有文件进行异地备份(剪贴)；
代码定义:将指定目录下的所有文件进行移动(剪贴)
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
sourcefilespath="D:\file"
desfilepath="d:\file_backup\12"&""&Year(date)&-Month(date)&-Day(date)&" "&Hour(time)&-Minute(time)&"\"
Set fso=CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(desfilepath) Thenfso.CreateFolder desfilepath'fso.copyfile 为复制文件'fso.copyfile sourcefilepath,desfilepath'fso.movefile 移动文件MoveFiles sourcefilespath,desfilepathEnd IfFunction MoveFiles(yPath,sPath)On Error Resume NextDim folder,Files,File,subFolder,subFoldersSet fso = createobject("scripting.FileSystemObject")
Set Folder = fso.getFolder(yPath)Set Files = Folder.Files'msgbox yPath & sPahtFor Each File In Filesfso.MoveFile File,sPath&"\"'msgbox FileNextSet subFolder = Folder.SubFoldersFor Each subFolders In subFolderfolderTemp = Split(subFolders,"\")FolderName=FolderTemp(ubound(folderTemp))fso.createFolder(sPath&"\"&FolderName)MoveFiles subFolders,sPath&"\"&FolderName&"\"
fso.DeleteFolder subFoldersNextEnd Function'msgbox "ok"
|
我们需要将D盘下file文件夹下的所有文件移动到D盘下的File_backup文件夹下，并且以当前的备份时间进行命名(注：因为真实环境下不方便演示，所以就模拟环境进行演示)
开始执行代码；文件移动完成，并且以时间日期命名成功过
那如果要拷贝(Copy)指定文件下下的某个文件，我们需要修改代码了
|
1
2
3
4
5
6
7
8
9
10
|
sourcefilepath="c:\names\names.nsf"
desfilepath="d:\name_backup\Name"&""&Year(date)&-Month(date)&-Day(date)&" "&Hour(time)&-Minute(time)&"\"
Set fso=CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(desfilepath) Thenfso.CreateFolder desfilepath'fso.copyfile 为复制文件fso.copyfile sourcefilepath,desfilepath'fso.movefile 移动文件'fso.movefile sourcefilepath,desfilepathEnd If |
如果需要将指定文件夹下的所有文件(文件夹下只有文件，没有目录)，可以参考下面代码
|
1
2
3
4
5
6
7
8
9
10
|
sourcefilespath="d:\file\*.*"
desfilepath="d:\file_backup\Back-Time"&""&Year(date)&-Month(date)&-Day(date)&" "&Hour(time)&-Minute(time)&"\"
Set fso=CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(desfilepath) Thenfso.CreateFolder desfilepath'fso.copyfile 为复制文件'fso.copyfile sourcefilepath,desfilepath'fso.movefile 移动文件fso.movefile sourcefilespath,desfilepathEnd If |
最后，我们说一下，如果我们通过计划任务执行多次数据备份的话，时间长了，我们的磁盘空间就会不足，为了保证磁盘空间的充足，我们再次使用vbs脚本对数据进行的保留进行判断删除。再次比如我们保留3天的数据，依次根据执行时间进行判断将最旧的时间数据删除，依次轮询删除；由于是总结，所以为了体现试验的完整性，我们在不同时间段进行文件的创建，来保证实现vbs通过最后的更改时间进行判断删除
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
set fso = createobject("scripting.filesystemobject")
Set dic = createobject("scripting.dictionary")
set fods = fso.getfolder("D:\file_backup")
set fis=fods.SubFolders
for each fi in fis
str1=str1& Trim(fi.datelastmodified) &"|"
dic.add Trim(fi.datelastmodified),fi.path
'msgbox fi.datelastmodified &" : "&fi.path
' msgbox dic.item(fi.datelastmodified)
nextstr1=Left(str1,Len(str1)-1)strArray = Split(str1,"|",-1)
'msgbox ubound(strArray)Set sortArray = fSortArray(strArray)If Ubound(strArray)>=3 ThenFor i=Lbound(strArray) To Ubound(strArray)-5'msgbox sortArray(i)'msgbox dic.item(Trim(sortArray(i)))fso.DeleteFolder dic.item(Trim(sortArray(i)))NextEnd IfFunction fSortArray(aSortThisArray)Dim oArrayList, iElementSet oArrayList = CreateObject( "System.Collections.ArrayList" )
For iElement = 0 To UBound(aSortThisArray)oArrayList.Add aSortThisArray(iElement)NextoArrayList.Sortset fSortArray = oArrayList
End Function |
如果代码没有问题正确的我们应该会提示删除file2015-9-6 20:26:
因为通过时间判断只有该文件最旧
开始执行
执行完成
最后我们只需要将该基本通过系统自带的任务计划运行即可
开始运行taskschd.msc即可打开计划任务管理控制台
本文转自 高文龙 51CTO博客，原文链接：http://blog.51cto.com/gaowenlong/1692033，如需转载请自行联系原作者
