上传对话框录制的问题

boyeestudio

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

复制代码

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

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

boyeestudio

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

复制代码

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

假装不在

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是那个文件的路径。