Solved: Getting the path to a folder from just the folder name

[snb]

Also, every time the one liner gets called it flashes the Windows Cmd window up on the screen for about 2 seconds. How can I suppress that?

[VBA]
Sub M_snb()
Shell "cmd /c Dir G:\OF\*. /b /s > G:\OF\snb.txt"

Do
DoEvents
Loop Until Dir("G:\OF\snb.txt") <> ""

Do
DoEvents
Loop Until FileLen("G:\OF\snb.txt") > 0


MsgBox Split(CreateObject("scripting.filesystemobject").opentextfile("G:\OF\snb.tx t").readall, vbCrLf)(0)
End Sub
[/VBA]