QTP函数自学之----BuildPath、copyfile 、DriveExists
欢迎大家指点BuildPath
描述 现有路径后附加名称。 语法
object.BuildPath(path, name)
BuildPath 方法的语法有以下部分： 部分描述
object 必选。应为FileSystemObject 对象的名称。
path 必选。要附加 name 的现有路径。可以是绝对或相对路径且无需指定现有文件夹。
name 必选。要附加到现有 path 的名称。 说明仅在必要时，BuildPath 方法在现有路径与该名称之间插入附加路径分隔符 【范例】 输出已知路径下的文件名称FolderPath ="D:\a" '指定目录Set test1 =createobject("scripting.filesystemobject")'创建test1组件 num = test1.BuildPath(FolderPath,"a.txt") '获取指定文件的名称msgboxnum '输出文件名称
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\" '拷贝文件Iftest1.FileExists("D:\b\a.vbs") Then '判断文件是否存在 msgbox"文件已经拷贝成功！点击确定退出"else msgbox "文件复制失败！点击确定退出"End If备注：FileExists检查文件是否存在【范例】把C盘下的usr文件夹复制到D盘的A文件夹下并判断文件夹是否存在setfso=createobject("scripting.filesystemobject") fso.copyfolder "c:\usr","d:\a\"'If fso.FolderExists("D:\a\usr")Then '判断文件夹是否存在 msgbox"拷贝成功！点击确定退出"else msgbox "拷贝失败！点击确定退出"End If备注：FolderExists检查文件是夹否存在
DriveExists 方法 描述如果指定的驱动器存在，返回 True，如果不存在返回 False。语法object.DriveExists(drivespec)DriveExists方法语法有如下几部分：部分描述Object必需的。始终是一个 FileSystemObject 的名字。Drivespec必需的。一个驱动器字符或一个完整的路径说明。说明对于可删除介质的驱动器，即使没有介质存在， DriveExists 方法也返回 True。使用 Drive 对象的 IsReady 属性确定驱动器是否准备好。【范例】检查E盘是否存在 Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.DriveExists("E") Then MsgBox "E盘存在。" Else MsgBox "E盘不存在。" End If Set FSO = Nothing
页:
[1]
