CopyFolder的使用
方法名：CopyFolder(source,destination,overwrite)
说明：将文件夹从某位置递归复制到另一位置。详细说明请查看表4。
示例：
| ' 创建FileSystemObject对象 Set objfso = createobject("scripting.FileSystemObject") ' 将D:/test下所有的内容复制到c:/123 objfso.CopyFolder "D:/test","c:/123" |
注：如果c:/123不存在，则QTP将自动创建它
CreateFolder及DeleteFolder的使用
方法名：CreateFolder(foldername)/DeleteFolder(folderspec,force)
说明：创建/删除一个路径名为 foldername 的文件夹。详细说明请查看表4。
示例：
| ' 创建FileSystemObject对象 Set objfso = createobject("scripting.FileSystemObject") ‘ 在c:/创建new folder文件夹，如果文件夹存在，则会出现错误提示 objfso.CreateFolder("c:/new folder") ‘ 删除c:/new folder文件夹 objfso.DeleteFolder("c:/new folder") |
注：DeleteFolder无论文件夹是否包含内容，都将删除该文件夹
FolderExists的使用
方法名：FolderExist(folderspec)
说明：如果指定的文件夹存在，则返回 True；否则返回 False。详细说明请查看表4。
示例：
| Function hanshu(strpath) Dim objfso,objset ‘ 创建FileSystemObjec对象 Set objfso = CreateObject("Scripting.FileSystemObject") ‘ 判断在指定的路径中是否有 If Not objfso.FolderExists(strpath) Then objset = objfso.CreateFolder(strpath) else objset = objfso.DeleteFolder(strpath) End If hanshu = objset End Function hanshu("c:/new folder") |
GetAbsolutePathName的使用
方法名：GetAbsolutePathName(pathspec)
说明：从提供的指定路径中返回完整且含义明确的路径。详细说明请查看表4。
示例：
| Dim objfso ‘创建FileSystemObject对象 Set objfso = createobject("Scripting.FileSystemObject") ‘返回当前的目录，下面两条语句返回一样的结果 msgbox (objfso.GetAbsolutePathName("")) msgbox (objfso.GetAbsolutePathName("C:")) |
GetFolder的使用
方法名：GetFolder(folderspec)
说明：返回与指定的路径中某文件夹相应的 Folder 对象。可以根据所返回的Folder 对象，再去访问该Folder 对象所持有的属性。
示例：
| Dim objfso,objset '创建FileSystemObject对象 Set objfso = createobject("Scripting.FileSystemObject") '返回C:/testing的Folder的对象 Set objset = objfso.GetFolder("C:/testing") ' 根据所返回的Folder对象，去访问其相关的属性 reporter.ReportEvent micDone ,"Folder对象的相关属性","文件夹创建的日期：" & objset.DateCreated &"; 文件夹所在的驱动：" & objset.Drive & "; 文件夹的名字：" & objset.Name |
注：关于Folder对象的属性，将在下面会详细介绍
