WD The fListFile function - Listar arquivos e diretorios de um uma unidade de disco
sDirectoryName is string
DatatimeInicial is DateTime = DateSys()+TimeSys()
sDirectoryName = fSelectDir("","Select the directory whose files must be listed")
IF sDirectoryName ~= "" THEN RETURN
EDT_Parent_Directory = sDirectoryName
// Delete the elements from the table
TableDeleteAll(TABLE_ELEMENTS)
// Update the files and the directories
REFDirectories()
UPDFiles()
datatimeFinal is DateTime = DateSys()+TimeSys()
Info(DatatimeInicial,datatimeFinal)