Ticket #880: BugTest.au3

File BugTest.au3, 621 bytes (added by mleo2003@…, 15 years ago)

Sample Script

Line 
1$Path = @ScriptDir
2MsgBox(0, "Info 0", @WorkingDir)
3FileChangeDir(@MyDocumentsDir)
4;~ FileOpenDialog("Test", @MyDocumentsDir, "All (*.*)")
5MsgBox(0, "Info 1", @WorkingDir)
6MsgBox(0, "Info 2", RunWait("charmap.exe", @SystemDir, @SW_SHOW)        & @TAB & @error & @CRLF & @WorkingDir)
7MsgBox(0, "Info 3", RunWait("MsgBox.exe", @ScriptDir, @SW_SHOW)         & @TAB & @error & @CRLF & @WorkingDir)
8MsgBox(0, "Info 4", RunWait("MsgBox.exe", $Path, @SW_SHOW)                      & @TAB & @error & @CRLF & @WorkingDir)
9FileChangeDir(@ScriptDir)
10MsgBox(0, "Info 5", RunWait("MsgBox.exe", @ScriptDir, @SW_SHOW)         & @TAB & @error & @CRLF & @WorkingDir)