Đánh giá chủ đề:
  • 1 Votes - 2 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Liệt kê ổ đĩa và thư mục
#1
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


File đính kèm
.zip   Liet ke o dia va thu muc.zip (Kích cỡ: 10.93 KB / Tải về: 16)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
(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

Nếu thực hiện điều này ở VB6.0 thì dể vô cùng, còn ở Office sao bạn không dùng Common dialog ?
Ngoài cách trên tôi xin giới thiệu cho bạn cách chọn thư mục và lấy tên file như sau:

Chép code sau vào module

Mã PHP:
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 LongByVal sPath As String) As Long 

Vẽ 1 form, trong form có 1 cái nút là Command4, 1 listbox có tên List2

Code trong form như sau:

Mã PHP:
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 lngIDstrDirThen
    strFolder 
Left(strDirInStr(strDirChr(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 

Bạn thử nhé.
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Noname
#3
Mình không rành lắm, bạn có thể thực hiện vào file mình gửi kèm được không ?
Cám ơn bạn nhiều !


File đính kèm
.zip   Liet ke o dia va thu muc.zip (Kích cỡ: 10.93 KB / Tải về: 7)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
(05-10-11, 12:01 PM)DoquangLam Đã viết: Mình không rành lắm, bạn có thể thực hiện vào file mình gửi kèm được không ?
Cám ơn bạn nhiều !

Bạn xem file đính kèm nhé.



File đính kèm
.zip   Liet ke o dia va thu muc.zip (Kích cỡ: 11.76 KB / Tải về: 48)
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng , haquocquan , Noname , maidinhdan , thanhthienhg


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Liệt kê giá trị lớn nhất khi nhấn 1 nút trên form huuviet_huu 5 551 16-11-14, 10:59 AM
Bài mới nhất: huuviet_huu
  Tìm kiếm và liệt kê danh sách số người sinh trong một tháng bất kỳ xuantaidn 4 2,437 28-03-12, 02:01 PM
Bài mới nhất: ngominhthuan
  Xin giúp đỡ về bài form dạng báo cáo liệt kê !!? Ezio 9 1,936 08-02-12, 11:37 AM
Bài mới nhất: nguyentamvlo

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