51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1994|回复: 0
打印 上一主题 下一主题

[原创] QTP函数自学之----BuildPath、copyfile 、DriveExists

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-4-6 10:02:13 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
欢迎大家指点

  

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

  
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-8 05:58 , Processed in 0.067089 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表