Viết code tìm kiếm các file trong Folder

[lhthai]

Chào các Anh
Em có Folder gồm nhiều file mỗi lần tìm kiếm rất lâu
Em muốn viết code như sau
Tại Textbox gõ tên file cần tim
Thì hiện danh sách các file cần tìm trên listbox
chỉ cần nhấn Double click vào thì mở file đó ra
Do upload báo lỗi nên up tạm lên đây
http://www.fshare.vn/file/XDEA70UODJ/

 

[hungpecc1]

Chào các Anh
Em có Folder gồm nhiều file mỗi lần tìm kiếm rất lâu
Em muốn viết code như sau
Tại Textbox gõ tên file cần tim
Thì hiện danh sách các file cần tìm trên listbox
chỉ cần nhấn Double click vào thì mở file đó ra
Do upload báo lỗi nên up tạm lên đây
http://www.fshare.vn/file/XDEA70UODJ/

Xem thử link bên dưới :

http://www.giaiphapexcel.com/forum/showthread.php?25782-Duy%E1%BB%87t-file-Excel-trong-sub-folder

 

[ndu96081631]

Chào các Anh
Em có Folder gồm nhiều file mỗi lần tìm kiếm rất lâu
Em muốn viết code như sau
Tại Textbox gõ tên file cần tim
Thì hiện danh sách các file cần tìm trên listbox
chỉ cần nhấn Double click vào thì mở file đó ra
Do upload báo lỗi nên up tạm lên đây
http://www.fshare.vn/file/XDEA70UODJ/

Cái này chắc là hợp với bạn nè:
http://www.giaiphapexcel.com/forum/...-folder-cho-trước-và-tạo-Hyperlink&highlight=

 

[lhthai]

Cái này chắc là hợp với bạn nè:
http://www.giaiphapexcel.com/forum/...-folder-cho-trước-và-tạo-Hyperlink&highlight=

Cám ơn anh
Nhưng anh có thể làm ngắn gọn được không
Em chỉ cần gõ tên file và nhấn doulbe click là mở file đó luôn

 

[lhthai]

Chào các Anh GPE
Mình muốn sửa Texbox như sau
Chỉ cần gõ tên file thôi không cần gõ *.* ví dụ như
gõ NV-Y104P là tìm kiếm các file thôi
Tại lisbox
1. không hiện đường dẫn chỉ hiện tên file thôi chỉ hiện như vậy thôi
vd:NV-Y104P 9B-1425-004C-pdf
2.Doulbe Click vào listbox vào là mở file luôn không cần đến đường link

 

[lhthai]

Không ai viết đành phải chờ thôi

 

[Quang_Hải]

Chào các Anh GPE
Mình muốn sửa Texbox như sau
Chỉ cần gõ tên file thôi không cần gõ *.* ví dụ như
gõ NV-Y104P là tìm kiếm các file thôi
Tại lisbox
1. không hiện đường dẫn chỉ hiện tên file thôi chỉ hiện như vậy thôi
vd:NV-Y104P 9B-1425-004C-pdf
2.Doulbe Click vào listbox vào là mở file luôn không cần đến đường link

Thử file này
Nhấp đúp vào hộp đường dẫn để chọn thư mục
Nhập ký tự đầu của tên file vào hộp tên file
Nhấp đúp vào file trong listbox

 

[lhthai]

Thử file này
Nhấp đúp vào hộp đường dẫn để chọn thư mục
Nhập ký tự đầu của tên file vào hộp tên file
Nhấp đúp vào file trong listbox

Cám ơn Anh Quanghai1969
File này tương tự như file của anh ndu96081631
ý em lả muốn rút gọn như file đính kèm em đã gửi
hoặc bổ sung thêm vào file 3 checkbox
check chon file Xls
check chon file pdf
check chon tất cả *.*
còn Doulbe Click vào listbox vào là mở file luôn không cần đến đường link

 

[Quang_Hải]

Cám ơn Anh Quanghai1969
File này tương tự như file của anh ndu96081631
ý em lả muốn rút gọn như file đính kèm em đã gửi
hoặc bổ sung thêm vào file 3 checkbox
check chon file Xls
check chon file pdf
check chon tất cả *.*
còn Doulbe Click vào listbox vào là mở file luôn không cần đến đường link

Bạn kiên nhẫn đợi xem coi có ai siêng hơn không nha. Mình lười lắm rồi. Vả lại cũng hết khả năng rồi. Yêu cầu của bạn cao quá với hết tới rồi.

 

[lhthai]

Bạn kiên nhẫn đợi xem coi có ai siêng hơn không nha. Mình lười lắm rồi. Vả lại cũng hết khả năng rồi. Yêu cầu của bạn cao quá với hết tới rồi.

đã hoàn thành hơn được 50% rồi nha

 

[Quang_Hải]

đã hoàn thành hơn được 50% rồi nha

