VBA-VB6 - Olvassa el az összes könyvtárfájlt

A Scripting.FileSystemObject függvény helyettesíti az Application.FileSearch alkalmazást, amely már nem elérhető az Office 2007-től

Példa arra, hogyan tárolható az összes képfájl egy könyvtárba.

Beillesztés egy modulba :

 Opció Kifejezett Dim Data () Dim NBdata Mint „Integer” Az „Optenir tout” és a „SiftRep = true” elemei Le Répertoir forrás doit être dans Rep Public Function LireRepertoir (ByVal Rep mint karakterlánc, opcionális SousRep As Boolean) Integer Dim Obj, RepP, F, S, sf, F1, Fsous Dim i, mint Integer, Ext, mint karakterlánc Dim Chem mint karakterlánc Dim T mint dupla 'Application.MousePointer = 13' VB6 készlet beállítása Obj = CreateObject ("Scripting .FileSystemObject ") RepP = Obj.Getfolder (Rep) beállítása Chem = Rep: If Right (Chem, 1)" Ezután Chem = Chem & "" sf = RepP.subfolders Set F = RepP.Files GoSub RempliData " Ha a SousRep ezután 'les fichiers des sous-répertoirs mindegyik Fsous számára sf-ben RepP = Fsous készlet F = RepP.Files GoSub RempliData Következő Fsous vége Ha kilép a funkcióból' *********** ************************************************** ********* RempliData: Mindegyik F1-hez F Ext = LCase (jobb (F1.Name, 3)) Ha Ext = "bmp" vagy Ext = "jpg" Ezután "kiterjedés" n à adapter ReDim adatok megőrzése (5, NBdata) Adatok (0, NBdata) = F1.Name adatok (1, NBdata) = F1.ParentFolder & "& F1.Name adatok (2, NBdata) = F1.DateCreated Data (3, NBdata) = F1.DateLastAccessed Data (4, NBdata) = F1.DateLastModified T = F1.Size Ha T <99999 Ezután az adatok (5, NBdata) = T & "Bi" ElseIf T <999999 Ezután Adatok (5, NBdata) = Kerek (T / 1000, 1) & "Ko" További adatok (5, NBdata) = Kerek (T / 1000000, 1) & "Mo" vége Ha NBdata = NBdata + 1 vége Ha a következő F1 visszatérési funkció