Application Security Testing: An Integral Part of DevOps
After reading the MSDN knowledge base article Q179378 "HOWTO: Browse for Folders from the Current Directory", I was able to figure out how to add a callback function that sets the starting directory and displays the currently selected path in the "Browse For Folder" dialog.
This code works in Window 95a so I assume it will work with later versions.
(Tested also under Win98/NT - works fine)
Dim folder as string ' folder = BrowseForFolder(me, "Select A Directory", _ "C:\startdir\anywhere") ' If len(folder) = 0 then Exit Sub 'User Selected Cancel '