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

lhthai · 24/10/14

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 · 24/10/14

lhthai đã viết:
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 :

PHP:

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

ndu96081631 · 24/10/14

lhthai đã viết:
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 · 25/10/14

ndu96081631 đã viết:
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 · 27/10/14

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 · 27/10/14

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

Quang_Hải · 27/10/14

lhthai đã viết:
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 · 28/10/14

quanghai1969 đã viết:
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 · 28/10/14

lhthai đã viết:
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 · 29/10/14

quanghai1969 đã viết:
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 · 29/10/14

lhthai đã viết:
đã 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 · 31/10/14

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

Mã:

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 · 31/10/14

tanthanh94 đã viết:
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

Mã:

Sửa thế này thử xem

PHP:

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 · 31/10/14

quanghai1969 đã viết:

Sửa thế này thử xem

PHP:

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 · 9/11/17

quanghai1969 đã viết:
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 · 9/11/17

concuarangme đã viết:
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 · 9/11/17

be09 đã viết:
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 · 9/11/17

quanghai1969 đã viết:
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 · 10/11/17

concuarangme đã viết:
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 · 10/11/17

be09 đã viết:
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

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

Thành viên thường trực

Thành viên gắn bó

Huyền thoại GPE

Thành viên thường trực

Thành viên thường trực

Thành viên thường trực

Thành viên gạo cội

File đính kèm

Thành viên thường trực

Thành viên gạo cội

Thành viên thường trực

Thành viên gạo cội

File đính kèm

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên chính thức

Biên Hòa, Đồng Nai

File đính kèm

Thành viên chính thức

Thành viên chính thức

Biên Hòa, Đồng Nai

Thành viên thường trực

Facebook

Group