VBA-VB6 - izlasiet visus direktoriju failus

Funkcija Scripting.FileSystemObject aizstāj programmu Application.FileSearch, kas vairs nav pieejama no Office 2007

Piemērs, kā saglabāt visus attēlu failus direktorijā.

Ielīmēt modulī :

 Iespēja Izskaidrot Datu Dati () Dim NBdata Kā Integer 'Optier tout ficiers d'un répertoir et évventellement des sous-répertoirs' Si SousRep = taisnība Le Répertoir source doit être dans Rep Publiskās funkcijas LireRepertoir (ByVal Rep kā virkne, izvēles SousRep As Būla), kā Integer Dim Obj, RepP, F, S, sf, F1, Fsous Dim i kā Integer, Ext kā virkne Dim Chem kā virkne Dim T kā dubultā 'Application.MousePointer = 13' Pour VB6 Set Obj = CreateObject ("Skripts .FileSystemObject ") Set RepP = Obj.Getfolder (Rep) Chem = Rep: If Right (Chem, 1)" Tad Chem = Chem & "Iestatīt sf = RepP.subfolders Set F = RepP.Files GoSub RempliData" Ja jūs esat SousRep, tad 'les fichiers des sous-répertoirs Par katru Fsous In sf Set RepP = Fsous Set F = RepP.Files GoSub RempliData Nākamais Fsous End Ja iziet no funkcijas' *********** ************************************************** ********* RempliData: Katram F1 In F Ext = LCase (labajā pusē (F1.Name, 3)) Ja Ext = "bmp" vai Ext = "jpg" Tad "pakāpiens" n à adapteris ReDim Saglabāt datus (5, NBdata) Dati (0, NBdata) = F1.Name dati (1, NBdata) = F1.ParentFolder & "& F1.Name dati (2, NBdata) = F1.DateCreated Data (3, NBdata) = F1.DateLastAccessed dati (4, NBdata) = F1.DateLastModified T = F1.Size Ja T <99999 Tad dati (5, NBdata) = T & "Bi" ElseIf T <999999 Tad dati (5, NBdata) = Round (T / 1000, 1) & "Ko" Else Data (5, NBdata) = Round (T / 1000000, 1) & "Mo" beigas Ja NBdata = NBdata + 1 Beigas Ja Nākamais F1 Atgriešanās beigu funkcija