VBA-VB6 - perskaitykite visus katalogų failus

Funkcija „ Scripting.FileSystemObject“ pakeičia „ Application.FileSearch“, kuri nebėra prieinama „Office 2007“

Pavyzdys, kaip išsaugoti visus vaizdo failus į katalogą.

Įklijuokite į modulį :

 Pasirinkimas Aiškus „Dim Data“ () „Dim NBdata“ kaip „Integer“ „Optenir tout fichiers d'un répertoir et évcentellement des sous-répertoirs“ „Si SousRep = true“ „Le répertoir source doit être dans“ Viešoji funkcija „LireRepertoir“ („ByVal Rep“ kaip eilutė, pasirinktinis „SousRep As“ „Boolean“), kaip Integer Dim Obj, RepP, F, S, sf, F1, Fsous Dim i kaip Integer, „Ext As String“ „Dim Chem“ kaip eilutė „Dim T“ kaip dviguba „Application.MousePointer = 13“ Supilkite VB6 rinkinį Obj = CreateObject („scenarijų .FileSystemObject ") Nustatyti RepP = Obj.Getfolder (Rep) Chem = Rep: If Right (Chem, 1)" Tada Chem = Chem & "" Set sf = RepP.subfolders Set F = RepP.Files GoSub RempliData " Jei „SousRep“ tada „les fichiers des sous-répertoirs kiekvienam„ Fsous “sf rinkinyje RepP = Fsous rinkinys F = RepP.Files„ GoSub RempliData “Kitas„ Fsous “pabaiga Jei išeisite iš funkcijos„ *********** ************************************************** ********* RempliData: kiekvienam F1 į F Ext = LCase (dešinėje (F1.Name, 3)) Jei Ext = "bmp" arba Ext = "jpg" Tada "mastelis" n à adapter ReDim Išsaugoti duomenis (5, NBdata) Duomenys (0, NBdata) = F1.Name duomenys (1, NBdata) = F1.ParentFolder & "& F1.Name duomenys (2, NBdata) = F1.DateCreated Data (3, NBdata) = F1.DateLastAccessed Data (4, NBdata) = F1.DateLastModified T = F1.Size Jei T <99999 Tada duomenys (5, NBdata) = T & "Bi" ElseIf T <999999 Tada duomenys (5, NBdata) = „Round“ (T / 1000, 1) & „Ko“ kiti duomenys (5, NBData) = „Round“ (T / 1000000, 1) & „Mo“ pabaiga Jei NBdata = NBdata + 1 pabaiga Jei kitas F1 grįžimo pabaiga funkcija