Sub Button1_click
Shell("section.exe")
FileOpen (c1,AppPath&"\SectionSelected.text",cRead)
lbsection.Text= FileRead (c1)
FileClose(c1)
End Sub
Sub Button1_click
Shell("section.exe")
[COLOR="Red"]Do While FileExist ("myFile.txt") = False
DoEvents
Loop[/COLOR]
[COLOR="Green"]'This waits for the file to be present before trying to open it[/COLOR]
FileOpen (c1,AppPath&"\SectionSelected.text",cRead)
lbsection.Text= FileRead (c1)
FileClose(c1)
End Sub
I'm not for delays myself, but sometimes its the simplest solution.
Sub Section_click
Shell("sectionProperty1.exe")
tb001.Focus
End Sub
Sub tb001_GotFocus
FileOpen (c1,AppPath&"\"&"SectionFileSelected.txt",cRead)
lbsection.Text= FileRead (c1)
FileClose(c1)
End Sub
Also, I've searched forum but got fragmented results..still can't figure out how to install several applications in one installation process...:sign0085:
Hi Erel,Do you need to create a shortcut icon for each program?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?