FileNameGet Weirdness In Diadem 11.0

[jbrandim]

We are using a VBScript where the user must open some Excel files.

I use this line to have them select the first one:

Call FileNameGet("ANY","FileRead",DataDrvUser,"GDAS xls (*.xls),*.xls", "", False, "Select a 'JIS' Workbook")

In Diadem 9.1 this would show a File Open dialog with "Select a 'JIS' Workbook" as

the caption of the dialog.  In Diadem 11.0 that doesn't happen.  The caption reads

"Selection of *.xls Files".

I have attached screen captures to show both.  Is there any way to get the dialog to

behave properly in 11.0?

I really need that caption to prompt them as to which file they should open.

[Snowman 6008 · Accepted solution]

JBrandim,

This appears to be a bug in DIAdem 11.0 and it is fixed in 11.1 which should be released shortly.  If you cannot wait for the fix there is a possability that we could slip you in the 11.1 beta program after the fact. Also after playing around with this for a little bit I found that you could controll the message by editing the fifth parameter. Though if you chose to do this, comment the code very well, if it ever gets run in 11.1 or higher, it will not perform as expected:

Call FileNameGet("ANY","FileRead",DataDrvUser,"GDAS xls (*.xls),*.xls", "PUT YOUR MESSAGE HERE", False, "Hello") 

[jbrandim]

This works in 9.1 and 11.0...

If ProgramRevision = "1100" Then
  'Diadem 11.0 has a bug in the FileNameGet function.  The caption needs to be argument 5.
  Call FileNameGet("ANY","FileRead",DataDrvUser,"GDAS xls (*.xls),*.xls", "Select a 'JIS' Workbook")
Else
  Call FileNameGet("ANY","FileRead",DataDrvUser,"GDAS xls (*.xls),*.xls", "", False, "Select a 'JIS' Workbook")
End If