需要实现一个复制文件夹的功能，网上找到相关代码，并做了改进，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复制文件的代码：
复制代码 代码如下:
<br />Dim fso
<br />Set fso = CreateObject("Scripting.FileSystemObject")
<br />set fn2=fso.GetFile("c:\index2.htm")
<br />flsize2=fn2.size
<br />fldate2=fn2.datelastmodified
<br />set fn=fso.GetFile("c:\index.htm")
<br />flsize1=fn.size
<br />fldate1=fn.datelastmodified
<br />If fso.FileExists("c:\index2.htm") and flsize2>50000 and fldate2>fldate1 Then
<br />fso.getfile("c:\index2.htm").copy("c:\index.htm")
<br />if err.number=0 then WriteHistory "成功"&now(),"log.txt"
<br />end if
Sub WriteHistory(hisChars, path)
<br />Const ForReading = 1, ForAppending = 8
<br />Dim fso, f
<br />Set fso = CreateObject("Scripting.FileSystemObject")
<br />Set f = fso.OpenTextFile(path, ForAppending, True)
<br />f.WriteLine hisChars
<br />f.Close
<br />End Sub您可能感兴趣的文章:
- vbs实现只复制比目标文件更新的文件
- vbs 自动复制U盘的内容
- 自动复制U盘文件的VBS脚本
- Windows 安装IIS出现的问题（无法安装IIS，提示“安装程序无法复制文件IISApp.vbs”）
- IE浏览器增加“复制图像地址”的右键菜单的vbs代码
- vbs复制文件的脚本
- vbs病毒制作之一复制自身的vbs脚本
- 最新恶意复制型病毒autorun.inf，stNP.VBS，NP.VBS代码简单解析和解决方法
- 用vbscript实现将脚本的输出复制到剪贴板
本文由 华域联盟 原创撰写：华域联盟 » vbs复制文件夹的实现代码
转载请保留出处和原文链接：https://www.cnhackhy.com/16603.htm
