QTP Script 10 - How to get all files and folders within a given folder?

How to get all files and folders within a given folder?

'The following VBScript code will recursively loop through all the files and sub folders within a given folder and store their value in a variable.