如何使用UFT验证本地文件系统上是否存在文件

时间:2013-12-17 14:51:04

标签: hp-uft

我在UFT中使用api测试通过FTP传输文件,如果我尝试传输文件时本地文件系统上不存在该文件,则会创建一个原始名称为空的文件,并通过FTP。有没有办法返回错误,而不是只通过ftp复制一个空白文件?我愿意在尝试复制之前使用自定义代码检查文件是否存在,尽管如果文件不存在,UFT只会返回错误会更好。

1 个答案:

答案 0 :(得分:2)

请尝试这个希望它会帮助

Set fileSystemObj = createobject("Scripting.FileSystemObject")

'检查给定文件是否存在'

MyFile = "C:\TestFile.txt"

If fileSystemObj.FileExists(MyFile) then

    Msgbox  "File is present" & MyFile

Else

    Msgbox "File does not present" & MyFile

End If

'检查给定文件夹是否存在'

MyFolder = "C:\TestFolder"

If fileSystemObj.FolderExists(MyFolder) Then

    Msgbox  "Folder is present" & MyFolder

Else

    Msgbox "Folder does not present" & MyFolder

End If

'检查给定的云端硬盘是否存在'

MyDrive ="D:\" 

If fileSystemObj.DriveExists(MyDrive) then 

    Msgbox  "Drive is present" & MyDrive

Else

    Msgbox "Drive does not present" & MyDrive

End If

Set fileSystemObj = Nothing