Shellexecute not working as expected

[Ventura]

I have created a simple gui tool to open files for me and create shortcut in script dir, but actually ShellExecute doesn't work when I select the text file and open it from gui.. and the shortcut file is there.. but it works when I close the gui and open it again.. so what am I doing wrong? code here...

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form = GUICreate("Open", 154, 76, 399, 245)
$Button = GUICtrlCreateButton("Open file", 32, 24, 89, 33)
GUISetState(@SW_SHOW)

If FileExists("text.lnk") = True Then
    GUICtrlSetData($Button, "Open text")
Else
    GUICtrlSetData($Button, "Open file")
EndIf

While 1
    Switch GUIGetMsg()
        Case $gui_event_close
            Exit
        Case $Button
            Switch GUICtrlRead($Button)
                Case "Open file"
                    $Dialog = FileOpenDialog("Select text", "\", "(*.txt)", "", "")
                    If Not @error Then
                        FileCreateShortcut($Dialog, @ScriptDir & "\text.lnk")
                    EndIf
                    GUICtrlSetData($Button, "Open text")
                Case "Open text"
                    ShellExecute("text.lnk")
            EndSwitch
    EndSwitch
WEnd

 

Edited July 23, 2015 by Ventura

[J2TeaM]

Edit your code like this and try again:

$Dialog = FileOpenDialog("Select text", @ScriptDir, "Text files (*.txt)", 1)

 

[lorenkinzel]

Worked fine for me as written IF the text file was in same dir as the script. Otherwise "Windows can't find text.lnk".

What made it work was: Case "Open text"

                                            ShellExecute(@ScriptDir & "\text.lnk")

[Ventura]

@J2team tested and it didn't work 

@lorenkinzel it works.. didn't think I was missing that part hehe

Edited July 23, 2015 by Ventura