Open File From Stores

Question

I understand how to use OpenFile&nbsp;but how do you open a file from the Stores?

alexkaras · Accepted Answer

Hi William,
&nbsp;
Not sure I got the problem...
Isn't Files.FileNameByName() what you are looking for?

william_roe · Answer

That's a bummer.&nbsp;Thanks for the reply.

william_roe · Answer

AlexKaras wrote:Hi William,&nbsp;Not sure I got the problem...Isn't Files.FileNameByName() what you are looking for?That's it EXACTLY. Thank you.

alexkaras · Answer

Any time... :)

william_roe · Answer

william_roe wrote:AlexKaras wrote:Hi William,&nbsp;Not sure I got the problem...Isn't Files.FileNameByName() what you are looking for?That's it EXACTLY. Thank you.AlexKarasAnytime arrived sooner than expected.&nbsp;I can't figure out how to use the FileOpen dialog in a keyword test.In the screen captures below 'VDTBrowser is mapped to the 'Browse' button and opens the FileOpen dialog. FileUcparseconfigfileTextbox01np fails with "...window is disabled". If the dlgOpen.OpenFile is called without the the previous two lines I'm getting object does not exist. I'm sure it's simple but I'm not seeing it. The upload control is DevExpress v15&nbsp;@Html.DevExpress().UploadControl(s =&gt; { s.Name = "ucParseConfigFile"; s.CallbackRouteValues = new { Controller = "Opportunity", Action = "FileImport" }; s.AutoStartUpload = true; s.ValidationSettings.Assign(CribMaster.Web.Base.Util.Helper.UploadControlHelper.ExcelValidationSettings); s.ClientSideEvents.FilesUploadStart = "function (s,e) { ShowLoading(); }"; s.ClientSideEvents.FileUploadComplete = "ExcelFileUploadCompleted"; //s.ClientSideEvents.TextChanged = "function(s, e) { ucParseConfigFile.Upload(); }"; s.ShowClearFileSelectionButton = false; s.Enabled = (Model.UsageType != null) ? true : false; }).GetHtml()&nbsp;&nbsp;&nbsp;

alexkaras · Answer

Hi William,
&nbsp;
Excuse me for the delayed reply...
&nbsp;
&gt; Anytime arrived sooner than expected.:) (Y)
&nbsp;
Not sure if I got the whole question and the problem... Please let me know if this is the case.
Meanwhile, here is the core of the code that works for me (web application, upload of some file). I left a workaround code in the SystemDialogFileOpen() function as a sample. In my given case,&nbsp;some links that initiate file upload were overlapped by the invisible unrelated objects, so TestComplete reported the 'overlapping window' warning and the upload process was not started. The workaround solved this (the warning in the log is still there, so as a side benefit, I can find places where links are overlapped) and made it possible to keep the test code to be generic (more or less).
The "dlgInternetExplorer" alias item is a child of the browser and is mapped using this condition:
WndClass Equals #32770 And WndCaption Does Not Equal "View Downloads*" And Visible Equals True
&nbsp;
...
&nbsp; arFilesToUpload = Array("ItemNameFromStores")&nbsp; Set oAddLink = LinkGet(oPanel.Parent, "#", "")&nbsp; Call Log.AppendFolder(aqString.Format("Upload files using the %s panel:", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqString.Quote(cPanelCaption)), oPanel.FullName)&nbsp; For Each strFileToUpload In arFilesToUpload&nbsp;&nbsp;&nbsp; If (Not Files.Contains(strFileToUpload)) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call Log.Warning( _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqString.Format("%sExpected %s item was not found in the Files collection", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cProcNameMsgPrefix, aqString.Quote(strFileToUpload)), strFileToUpload)&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call LinkClick(oAddLink, "")
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strFile = Files.FileNameByName(strFileToUpload)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call SystemDialogFileOpen(strFile)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Call WaitPageLoaded(oPanel, "", "", "", "") ' to wait for potentially long file upload
...
'-----------------------------------------------------------------------------
Function SystemDialogFileOpen(ByVal strValue)&nbsp; Const cProcName = "SystemDialogFileOpen"&nbsp; Dim cProcNameMsgPrefix : cProcNameMsgPrefix = cUnitNameMsgPrefix &amp; cProcName &amp; "(): "
&nbsp;
&nbsp; Dim page&nbsp; Dim browser&nbsp; Dim dlgChooseFile&nbsp; Dim strNewValue&nbsp; Dim oMsgWin
&nbsp;
&nbsp; Set page = GetPage()&nbsp; Set browser = Aliases.browser&nbsp; Set dlgChooseFile = browser.WaitAliasChild("dlgInternetExplorer", 1000)
&nbsp; ' The last resort to find a dialog&nbsp; If (Not dlgChooseFile.Exists) Then&nbsp;&nbsp;&nbsp; ' Workaround for the overlapping Flash object problem&nbsp;&nbsp;&nbsp; Dim d&nbsp;&nbsp;&nbsp; Set d = Sys.Desktop&nbsp;&nbsp;&nbsp; Call d.MouseDown(Win32API.VK_LBUTTON, d.MouseX, d.MouseY)&nbsp;&nbsp;&nbsp; Call aqUtils.Delay(500)&nbsp;&nbsp;&nbsp; Call d.MouseUp(Win32API.VK_LBUTTON, d.MouseX, d.MouseY)&nbsp;&nbsp;&nbsp; Set dlgChooseFile = browser.WaitAliasChild("dlgInternetExplorer", 10000)
&nbsp;&nbsp;&nbsp; If (Not dlgChooseFile.Exists) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' DONE: Safari workaround&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If ("safari" = browser.ObjectIdentifier) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set dlgChooseFile = browser&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set dlgChooseFile = page.Parent&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; dlgChooseFile.Refresh&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set dlgChooseFile = dlgChooseFile.WaitWindow("#32770", "*", -1, Project.Variables.pvtPageTimeout)&nbsp;&nbsp;&nbsp; End If&nbsp; End If
&nbsp; ' Workaround for IE9 issue when access to the UNC file is denied whatever&nbsp; ' login credentials are entered&nbsp; strNewValue = ""&nbsp; If ("iexplore" = browser.ObjectIdentifier) Then&nbsp;&nbsp;&nbsp; If (9 = browser.FileVersionInfo.MajorPart) Then&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strNewValue = FileNameMakeUnique(strValue)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strValue = strNewValue&nbsp;&nbsp;&nbsp; End If&nbsp; End If
&nbsp; Call Log.Message(aqString.Format("Select the %s file in the ensuing Open File dialog window", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqString.Quote(strValue)), _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strValue)
&nbsp;
&nbsp; If (Not dlgChooseFile.Exists) Then&nbsp;&nbsp;&nbsp; Call Log.Error("Open File dialog window was not found. File was not processed.", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strValue, , , page.PagePicture)&nbsp;&nbsp;&nbsp; SystemDialogFileOpen = ""&nbsp;&nbsp;&nbsp; Exit Function&nbsp; End If
&nbsp;
&nbsp; Call dlgChooseFile.OpenFile(strValue)
&nbsp;
&nbsp; Set oMsgWin = page.WaitAlert(500)&nbsp; If (oMsgWin.Exists) Then&nbsp;&nbsp;&nbsp; Call Log.Warning(aqString.Format("%s error was shown while processing %s file", _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aqString.Quote(oMsgWin.Message), aqString.Quote(strValue)), _&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; oMsgWin.Message &amp; vbCrLf &amp; strValue, , , page.PagePicture)&nbsp;&nbsp;&nbsp; Call oMsgWin.Button("OK").ClickButton()&nbsp; End If
&nbsp;
&nbsp; SystemDialogFileOpen = strValueEnd Function'-----------------------------------------------------------------------------

Forum Discussion

Open File From Stores

7 Replies

Related Content

Open file Security - Warning Popup

Downloading and opening files from a browser

In which files are project variables stored?

How do we open local files?

open file in hex format

Recent Discussions

Dynamic Object

Inspecting a DotNetBrowser Chromium control

Pulling in Dynamic Links from a web page

Multiple execution of a test plan with different values from an Excel table

Your thoughts about a REST API in TestComplete