Note: This is a post transferred from Laurii for historical and consolidation purposes.
As part of the program I've started, I had to perform a recursive walking of all sub-folders from a starting point in a .pst file. Code looks like this:
Sub WalkFolders(fnum)
Dim olApp As