【问题来了】如果每次迭代，都需要存放在以第一次迭代的当前时间命名的strOutputFo...

allen_jen · 发表于 2015-4-20 10:32:18

下面是一个叫Flight的Action，数据已经导入到了datatable，一共有三行数据，也就是三次迭代。
在第一次迭代的时候会查看环境变量ActionIteration的Value，当为1时，就会生成一个当前时间的文件夹，精确到秒。
问题就出现在strOutputFolder这里，它在第一次迭代的时候是有值的，但是在第二次迭代的时候，通过msgbox查看它就为空了。
这样的结果就是倒数第三行截图存放的目录发生了变化，第一次迭代会存入以当前时间命名的folder里，但是接下来的迭代因为strOutputFolderName为空，就只能存放在outputFiles文件夹下。
【问题来了】如果每次迭代，都需要存放在以第一次迭代的当前时间命名的strOutputFolderName里，请问怎么做？

If Environment.Value("ActionIteration") = 1 Then
strOutputFolderName = "Flight"&Replace(Replace(now(),":","_"),"/","_")

‘生成文件夹
Call AddNewFolder(var_path&"\outputFiles\",strOutputFolderName)
End If

'查看strOutputFolderName的Value
msgbox strOutputFolderName

For Counter = 1 to RowCount

      DataTable.GetSheet("Flight").SetCurrentRow Counter

         TCName = DataTable.Value("txtCaseNum","Flight")

         If Trim(TCName) = Trim(strGTestCaseNo) Then
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("tripType").Select DataTable("FD_TYPE", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("passCount").Select DataTable("FD_PASSENGER", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromPort").Select DataTable("FD_DEP_FROM", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromMonth").Select DataTable("FD_DEP_MONTH", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("fromDay").Select DataTable("FD_DEP_DAY", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("toPort").Select DataTable("FD_ARRIVE", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("toMonth").Select DataTable("FD_ARR_MONTH", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebList("toDay").Select DataTable("FD_ARR_DAY", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebRadioGroup("servClass").Select DataTable("PRE_SER_CLASS", dtLocalSheet)
            Browser("Find a Flight: Mercury").Page("Find a Flight: Mercury").WebButton("findFlights").Click

            imgFileName =var_path & "outputFiles\" & strOutputFolderName & "\" & Trim(DataTable("txtCaseNum",dtLocalSheet))
’将截图存入对应的目录
            Browser("Find a Flight: Mercury").CaptureBitmap imgFileName & ".png", true
         End if
Next