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)