VB获取特殊文件夹

程序代码：

Option Explicit
'获取特殊文件夹
'引用　Microsoft Shell Controls And Automation
'添加 textbox listbox
'石陆软件屋　http://baidu.bzzo.net

Private Sub Form_Load()

    Dim llCount As Long
    Dim MyShell As New Shell

    For llCount = 0 To 61

        On Error Resume Next
        List1.AddItem llCount & ":" & MyShell.NameSpace(llCount)    '获取特殊文件夹

    Next

End Sub

Private Sub List1_Click()

    Dim n As Long
    Dim MyShell As New Shell
    n = Left$(List1.Text, InStr(List1.Text, ":") - 1)
    Text1 = MyShell.NameSpace(n).Self.Path
End Sub

---

VB部分相关文章推荐

※VB快速读取 TextBox 第 N 行的资料

※VB禁止使用 Alt-Tab 或 Ctrl-Alt-Del

※生成迷宫的程序

※另一方法转换大小写

※VB控件注册 - 利用资源文件将dll、</