DxDesigner Scripting, how to exit program

Discussion created by vkhurana on Mar 21, 2012
Latest reply on Mar 21, 2012 by vkhurana

Say I have a form (efm) that includes edit box and a button.  The button does a bunch of things but first it needs to check to ensure that file specified in edit box is excel file.  Here's what I have done but this does not work i.e. get the error shown in snapshot below and DxDesigner crashes.  The code you see below is in efm (form) as supposed to a vbs file.  It looks like I cannot use For iOuterloop = 1 to 1 in efm (it works fine in a vbs).  How to work around this?  Ideas are appreciated.


Sub Button1_EventClick()

Dim This : Set This = Button1


     For iOuterLoop = 1 To 1


        sEditBoxText = EditBox1.Text


        ' ensure that Edit Box Text is xlsx file


        EditTextArray = Split(sEditBoxText, ".")

        iLastSubscript = UBound(EditTextArray)


        sLastArrayValue = EditTextArray(iLastSubscript)

        sLastArrayValue = LCase(sLastArrayValue)


        If sLastArrayValue <> "xlsx" Then


            MsgBox "This is not an Excel file"

            Exit Sub




          'all code goes here


        End If