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)