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