用户登陆
站点统计
最新评论
日志搜索
其他信息
获取特殊文件夹 [ 日期：2008-04-29 ] '获取特殊文件夹
'引用 Microsoft Shell Controls And Automation
'添加 textbox listbox
'石陆软件屋 http://www.cnng.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,文档
[本日志由 admin 于 2013-11-01 10:59 PM 编辑]
引用通告地址 (0)：
http://www.cnng.net/blog/trackback.asp?tbID=60
http://www.cnng.net/blog/trackback.asp?tbID=60&CP=GBK