fix FindFiles and add new function

turn FindFiles to a procedure  no need to be a function
add function IsDirectory
add function GetShortDir