Tính không viết nhưng nhờ tam khảo cái 50% của bạn và code tạm thế này

 

[tanthanh94]

Chào các Anh GPE
Em thấy file của Anh quanghai1969 rất hay
Nếu trường hợp em muốn sữa tên checkbox trên form ".xls" thành Excel & ".doc" thanh Word ..
Không biết hàm trên đây sữa như thế nào

Function LoaiFile(path) As String
   Dim Tem As String, i As Byte
   With UserForm1
      For i = 1 To 5
         If .Controls("CheckBox" & i) = True Then
            Tem = Tem & path & "*" _
            & .Controls("CheckBox" & i).Caption & "* "
         End If
      Next
      LoaiFile = Tem
   End With
End Function

 

[Quang_Hải]

Chào các Anh GPE
Em thấy file của Anh quanghai1969 rất hay
Nếu trường hợp em muốn sữa tên checkbox trên form ".xls" thành Excel & ".doc" thanh Word ..
Không biết hàm trên đây sữa như thế nào

Sửa thế này thử xem

Function LoaiFile(path) As String
   Dim Tem As String, i As Byte, StrType()
   StrType = Array(".xls", ".doc", ".pdf", ".zip", ".rar")
   For i = 1 To 5
      If UserForm1.Controls("CheckBox" & i) = True Then
         Tem = Tem & path & "*" & StrType(i - 1) & "*" & Space(1)
      End If
   Next
   LoaiFile = Tem
End Function

 

[tanthanh94]

Sửa thế này thử xem

Function LoaiFile(path) As String
   Dim Tem As String, i As Byte, StrType()
   StrType = Array(".xls", ".doc", ".pdf", ".zip", ".rar")
   With UserForm1
      For i = 1 To 5
         If .Controls("CheckBox" & i) = True Then
            Tem = Tem & path & "*" & StrType(i - 1) & "*" & Space(1)
         End If
      Next
      LoaiFile = Tem
   End With
End Function

Cám ơn anh rất nhiều

 

[concuarangme]

Thử file này
Nhấp đúp vào hộp đường dẫn để chọn thư mục
Nhập ký tự đầu của tên file vào hộp tên file
Nhấp đúp vào file trong listbox

Code này đúng với mình đang cần tìm, nhưng file của mình đang lưu trong nhiều thư mục con quá nên nhờ anh giúp thêm phần tìm luôn trong các thư mục con nhé. Cảm ơn nhiều.

 

[be_09]

Code này đúng với mình đang cần tìm, nhưng file của mình đang lưu trong nhiều thư mục con quá nên nhờ anh giúp thêm phần tìm luôn trong các thư mục con nhé. Cảm ơn nhiều.

Thử dùng File này:
Cách dùng:
- Bước 1: Tại D1, nhấn nút Tạo Link, hộp thoại mở ra tìm và chọn Folder cha xong click OK, vậy là xong việc lấy tên File và tạo Link.
- Bước 2: Chọn cột B và nhấn Ctrl+F, hộp thoại mở ra gõ tên File cần tìm, xong click vào tên File và nhấn Yes.

 

[concuarangme]

Thử dùng File này:
Cách dùng:
- Bước 1: Tại D1, nhấn nút Tạo Link, hộp thoại mở ra tìm và chọn Folder cha xong click OK, vậy là xong việc lấy tên File và tạo Link.
- Bước 2: Chọn cột B và nhấn Ctrl+F, hộp thoại mở ra gõ tên File cần tìm, xong click vào tên File và nhấn Yes.

Cảm ơn bạn nhiều. Do file anh QuangHai viết mình tích hợp vào form đang sử dụng nên cần edit lại 1 chút để có thể search được sub-folder.

 

[concuarangme]

Tính không viết nhưng nhờ tam khảo cái 50% của bạn và code tạm thế này

Anh cho em hỏi vì sao mình không search được file trong ổ đĩa network, ổ đĩa local thì mình search được bình thường. Cần edit thêm chổ nào không anh. Cảm ơn anh nhiều.

 

[be_09]

Cảm ơn bạn nhiều. Do file anh QuangHai viết mình tích hợp vào form đang sử dụng nên cần edit lại 1 chút để có thể search được sub-folder.

Tôi thiết nghĩ:
Tìm trên UserForm thì bạn nên nêu rõ mục đích để các thành viên hiểu mà giúp cho đúng ý.
Còn tìm để xem chơi cho vui thì không nên làm cho tốn công, tốn sức.

 

[cdtam]

Thử dùng File này:
Cách dùng:
- Bước 1: Tại D1, nhấn nút Tạo Link, hộp thoại mở ra tìm và chọn Folder cha xong click OK, vậy là xong việc lấy tên File và tạo Link.
- Bước 2: Chọn cột B và nhấn Ctrl+F, hộp thoại mở ra gõ tên File cần tìm, xong click vào tên File và nhấn Yes.

Phải tải về ngâm cứu thôi.Hehe