File1.Path = w.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Favorites")
For i = 0 To File1.ListCount - 1
MsgBox File1.List(i) ‘此處即返回具體的文件名稱。
Next
但動態菜單對vb來說可能就要麻煩壹些了,因為妳接來還要進行調用處理,比較省事的做法就是首先用菜單設計器將了菜單做好(估計數量),然後設為隱藏,在根據讀入內容的數量選擇性的顯示,並修改其capiton值。
麻煩壹點或正統壹點,就需要用到api來做了。具體api方法如下:
AppendMenu 添加壹個菜單條目
CreatMenu 創建壹個空的頂級菜單
GetMenu 得到壹個菜單句柄
GetMenuItemCount 判斷菜單的條目數量
GetMenuItemID 判斷壹個菜單的ID
GetMenuString 取得壹個菜單的字符串(名字)
GetSubMenu 獲得指定菜單條目上壹個彈出菜單的句柄
InsertMenu 在菜單裏插入壹個菜單條目
RemoveMenu (移除菜單條目)