做为运维的管理员来说，维护数据是最重要的工作之一；对于备份来说，现在有很多备份工具，但是我们也可以通过系统自带的计划任务+vbs进行重要数据的备份；话不多说了，具体信息见下：
该脚本主要分为三部分：
一、.将整个目录拷贝，文件夹+文件夹内部的文件
|
1
2
3
4
5
|
strFolder1=
"D:\Software Install\酷狗"
'
//要查找的目录
strFolder2="\\192.168.4.56\l$\" '
//目标目录,注意后面的反斜杠要加上
Set fso = CreateObject(
"Scripting.FileSystemObject"
)
fso.CopyFolder strFolder1, strFolder2
msgbox
"finish"
|
二、备份目录下的文件，不拷贝文件夹
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
On Error Resume Next
Dim strFolder1,strFolder2
strFolder1=
"E:\test"
'
//要查找的目录
strFolder2="E:\B\" '
//目标目录,注意后面的反斜杠要加上
Call CopyFiles(strFolder1)
MsgBox
"完成！"
WScript.Quit
Sub CopyFiles(strPath)
Dim Folder,subFolders,Files,File,fso
Set fso = CreateObject(
"Scripting.FileSystemObject"
)
Set Folder = fso.Getfolder(strPath)
Set subFolders = Folder.subFolders
Set Files = Folder.Files
For Each File In Files
fso.CopyFile File.Path,strFolder2,False '设置为
false
，表示如果文件存在则不覆盖
If Err.Number<>0 Then Err.Clear
Next
For Each subfolder In subFolders
CopyFiles(subFolder.Path) '递归查找子目录
Next
End Sub
|
三、备份目录下的指定文件
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
On Error Resume Next
Dim strFolder1,strFolder2
strFolder1=
"D:\IIS\ChangPwd\log\resetlog.txt"
'
//要查找的目录
strFolder2="\\192.168.7.31\d$\IIS2\" '
//目标目录,注意后面的反斜杠要加上
Call CopyFiles(strFolder1)
MsgBox
"完成！"
WScript.Quit
Sub CopyFiles(strPath)
Dim Folder,subFolders,Files,File,fso
Set fso = CreateObject(
"Scripting.FileSystemObject"
)
fso.CopyFile strFolder1,strFolder2,True '设置为
false
，表示如果文件存在则不覆盖
End Sub
|
本文转自 高文龙 51CTO博客，原文链接：http://blog.51cto.com/gaowenlong/1357792，如需转载请自行联系原作者
