// Declare and initialize the variables
PathDirFile is string
ResShortName is string
ArrIndex is int = 0 // Index of the array
LoopSubscript is int
ArrayPath is array

// Retrieve the first file found in the directory
PathDirFile = fDir("C:\MyDirectories\*.*", frFile)
WHILE PathDirFile <> "" THEN
	// Increment the array subscript
	ArrSubscript++
	// Include the names of the files in the array
	ArrayPath[ArrSubscript] = PathDirFile
	// Retrieve the next file
	PathDirFile = fDir("")
END

FOR LoopSubscript = 1 TO ArrSubscript
	// Retrieve the short name
	ResShortName = fShortName(ArrayPath[LoopSubscript])
	IF ResShortName = "" THEN
		// Display an error message if the retrieval was not performed
		Error(ErrorInfo(errMessage))
	ELSE
		// Display short name in a List Box control
		ListAdd(LIST_ListShortName, ResShortName)
	END
END