DoquangLam > 04-10-11, 11:30 PM
domfootwear > 05-10-11, 11:25 AM
(04-10-11, 11:30 PM)DoquangLam Đã viết: Chào các bạn.
Trên form mình có :
- 1 Combo box : Dùng để liệt kê tất cả các ổ đĩa trên máy (Kể cả thẻ nhớ) : Cái này mình đã làm được rồi
- 1 List box : Dùng để liệt kê tất cả THƯ MỤC khi mình chọn ổ đĩa ở Combo box
Mình nhờ các bạn hướng dẫn : Khi chọn ổ đĩa nào đó trên Combo box thì List box hiện tất cả các thư mục theo ổ đĩa mà mình đã chọn.
Mong các bạn hướng dẫn, cám ơn
Mình gửi file đính kèm
Option Compare Database
Option Explicit
Type MyBrowseInfo
hwndOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Declare Function SHBrowseForFolder Lib "shell32.dll" (ByRef lpbi As MyBrowseInfo) As Long
Declare Function SHGetPathFromIDList Lib "shell32.dll" (pidl As Long, ByVal sPath As String) As Long
Option Compare Database
Private Sub Command4_Click()
Dim BInfo As MyBrowseInfo
Dim strDir As String
Dim strFile As String
Dim BrowseView As Long
Dim lngID As Long
Dim strFolder As String
With BInfo
.pidlRoot = 0
.lpszTitle = "Vui long chon thu muc."
.lpfn = 0
.lParam = 0
.iImage = 0
End With
lngID = SHBrowseForFolder(BInfo)
strDir = Space(255)
If lngID <> 0 Then
If SHGetPathFromIDList(ByVal lngID, strDir) Then
strFolder = Left(strDir, InStr(strDir, Chr(0)) - 1)
End If
End If
strDir = strFolder
List2.RowSourceType = "Value List"
List2.RowSource = ""
strFile = Dir(strDir & "\")
Do While strFile <> ""
If List2.RowSource = "" Then
List2.RowSource = strFile
Else
List2.RowSource = List2.RowSource & strFile
strFile = Dir()
If strFile <> "" Then List2.RowSource = List2.RowSource & ";"
End If
Loop
List2.Value = Null
End Sub
DoquangLam > 05-10-11, 12:01 PM