51Testing软件测试论坛

标题: 如何用scripts获取Mac和Ubntu的路径 [打印本页]

作者: mulan_zhi 时间: 2018-9-10 10:56
标题: 如何用scripts获取Mac和Ubntu的路径
写了一下的scripts，但是在Mac和Unbntu上运行时，还是走得  if fso.FileExists("C:\Button.bmp") then 这个分支，大侠帮看看：
Dim fso, windowsDirName, linuxDirName
windowsDirName = "C:"
linuxDirName = "/tmp"

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(windowsDirName)) Then

if fso.FileExists("C:\Button.bmp") then
      Set file = fso.GetFile("C:\Button.bmp")
      file.Delete
      End If
Browser("index").Page("Buttons").WebButton("Push me!").CaptureBitmap "C:\Button.bmp"
if fso.FileExists("C:\Button.bmp") then
      Set file = fso.GetFile("C:\Button.bmp")
      file.Delete
      Reporter.ReportEvent micPass, "Button.CaptureBitmap", "The method passed"
else
      Reporter.ReportEvent micFail, "Button.CaptureBitmap", "The method failed"
end if
ElseIf (fso.FolderExists(linuxDirName)) Then

Browser("index").Page("Buttons").WebButton("Push me!").CaptureBitmap "/tmp/Button.bmp"
if fso.FileExists("/tmp/Button.bmp") then
      Set file = fso.GetFile("/tmp/Button.bmp")
      file.Delete
      Reporter.ReportEvent micPass, "Button.CaptureBitmap", "The method passed"
else
      Reporter.ReportEvent micFail, "Button.CaptureBitmap", "The method failed"
end if
else

Browser("index").Page("Buttons").WebButton("Push me!").CaptureBitmap "/usr/Button.bmp"
if fso.FileExists("/usr/Button.bmp") then
      Set file = fso.GetFile("/usr/Button.bmp")
      file.Delete
      Reporter.ReportEvent micPass, "Button.CaptureBitmap", "The method passed"
else
      Reporter.ReportEvent micFail, "Button.CaptureBitmap", "The method failed"
end if
End If

谢谢

作者: 梦想家 时间: 2018-9-12 09:52

作者: libingyu135 时间: 2018-9-12 10:24

作者: qqq911 时间: 2018-9-12 10:45
条件为真

作者: jingzizx 时间: 2018-9-12 12:32

作者: cclovely 时间: 2018-9-13 10:07

作者: qqq911 时间: 2018-9-13 10:47
判断条件为真

作者: 梦想家 时间: 2018-9-13 11:10

作者: jingzizx 时间: 2018-9-13 12:05
不了解

作者: 赵佳乐SMILE 时间: 2018-9-16 13:56
学习

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