VBA-VB6 - Đọc tất cả các tệp thư mục

Hàm Scripting.FileSystemObject thay thế Application.FileSearch không còn khả dụng như từ Office 2007

Một ví dụ về cách lưu trữ tất cả các tệp hình ảnh vào một thư mục.

Dán trong một mô-đun :

 Tùy chọn Giải thích dữ liệu Dim () Dim NBdata As Integer 'Optenir tout les fichiers d'un répertoir et éventuellement des sous-répertoirs' Si SousRep = true 'Le répertoir source doit être dans Rep Chức năng công khai Boolean) As Integer Dim Obj, RepP, F, S, sf, F1, Fsous Dim i As Integer, Ext As String Dim Chem As String Dim T As Double 'Application.MousePulum = 13' Pour VB6 Đặt Obj = CreateObject ("Scripting .FileSystemObject ") Đặt RepP = Obj.Getfolder (Rep) Chem = Rep: If Right (Chem, 1)" \ "Sau đó, Chem = Chem &" \ "Đặt sf = RepP.subprinters Đặt F = RepP.Files GoSub RempliData ' les fichiers du répertoir chính Nếu SousRep Sau đó 'les fichiers des sous-répertoirs cho mỗi Fsous Trong sf Đặt RepP = Fsous Set F = RepP.Files GoSub RempliData Next Fsous End If Thoát Hàm' ****** ****** / TÌM KIẾM ********* RempliData: Dành cho mỗi F1 Trong F Ext = LCase (Phải (F1.Name, 3)) Nếu Ext = "bmp" Hoặc Ext = "jpg" Sau đó 'scopeio n à bộ điều hợp ReDim bảo quản dữ liệu (5, NBdata) Dữ liệu (0, NBdata) = F1.Name Data (1, NBdata) = F1.ParentFolder & "\" & F1.Name Data (2, NBdata) = F1.DateCreated Data (3, NBdata) = F1.DateLastAccessed Data (4, NBdata) = F1.DateLastModified T = F1.Size If T <99999 Then Data (5, NBdata) = T & "Bi" Else If T <999999 Then Data (5, NBdata) = Vòng (T / 1000, 1) & "Ko" Dữ liệu khác (5, NBdata) = Vòng (T / 1000000, 1) & "Mo" Kết thúc Nếu NBdata = NBdata + 1 Kết thúc Nếu chức năng kết thúc F1 tiếp theo