请教关于动态加载的菜单问题?

Question

请问如何在菜单中动态加载某目录下的[文件夹]作为菜单项，并加载文件夹下的[快捷方式]作为相应菜单项的下级菜单？（最好能在菜单中显示相应的快捷方式的图标）  
    就像 开始 菜单的 程序 一样可以加载程序目录下的文件夹，并相应加载快捷方式一样。

Answer 1

请看VB动态增减菜单  http://www0.ccidnet.com/school/software//2003/05/26/134_8804.html
只是你加载的不是文件，而是文件夹，这也是可以的。要利用目录列表框（DirListBox）Dir的属性一项一项的读出来，然后添加到你新增加的菜单上面。

Answer 2

事先定义菜单数组,并写好它的响应代码;
Private Sub mnuRecentFiles_Click(Index As Integer)Private Sub MakeRecentFileMenu()    Dim nFileCount  As Integer      If pcolRecentFiles.Count > 0 Then
        frmMain.mnuBar17.Visible = True
    End If
    
    For nFileCount = 1 To pcolRecentFiles.Count
                  
        If nFileCount - 1 > 0 Then
            
            Load frmMain.mnuRecentFiles(nFileCount - 1)
        End If        frmMain.mnuRecentFiles(nFileCount - 1).Caption = _
                nFileCount & " " & pcolRecentFiles(nFileCount)
        frmMain.mnuRecentFiles(nFileCount - 1).Visible = True
    Next nFileCountEnd Sub