给你推荐一个好东东
先做 1.在component中添加一个组件:shell32.dll
2.在refrence中添加microsoft scripting runtime然后在窗体中添加一个commandbutton和listbox,然后运行,然后点击list1中的对象,就可以啦Private mdctItems As New Dictionary
Private Sub Command1_Click()
Dim shTemp1 As New Shell
Dim fdTemp1 As Folder
Dim fiTemp1 As FolderItem
Dim strTemp As String
Set fdTemp1 = shTemp1.NameSpace(ssfNETWORK)
mdctItems.RemoveAll
For Each fiTemp1 In fdTemp1.Items
strTemp = fdTemp1.GetDetailsOf(fiTemp1, 0)
List1.AddItem strTemp
mdctItems.Add List1.NewIndex, fiTemp1
Next
End SubPrivate Sub List1_Click()
Dim fiTemp As FolderItem
Dim fiTemp2 As FolderItem
Dim fdTemp As Folder
Dim strTemp As String
Set fiTemp = mdctItems(List1.ListIndex)
If fiTemp.IsFolder Then
List1.Clear
mdctItems.RemoveAll
Set fdTemp = fiTemp.GetFolder
For Each fiTemp2 In fdTemp.Items
strTemp = fdTemp.GetDetailsOf(fiTemp2, 0)
List1.AddItem strTemp
mdctItems.Add List1.NewIndex, fiTemp2
Next
End If
End Sub
先做 1.在component中添加一个组件:shell32.dll
2.在refrence中添加microsoft scripting runtime然后在窗体中添加一个commandbutton和listbox,然后运行,然后点击list1中的对象,就可以啦Private mdctItems As New Dictionary
Private Sub Command1_Click()
Dim shTemp1 As New Shell
Dim fdTemp1 As Folder
Dim fiTemp1 As FolderItem
Dim strTemp As String
Set fdTemp1 = shTemp1.NameSpace(ssfNETWORK)
mdctItems.RemoveAll
For Each fiTemp1 In fdTemp1.Items
strTemp = fdTemp1.GetDetailsOf(fiTemp1, 0)
List1.AddItem strTemp
mdctItems.Add List1.NewIndex, fiTemp1
Next
End SubPrivate Sub List1_Click()
Dim fiTemp As FolderItem
Dim fiTemp2 As FolderItem
Dim fdTemp As Folder
Dim strTemp As String
Set fiTemp = mdctItems(List1.ListIndex)
If fiTemp.IsFolder Then
List1.Clear
mdctItems.RemoveAll
Set fdTemp = fiTemp.GetFolder
For Each fiTemp2 In fdTemp.Items
strTemp = fdTemp.GetDetailsOf(fiTemp2, 0)
List1.AddItem strTemp
mdctItems.Add List1.NewIndex, fiTemp2
Next
End If
End Sub
解决方案 »
- 想问一下这个动态库接口怎么写呢?
- VB 如何获得远程主机的目录
- activereport中的中文显示问题
- 高分求教:如何实现combox响应事件在本页面立即生效?
- 在制作组件的时候,我想把一大段javascript加到组件里面去,怎么才能放进去。
- 请问如何禁止修改系统时间?
- 请教vb高手,dll如何加密?
- VB中鼠标的问题,急。鼠标图像
- 请教大家一个问题,象以下一个软件,大概开价多少合适?
- 一个高分的问题,高手进来,希望版主帮我。急急急
- 请问有没有办法使listbox右边的滚动条不能拖动,只能点击上下的三角?
- liyang,谢谢你上次告诉我一些线索,可我还是解决不了,能否将全部原程序E-MAIL我(关于ISHELLFOLDER的那个问题,从桌面开始显示下面的目录)),我的E-MAIL: [email protected] ,thanks
请liyang发一个例子给我好吗,在此先谢过了。