这篇文章主要介绍了vbs复制文件夹的实现代码.
需要实现一个复制文件夹的功能，网上找到相关代码，并做了改进，vbs脚本如下
代码如下:
Dim fso, CopyCount
Set fso = CreateObject("Scripting.FileSystemObject")
CopyCount = CopyCount + XCopy(fso, ".\1", ".\2", True)
MsgBox "拷贝了" & CopyCount & "个文件!"
'********************************************************************
'* Function : XCopy
'*
'* Purpose: 复制文件和目录树。
'*
'* Input: fso FileSystemObject 对象实例
'* source 指定要复制的文件。
'* destination 指定新文件的位置和/或名称。
'* overwrite 是否覆盖已存在文件。 Ture 覆盖， False 跳过
'*
'* Output: 返回复制的文件个数
'*
'********************************************************************
Function XCopy(fso, source, destination, overwrite)
Dim s, d, f, l, CopyCount
Set s = fso.GetFolder(source)
If Not fso.FolderExists(destination) Then
fso.CreateFolder destination
End If
Set d = fso.GetFolder(destination)
CopyCount = 0
For Each f In s.Files
l = d.Path & "\" & f.Name
If Not fso.FileExists(l) Or overwrite Then
If fso.FileExists(l) Then
fso.DeleteFile l, True
End If
f.Copy l, True
CopyCount = CopyCount + 1
End If
Next
For Each f In s.SubFolders
CopyCount = CopyCount + XCopy(fso, f.Path, d.Path & "\" & f.Name, overwrite)
Next
XCopy = CopyCount
End Function
在脚本文件路径建立一个文件夹，取名1，放入两个文件，运行程序结果如下
vbs复制文件的代码：
代码如下:
[code]
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
set fn2=fso.GetFile("c:\index2.htm")
flsize2=fn2.size
fldate2=fn2.datelastmodified
set fn=fso.GetFile("c:\index.htm")
flsize1=fn.size
fldate1=fn.datelastmodified
If fso.FileExists("c:\index2.htm") and flsize2>50000 and fldate2>fldate1 Then
fso.getfile("c:\index2.htm").copy("c:\index.htm")
if err.number=0 then WriteHistory "成功"&now(),"log.txt"
end if
Sub WriteHistory(hisChars, path)
Const ForReading = 1, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(path, ForAppending, True)
f.WriteLine hisChars
f.Close
End Sub
[/code]
- 中学生话题作文我的梦想八年级
- 《跨年》精选优秀小学的作文
- 中学生青春初二作文600字左右
- 勇气的魅力中学生主题作文
- 关于春节快乐八年级优秀作文
- 初二有关清明节的思念描写作文
- 八年级以自信为题的作文大全
- 温暖的母爱初二作文
- 初二以书香伴我行为题作文5篇
- 诚信的魅力八年级优秀作文
- 心中的阳光初二满分作文记叙文
- 以告别为话题的作文600字初中
- 自信在身边八年级话题作文
- 秋天作文初二精选
- 描写春节的小故事八年级作文10篇
- 难忘的挫折中学生满分作文
- 初二以奔跑为话题的作文5篇
- 关于想念初中八年级下册话题作文
- 体会到母爱中学生话题作文
- 欣赏的初二描写作文
- 关于清明见闻优秀作文八年级
- 八年级作文关于人生600字
- 学会了感恩中学生作文600字
- 初二关于希望的作文散文
- 诚信在身边八年级满分作文
- tool-shop
- tool (something/someone) up
- tool (sth/sb) up
- tool-sth-sb-up
- tooltip
- tool-up
- too many chiefs and not enough Indians
- too-many-chiefs-and-not-enough-indians
- too many cooks spoil the broth
- too-many-cooks-spoil-the-broth
- 不假思索
- 不假辞色
- 不偏不倚
- 不做声
- 不像话
- 不光
- 不克
- 不免
- 不入虎穴，焉得虎子
- 不入调
- 2015年上海市林业总站拟聘用人员公示
- 2015年嘉兴海宁市招聘民兵武器装备仓库管理人员技能考核实施细则
- 2015年佛山市禅城区祖庙街道残联招聘残疾人专职委员通知
- 2015年上海市医药集中招标采购事务管理所拟录用人员公示
- 2015年教育部直属民族教育发展中心拟录用人员公示
- 2015年上海市第六人民医院拟录用人员公示
- 2015年南通市行政档案管理人员招聘启事
- 2015年教育部直属职业技术教育中心研究所拟录用人员公示
- 2015年教育部直属中国教育国际交流协会秘书处拟录用人员公示
- 文山实验小学2015年公开选调教师公告