51Testing软件测试论坛

标题: 上传对话框录制的问题 [打印本页]

作者: boyeestudio 时间: 2008-7-24 11:15
标题: 上传对话框录制的问题

Browser("Browser").Window("文件上传 -- Web Page Dialog").Page("文件上传").WebFile("FILE1").Click
Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "My Computer"
Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "Local Disk (D:)"
Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Select "Example1.xls"
Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinButton("Open").Click
Browser("Browser").Window("文件上传 -- Web Page Dialog").Page("文件上传").WebButton("上传它！").Click

复制代码

我在上传之前，想检查一下Example1.xls是不是存在？怎么写脚本啊？请高手指教！先谢谢了！

[ 本帖最后由 boyeestudio 于 2008-7-24 11:18 编辑 ]

作者: 假装不在 时间: 2008-7-24 11:38
Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
   ReportFileStatus =ture
Else
   ReportFileStatus =false
End If
End Function

if ReportFileStatus("c:/Example1.xls") then
      Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Select "Example1.xls"
end if

filespec是那个文件的路径。

作者: boyeestudio 时间: 2008-7-24 13:51
标题: 文件选择对话框中的步骤录制不成功

Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinComboBox("Look in:").Select "My Computer"
Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Select "Local Disk (D:)"
Browser("Browser").Window("文件上传 -- Web Page Dialog").Dialog("Choose file").WinListView("SysListView32").Activate "Local Disk (D:)"

复制代码

在第一步中，选择My Computer，回放时，选择了。但选择对话中的列表没有到达My Computer中，而是在C盘，或者是D盘，导致，后面的步骤找不到对象。请高手看一下，怎么处理？谢！

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