Šiame straipsnyje mes sukursime makrokomandą, kad surinktume išsamią informaciją apie visus aplanko failus.
Prieš paleisdami makrokomandą, teksto laukelyje turime nurodyti aplanko kelią.
Paleidus makrokomandą, jis grąžins visų aplanke esančių failų failo pavadinimą, failo kelią, failo dydį, sukūrimo datą ir paskutinio pakeitimo datą.
Loginis paaiškinimas
Šiame straipsnyje mes sukūrėme dvi makrokomandas „ListFilesInFolder“ ir „TestListFilesInFolder“.
„ListFilesInFolder“ makrokomanda parodys išsamią informaciją, susijusią su visais aplanko failais.
Makrokomanda „TestListFilesInFolder“ naudojama antraštei nurodyti ir „ListFilesInFolder“ makrokomandai iškviesti.
Kodo paaiškinimas
Nustatykite FSO = CreateObject ("Scripting.FileSystemObject")
Aukščiau pateiktas kodas naudojamas kuriant naują failų sistemos objekto objektą.
Nustatykite SourceFolder = FSO.GetFolder (SourceFolderName)
Aukščiau pateiktas kodas naudojamas kuriant aplanko objektą, nurodytą keliu.
Ląstelės (r, 1). Formulė = FileItem.Name
Ląstelės (r, 2). Formulė = FileItem.Path
Ląstelės (r, 3). Formulė = FileItem.Size
Ląstelės (r, 4). Formulė = FileItem.DateCreated
Ląstelės (r, 5). Formulė = FileItem.DateLastModified
Aukščiau pateiktas kodas naudojamas norint išgauti išsamią failų informaciją.
Kiekvienam pakatalogiui „SourceFolder.SubFolders“
„Skambinimas ta pačia procedūra poaplankiams
ListFilesInFolder SubFolder.Path, True
Kitas poaplankas
Aukščiau pateiktas kodas naudojamas norint išgauti išsamią informaciją apie visus poaplankių failus.
Stulpeliai („A: E“). Pasirinkite
Pasirinkimas. Aiškus turinys
Aukščiau pateiktas kodas naudojamas ištrinti turinį iš A stulpelio į E.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub ListFilesInFolder“ („ByVal SourceFolderName As String“, „ByVal IncludeSubfolders as Boolean“) „Deklaruojantys kintamieji Dim FSO kaip objektas Dim SourceFolder kaip objektas Dim Subfolder kaip objektas Dim FileItem Kaip objektas Dim r kaip ilgas“ „FileSystemObject“ objekto kūrimas FSO = Create .FileSystemObject ") Nustatykite SourceFolder = FSO.GetFolder (SourceFolderName) r = Diapazonas (" A65536 "). Pabaiga (xlUp). Eilutė + 1 kiekvienai" SourceFolder.Files "failo ypatybei Langeliai (r, 1) .Formula = FileItem.Name Cells (r, 2) .Formula = FileItem.Path Cells (r, 3) .Formula = FileItem.Size Cells (r, 4) .Formula = FileItem.DateCreated Cells (r, 5) .Formula = FileItem. DateLastModified r = r + 1 Kitas FileItem 'Failų gavimas į poaplankius If IncludeSubfolders Tada kiekvienam poaplankiui SourceFolder.SubFolders' Skambinimas ta pačia tvarka poaplankiams ListFilesInFolder SubFolder.Path, True Next SubFolder End If Set FileItem = Nothing Set SourceFolder = Nothing Set FSO = Nieko ActiveWorkbook.Saved = Tiesa End Sub Sub Test TestListFilesInFolder () 'Declaring kintamasis Dim FolderPath as String' Ekrano atnaujinimų išjungimas Application.ScreenUpdating = False 'Aplanko kelio gavimas iš teksto laukelio FolderPath = Sheet1.TextBox1.Value ActiveSheet.Activate' Turinio išvalymas iš stulpelių A: E Stulpeliai ("A: E"). Pasirinkite Selection.ClearContents 'Adding headers Range ("A14"). Formula = "Failo pavadinimas:" Diapazonas ("B14"). Formula = "Kelias:" Diapazonas ("C14"). Formulė = "Failo dydis:" Diapazonas ("D14"). Formula = "Sukūrimo data:" Diapazonas ("E14"). Formulė = "Paskutinio modifikavimo data:" 'Antraščių diapazono formavimas ("A14: E14"). Šriftas . Bold = True "Skambinimas ListFilesInFolder makrokomandai ListFilesInFolder FolderPath, True" Automatinis stulpelių stulpelių dydžio koregavimas ("A: E"). Pasirinkite Selection.Columns.AutoFit Range ("A1"). Pasirinkite End Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el