copyfile 描述:把一个或多个文件从一个地方复制到另一个地方。 语法:object.CopyFile source, destination[, overwrite] CopyFile 方法语法有如下几部分: 部分
描述 object 必需的。object始终是一个 FileSystemObject 的名字。 source 必需的。指明一个或多个要被复制文件的字符串文件说明,它可以包括通配符。 destination 必需的。指明 source 中的一个或多个文件要被复制到的接受端的字符串,不允许有通配符。 overwrite 选项的。Boolean 值,它表示存在的文件是否被覆盖。如果是 True,文件将被覆盖;如果是 False,它们不被覆盖。缺省值是 True。注意如果 destination 具有只读属性设置,不论 overwrite 值如何,CopyFile 都将失败。 【范例】把文件从a文件夹复制到b文件夹并判断文件是否存在 FolderPath = "D:\a" '指定目录 Set test1 = createobject("scripting.filesystemobject") '创建test1组件 test1.CopyFile "D:\a\a.vbs","D:\b\" '拷贝文件 If test1.FileExists("D:\b\a.vbs") Then '判断文件是否存在 msgbox "文件已经拷贝成功!点击确定退出" else msgbox "文件复制失败!点击确定退出" End If 备注:FileExists检查文件是否存在 【范例】把C盘下的usr文件夹复制到D盘的A文件夹下并判断文件夹是否存在 set fso=createobject("scripting.filesystemobject") fso.copyfolder "c:\usr", "d:\a\" ' If fso.FolderExists("D:\a\usr") Then '判断文件夹是否存在 msgbox "拷贝成功!点击确定退出" else msgbox "拷贝失败!点击确定退出" End If 备注:FolderExists检查文件是夹否存在 |