// Declare the variables
FileNameAndPath is string
FileID is int
// Select file to open
FileNameAndPath = fSelect("C:\MyDirectories", "File.txt", ...
	"Select a file", "Text file (*.TXT)" + TAB + ...
	"*.txt" + CR + "All files (*.*)" + TAB + "*.*", "TXT", fselOpen + fselExist)
// Open file
FileID = fOpen(FileNameAndPath, foReadWrite)
// Display an error message if no file was opened
IF FileID = 1 THEN
   	Error(ErrorInfo(errMessage))
ELSE
   	// Processes in the opened file
   	...
   	// End of processes
END

// --Code for window creation
GLOBAL
	FileNameAndPath is string

// --Click code on BTN_SelectFile
// Initialization code
EventNum is int
// Declare the event used to play the selected sound file
EventNum = Event("PlaySound", WinInput(), 1624)
// Select a sound file
FileNameAndPath = fSelect("C:\MyDirectories", "", "Select a sound file", ...
		"Wave sound (*.WAV)" + TAB + "*.wav", "", fselOpen + fselExist + fselChange)
// End of event
EndEvent(EventNum)
// Processes in the selected file
...
// End of processes

// Procedure local to the window. This procedure is used to play the sound file
PROCEDURE PlaySound(wMessage, wParam, lParam)
FileName is fixed string of 261
// The file path cannot exceed 260 characters.

// Retrieve the string that contains the name of the file currently selected
//Transfer(&FileName, lParam, wParam)
FileName = StringRetrieve(lParam, srUnicodeAddress)
// FileName: string containing the name of the currently selected file
// lParam: address of the string containing the name of the file currently selected
// wParam: size of the string containing the name of the file currently selected

// Run the selected sound file
Sound(FileName)