Tùy chọn
Add danh sách file trong cùng 1 folder vào list box
- Add danh sách file trong cùng 1 folder vào list box
-
Add danh sách file trong cùng 1 folder vào list box
haw_4er > 09-09-13, 03:25 PM
Chào cả nhà,
Mình có 1 vấn đề này, mong cả nhà giúp mình
Như trên tiêu đề, mình muốn list box hiện tên cá file có trong 1 folder bất kỳ.
Cám ơn cả nhà nhiều ^^ -
RE: Add danh sách file trong cùng 1 folder vào list box
Xuân Thanh > 09-09-13, 11:04 PM
(09-09-13, 03:25 PM)haw_4er Đã viết: Chào cả nhà,
Mình có 1 vấn đề này, mong cả nhà giúp mình
Như trên tiêu đề, mình muốn list box hiện tên cá file có trong 1 folder bất kỳ.
Cám ơn cả nhà nhiều ^^
Bạn cần tên file trong folder hay cả tên đường dẫn?
Tên File : thuthuataccess.mdb
Tên đường dẫn : D:\Access\thuthuataccess.mdb -
RE: Add danh sách file trong cùng 1 folder vào list box
haw_4er > 10-09-13, 12:16 PM
Mình cần cả 2 luôn, như là khi mình link thới folder đó thì xuất hiện trong đó có nhưng file nào ^^ -
RE: Add danh sách file trong cùng 1 folder vào list box
Xuân Thanh > 10-09-13, 01:09 PM
Mã PHP:Sub GetFile()
Dim i As Long, MyDir As String
MyDir = "D:\Access"
With Application.FileSearch
.LookIn = MyDir '<--- Tim trong thu muc này
.FileName = "*.*" '<--- Kieu file can tìm
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Me.lstTenFile.AddItem Replace(.FoundFiles(i), MyDir & "\", "") '<--- Chi lay ten file
Me.lstDuongDan.AddItem .FoundFiles(i) '<----Lay ca duong dan
Next i
End If
End With
End Sub -
RE: Add danh sách file trong cùng 1 folder vào list box
MTNQ > 21-10-13, 12:45 AM
Hôm nay lang thang trên diển đàn thấy bài này làm thử không được, tìm hiểu thì mới biết FileSearch function đã được gỡ bỏ kể từ phiên bản 2007, thay cho hàm này có thể sử dụng hàm Dir hoặc FileSystemObject
Các bạn có thể tham khảo tại đây:
http://support.microsoft.com/kb/935402
Dir function:
http://office.microsoft.com/en-us/access...28824.aspx
FileSystemObject:
http://support.microsoft.com/kb/185601
-
RE: Add danh sách file trong cùng 1 folder vào list box
Xuân Thanh > 21-10-13, 12:19 PM
1/ Đúng là từ Office 2007 không còn hỗ trợ FileSerach nữa, nhưng cũng không nên lạm dụng hàm Dir. Cách chuẩn nhất là dùng FileSystemObject
2/ Nhân tiện giới thiệu với các bạn một hàm tìm kiếm dựa vào lệnh DOS. Bài viết của bạn ndu9608163, một thành viên kỳ cựu của Giải pháp Excel
Mã PHP:Function GetListFile(ByVal Folder As String, ByVal Search As String, ByVal InSub As Boolean)
Dim sComm As String, tmpFile
On Error GoTo ExitSub
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
Folder = """" & Folder & """"
With CreateObject("Scripting.FileSystemObject")
tmpFile = .GetTempName
sComm = "DIR " & Folder & "*" & Search & "* /ON /B /A-D " & IIf(InSub, "/S", " ") & " >" & tmpFile
CreateObject("Wscript.Shell").Run "cmd /c " & sComm, 0, True
GetListFile = Split(.OpenTextFile(tmpFile, 1).ReadAll, vbCrLf)
End With
Kill tmpFile
ExitSub:
End Function
Cú pháp hàm GetListFile là:
GetListFile(Đường dẫn của thư mục, kiểu file muốn lấy, có lấy file trong thư mục con không)
Ví dụ
Arr = GetListFile("D:\Excel, "*.xls", True) ---> Nghĩa là lấy toàn bộ kiểu file xls trong thư mục D:\Excel, bao gồm cả thư mục con... Kết quả cho vào biến Arr
Arr = GetListFile("D:\Software", "*", FALSE) ---> Nghĩa là lấy tất cả các file (bất cứ loại file nào) trong thư mục D:\Software, không bao gồm cả thư mục con... Kết quả cho vào biến Arr
Hàm này sẽ trả về kết quả là 1 mảng chứa các phần tử là đường dẫn của các file ---> Từ mảng kết quả này, bạn muốn làm gì tiếp tùy ý thôi
Thân mến