make directory into a menu

[bbosh]

does anyone have code to convert a specifided folder tree w/ files into a menu? I'm talking about something similar to IE's favorites in concept.

[Megatron]

sFile = Dir$("C:\*.*")

Do Until sFile = ""
DoEvents
I = mnuItem.Count
Load mnuItem(I)
mnuItem(I).Caption = sFile
mnuItem(I).Visible = True
sFile = Dir
Loop

[bbosh]

thanks.

any way to accommodate folders?

[Megatron]

Try Dir$("C:\*.*", vbDirectory)