FreeVBCode code snippet: Get all Files and Subdirectory Names Within a Path Without Recursion (VB5)