// Déclaration des variables
NomCheminFichier is string
IDFichier is int
// Sélection du fichier à ouvrir
NomCheminFichier = fSelect("C:\MesRépertoires", "Fichier.txt", ...
	"Sélectionner un fichier", "Fichier Texte (*.TXT)" + TAB + ...
	"*.txt" + CR + "Tous fichiers (*.*)" + TAB + "*.*", "TXT", fselOpen + fselExist)
// Ouverture du fichier
IDFichier = fOpen(NomCheminFichier, foReadWrite)
// Affichage du message d'erreur si l'ouverture n'a pas été effectuée
IF IDFichier = 1 THEN
   	Error(ErrorInfo(errMessage))
ELSE
   	// Traitements dans le fichier ouvert
   	...
   	// Fin de traitements
END

// --Code de création de la fenêtre
GLOBAL
	NomCheminFichier is string

// --Code de clic sur BTN_SelectFichier
// Code d'initialisation
NumEven is int
// Déclaration de l'événement pour jouer le fichier son sélectionné
NumEven = Event("JouerSon", WinInput(), 1624)
// Sélection d'un fichier son
NomCheminFichier = fSelect("C:\MesRépertoires", "", "Sélectionner un fichier son", ...
		"Son wave (*.WAV)" + TAB + "*.wav", "", fselOpen + fselExist + fselChange)
// Fin de l'événement
EndEvent(NumEven)
// Traitements dans le fichier sélectionné
...
// Fin des traitements

// Procédure locale à la fenêtre. Cette procédure permet de jouer le fichier son
PROCEDURE JouerSon(wMessage, wParam, lParam)
NomFichier is string fixed on 261
// Le chemin du fichier ne peut pas dépasser 260 caractères.

// Récupération de la chaîne qui contient le nom du fichier en cours de sélection
//Transfert(&NomFichier, lParam, wParam)
NomFichier = StringRetrieve(lParam, srUnicodeAddress)
// NomFichier : chaîne recevant le nom du fichier actuellement sélectionné
// lParam : adresse de la chaîne contenant le nom du fichier en cours de sélection
// wParam : taille de la chaîne contenant le nom du fichier en cours de sélection

// Exécution du fichier son sélectionné
Sound(NomFichier)