51Testing软件测试论坛

标题: QTP函数自学之----BuildPath、copyfile 、DriveExists [打印本页]

作者: 圣西罗 时间: 2012-4-6 10:02
标题: 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") '获取指定文件的名称

msgbox num '输出文件名称

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检查文件是夹否存在

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)