„FileSystemObject“ (FSO) naudojimas „Excel VBA“
„FileSystemObject“ (FSO) suteikia prieigą prie daugybės funkcijų, leidžiančių pasiekti kompiuterio failų sistemą. Naudodami šį objektą galite lengvai pasiekti failus, aplankus ir diskus, taip pat skaityti ir rašyti failus.
Daugelį FSO funkcijų galite parašyti tradicinėje VBA programoje, tačiau jos reikalauja daugiau kodavimo, o atvykstančiam kūrėjui bus sunkiau išlaikyti ir suprasti. FSO yra išbandyta API (programų programavimo sąsaja) ir yra patikimesnė už jūsų kodą. Tai lengva naudoti, paruošta ir prieinama.
FSO veikia pagal tarptautinius standartus ir nustatymus, kuriuos turite savo kompiuteryje. Jei platinate „Excel“ programą visame pasaulyje, naudodamiesi FSO pasirūpinsite bet kokiais šalių nustatymų skirtumais, o tai padarytų jūsų kodas.
FSO leis jums padaryti beveik viską VBA kodu, kurį galite padaryti naudodami „Windows File Explorer“. Tai suteikia visišką prieigą prie „Windows“ failų sistemos.
„FileSystemObject“ kūrimas
„FileSytemObject“ nėra „Excel VBA“ dalis. Galite naudoti FSO sukurdami objektą (vėlyvą įrišimą) VBA:
123 | Sub CreateFSO ()Nustatykite MyFSO = CreateObject ("Scripting.FileSystemObject")Pabaiga Sub |
Arba galite pridėti FSO bibliotekos nuorodą į VBA. Tai vadinama ankstyvuoju įrišimu ir yra greitesnė už vėlyvą įrišimą, nes paleidžiant kodą nebūtina sukurti objekto.
Norėdami pridėti nuorodą, paspauskite „Alt-F11“, kad įeitumėte į „Visual Basic“ redaktorių (VBE), tada naudokite meniu „Įrankiai | Nuorodos“. Bus rodomas iššokantis langas, kuriame galėsite pasirinkti atitinkamą nuorodą (žr. Toliau).
Slinkite žemyn galimų nuorodų sąrašu, kol pamatysite „Microsoft Scripting Runtime“. Pažymėkite langelį ir spustelėkite Gerai, o biblioteka dabar yra jūsų programos dalis.
DLL bibliotekos failo vieta yra C: \ Windows \ SysWOW64 \ scrrun.dll
Jei platinate savo programą kitiems kolegoms ar vietoms, būtina, kad jie šį failą turėtų tinkamoje savo kompiuterio vietoje, kitaip jūsų kodas bus klaidingas.
Verta įdėti klaidų spąstus į „WorkbookOpen“ įvykį naudojant komandą „Dir“, kad patikrintumėte, ar failas egzistuoja. Jei jo nėra, duokite įspėjamąjį pranešimą ir uždarykite „Excel“ failą.
Pridėję nuorodą, galite naudoti šį kodą, kad sukurtumėte FSO:
123 | Papildomas testas FSO ()„Dim MyFSO“ kaip naujas „FileSystemObject“Pabaiga Sub |
Visi šio straipsnio pavyzdžiai naudos šią metodiką FSO kūrimui.
FSO turi daug metodų ir savybių. Čia jie suskirstyti į skyrius pagal tai, ką jie gali padaryti.
„Esamų“ metodų naudojimas
FSO metodu galite patikrinti, ar yra diskas, aplankas ar failas. Šiuos metodus lengva naudoti ir jiems reikia tik vieno parametro.
123456 | Sub CheckExistance ()„Dim MyFSO“ kaip naujas „FileSystemObject“„MsgBox MyFSO.DriveExists“ („C:“)„MsgBox MyFSO.FolderExists“ („C: \ temp“)„MsgBox MyFSO.FileExists“ („C: \ temp \ testfile.txt“)Pabaiga Sub |
Visi šie teiginiai grįš „tiesa“, jei jūsų kompiuteris turi C: diską, jame esantį aplanką „Temp“ ir failą, esantį „Temp“ aplanke „testfile.txt“
Teksto eilutės parametruose neskiriamos didžiosiomis ir mažosiomis raidėmis. Jokiais šiais būdais negalite naudoti pakaitos simbolių.
Taip pat negalite naudoti URL (vienodų išteklių ieškiklių), norėdami apibūdinti aplanką ar failo vietą. FSO veikia tik „Windows“ operacinėje sistemoje ir jos failų sistemoje. Jei norite naudoti išorinio serverio vietą, pirmiausia turite susieti diską su šiuo disku, o tada naudoti patį disko kelią.
„Gauti“ metodų naudojimas
FSO turi daugybę būdų, kaip gauti informaciją apie failą ir kelią, padalijant kelią ir failą, arba gaunant failo ar aplanko informaciją, pvz., Sukūrimo datą ar pakeitimo datą.
„GetAbsolutePathname“
Tai suteiks visą kelią iš nurodyto disko šaknies.
Sintaksė yra:
GetAbsolutePathName (kelias)
12345 | Sub AbsolutePath ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "c: …"„MsgBox MyFSO.GetAbsolutePathName“ (Pth)Pabaiga Sub |
Tai grąžins eilutę „C: \ Users \ Richard \ Documents“. Taip yra todėl, kad kelias buvo nurodytas kaip C: po to eina trys taškai. Kiekvienas taškas reiškia kitą aplankų struktūros lygį.
„GetBaseName“
Tai grąžina nurodyto failo ar aplanko pavadinimą.
Sintaksė yra:
„GetBaseName“(kelias)
12345 | Sub BaseName ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "C: \ temp \ testfile.txt"„MsgBox MyFSO.GetBaseName“ (Pth)Pabaiga Sub |
Šis kodas grąžins „testfile“. Metodas grąžina paskutinį kelio pavadinimo skyrių. Jei tai failas, jis negrąžina failo priesagos.
Jei kelio nerandama, grąžinama tuščia eilutė.
„GetDrive“
Tai leidžia naudoti kodą, norint pasiekti disko informaciją, remiantis nurodyta disko raide.
Sintaksė yra:
„GetDrive“ (drivepec)
123456 | Papildoma „DriveInfo“ ()„Dim MyFSO“ kaip naujas „FileSystemObject“, „Pth“ kaip eilutė, „Dr As Drive“Pth = "C:"Nustatykite Dr = MyFSO.GetDrive (Pth)„MsgBox Dr.FreeSpace“Pabaiga Sub |
Šis metodas grąžina disko objektą pagal nurodytą diską. Šį objektą galite naudoti norėdami gauti informacijos apie diską, pvz., Laisvos vietos.
Pavargote ieškoti VBA kodo pavyzdžių? Išbandykite „AutoMacro“!
„GetDriveName“
Šis metodas atskiria disko pavadinimą nuo kelio / failo pavadinimo eilutės.
Sintaksė yra:
„GetDriveName“ (kelias)
12345 | Sub DriveName ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "C: \ temp \ testfile.txt"„MsgBox MyFSO.GetDriveName“ (Pth)Pabaiga Sub |
Tai grąžins „C:“
„GetExtensionName“
Tai grąžins failo priesagą nurodytu keliu.
Sintaksė yra:
„GetExtensionName“ (kelias)
12345 | Antrasis plėtinio pavadinimas ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "C: \ temp \ testfile.txt"„MsgBox MyFSO.GetExtensionName“ (Pth)Pabaiga Sub |
Tai grąžins „txt“.
Jei failas nenurodytas, grąžinama tuščia eilutė.
GetFile
Šis metodas grąžina failo objektą, kuriame yra įvairios informacijos apie patį failą.
Sintaksė yra:
GetFile (failų specifikacija)
123456 | Papildoma failo informacija ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutė, Fn kaip failasPth = "C: \ temp \ testfile.txt"Nustatykite Fn = MyFSO.GetFile (Pth)„MsgBox Fn.DateCreated“Pabaiga Sub |
Tai grąžins nurodyto failo sukūrimo datą ir laiką. Jei failas nenurodytas arba jo nėra, gausite klaidos pranešimą „failas nerastas“.
12345 | Antrasis failo pavadinimas ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "C: \ temp \ testfile.txt"„MsgBox MyFSO.GetFileName“ (Pth)Pabaiga Sub |
Tai grąžins „testfile.txt“.
„GetFolder“
Tai sukuria aplanko objektą pagrindiniam aplankui nurodytu keliu. Kelyje turi būti tik aplankų pavadinimai. Failų pavadinimai neturi būti įtraukti, kitaip įvyks klaida.
Sintaksė yra:
„GetFolder“ (aplankų specifikacija)
123456 | Papildomas aplanko informacija ()„Dim MyFSO“ kaip naujas „FileSystemObject“, „Pth“ kaip eilutė, „Fo“ kaip aplankasPth = "C: \ temp"Nustatykite Fo = MyFSO.GetFolder (Pth)„MsgBox Fo.DateCreated“Pabaiga Sub |
Aplanko objekte yra įvairios informacijos, kurią galima pasiekti. Tokiu atveju grąžinama aplanko sukūrimo data.
Taip pat galite naudoti šį metodą, kad gautumėte visus failų pavadinimus tam tikrame aplanke:
12345678 | Antriniai failų pavadinimai ()Dim MyFSO kaip naujas failų sistemos objektas, Pth kaip eilutė, Fo kaip aplankas, Fn kaip failasPth = "C: \ temp"Nustatykite Fo = MyFSO.GetFolder (Pth)Kiekvienam Fn failui„MsgBox“ Fn. PavadinimasKitas FnPabaiga Sub |
Šis kodas kartosis aplanke „Temp“ ir parodys kiekvieną rastą failo pavadinimą.
„GetParentFolderName“
Šis metodas grąžins aplanko pavadinimą kitame aplanko hierarchijos lygyje.
Sintaksė yra:
„GetParentFolderName“ (kelias)
12345 | Antrinis aplanko pavadinimas ()„Dim MyFSO“ kaip naujas „FileSystemObject“, „Pth“ kaip eilutė, „Fo“ kaip aplankasPth = "C: \ richard"„MsgBox MyFSO.GetParentFolderName“ (Pth)Pabaiga Sub |
Tai grąžins „Vartotojai“, nes tai yra aplanko „Richard“ „tėvas“.
VBA programavimas | Kodo generatorius jums tinka!
„Sukūrimo“ metodų naudojimas
Naudodami FSO galite sukurti naują aplanką ir kelią bei sukurti teksto failą.
Sukurti aplanką
Galite nurodyti naują aplanko kelio pavadinimą, kurį norite sukurti. Pavojus yra tas, kad jei aplankas jau egzistuoja, įvyks klaida. Norėdami tai padaryti, galite naudoti metodą „FolderExists“.
Sintaksė yra:
Sukurti aplanką(aplanką)
1234567 | Sub CreateNewFolder ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "C: \ temp \ MyFolder"Jei MyFSO.FolderExists (Pth) = False TadaMyFSO.CreateFolder (Pth)Pabaiga JeiPabaiga Sub |
Šis kodas sukurs naują aplanką pavadinimu „MyFolder“ po esamu keliu „C: \ temp“.
CreateTextFile
Šis metodas leidžia jums sukurti paprastą tekstinį failą ir tiesiogiai į jį įrašyti.
Sintaksė yra:
CreateTextFile (failo pavadinimas, [ perrašyti, [ unikodas ]])
1234567 | Sub CreateTextFile ()Dim MyFSO kaip naujas FileSystemObject, Pth kaip eilutėPth = "C: \ temp \ Myfile.txt"Nustatykite Fn = MyFSO.CreateTextFile (Pth, True)Fn.Parašykite „Pridėti savo tekstą čia“ & vbLf & „Tai antroji eilutė“Fn. UždarytiPabaiga Sub |
Šis kodas sukuria teksto failą, pavadintą „Myfile.txt“, disko „C:“ aplanke „Temp“ ir tada į jį įrašo dvi teksto eilutes.
Atminkite, kad eilutės tiekimo simbolis yra sujungtas į rašomą eilutę.
Jei kelio, į kurį rašote, nėra, įvyks klaida. Prieš kurdami failą galite tai patikrinti naudodami „FolderExists“ metodą.
Yra pasirenkamas parametras, jei reikia, perrašyti esamą failą - tai gali būti tiesa arba klaidinga. Numatytasis yra „True“.
„Kopijavimo“ metodų naudojimas
Šiais būdais galite nukopijuoti failą ar aplanką į kitą vietą.
VBA programavimas | Kodo generatorius jums tinka!
CopyFile
Šis metodas nukopijuos failą iš vienos aplanko vietos į kitą. Atminkite, kad kopijavimas nepavyks, jei paskirties vietoje yra nustatytas tik skaitomas atributas.
Sintaksė yra:
CopyFile šaltinis, Kelionės tikslas, [ perrašyti ]
1234 | Sub CopyFile ()„Dim MyFSO“ kaip naujas „FileSystemObject“MyFSO.CopyFile "C: \ temp \*. Txt", "C: \ temp \ myfolder \", tiesaPabaiga Sub |
Šis kodas nukopijuos visus teksto (txt) failus, esančius „C: \ temp“, į „C: \ temp \ myfolder \“, prireikus perrašydamas failą. Numatytasis perrašymo parametras yra „True“.
Failų pavadinimams galite naudoti žvaigždutę (*), o ne naudoti klaustuko (?) Pakaitos simbolį atskiriems simboliams atvaizduoti.
CopyFolder
Šį metodą galite naudoti norėdami nukopijuoti visą aplanką iš vienos vietos į kitą.
Sintaksė yra:
CopyFolder šaltinis, Kelionės tikslas, [ perrašyti ]
1234 | Sub CopyFolder ()„Dim MyFSO“ kaip naujas „FileSystemObject“MyFSO.CopyFolder "C: \ temp \*", "C: \ users \ richard \"Pabaiga Sub |
Šis kodas nukopijuoja visus aplankus ir failus žemiau „C: \ temp“ į „C: \ users Richard“. Naujas sukurtas aplankas bus „C: \ users \ richard \ myfolder“, nes „C: \ temp“ jame buvo aplankas „myfolder“.
Naudojant šį metodą yra keturi galimi rezultatai:
- Jei paskirties vietos nėra, tada nukopijuojamas šaltinio aplankas ir turinys.
- Jei paskirties vieta jau yra, įvyksta klaida.
- Jei paskirties vieta yra aplankas, šaltinio aplankas ir jo turinys bus nukopijuoti. Klaida įvyks, jei perrašymas nustatytas kaip False ir paskirties vietoje jau yra failo kopija.
- Jei paskirties vieta nustatyta tik skaityti, perrašymas bus nustatytas klaidingai.
Šis metodas sustoja, kai susiduria su pirmąja klaida. Nėra jokių veiksmų, kurie buvo sėkmingi prieš atsirandant klaidai, atšaukimo.
„Judėjimo“ metodų naudojimas
Šiais metodais galima perkelti failus ar aplankus į kitas vietas. Tai tas pats, kas pjaustyti iš vienos vietos ir įklijuoti į kitą vietą. Atminkite, kad jei perkeliamas failas yra atidarytas, perkėlimo metodas nepavyks su klaida.
MoveFile
Šis metodas naudojamas tam tikram failui perkelti į kitą vietą. Pakaitos simboliai leidžiami paskutiniame šaltinio kelio komponente.
Sintaksė yra:
MoveFile šaltinis, Kelionės tikslas
1234 | Sub MoveAFile ()„Dim MyFSO“ kaip naujas „FileSystemObject“MyFSO.MoveFile "C: \ temp \*", "C: \ temp \ myfolder"Pabaiga Sub |
Šis kodas perkelia visus „C: \ temp“ failus į „C: \ temp \ myfolder“.
Šaltinio ir paskirties aplankai turi būti, nes paskirties aplankas automatiškai nesukuriamas.
Šis metodas sustoja, kai susiduria su pirmąja klaida. Nėra jokių veiksmų, kurie buvo sėkmingi prieš atsirandant klaidai, atšaukimo.
VBA programavimas | Kodo generatorius jums tinka!
„MoveFolder“
Šis metodas perkelia konkretų aplanką iš vienos vietos į kitą.
Sintaksė yra:
„MoveFolder“ (šaltinis, Kelionės tikslas)
1234 | Sub MoveAFolder ()„Dim MyFSO“ kaip naujas „FileSystemObject“MyFSO.MoveFolder "C: \ temp \ myfolder", "C: \ temp \ mydestination"Pabaiga Sub |
Šis kodas perkelia aplanką „myfolder“ ir turinį į aplanką „mydestination“. „Myfolder“ veiksmingai ištrinamas ir sukuriamas „mydestination“ kartu su „myfolder“ turiniu.
Jei paskirties aplankas jau yra, įvyksta klaida.
„Ištrinti“ metodų naudojimas
Šie metodai naudojami ištrinti failus ar aplankus. Jie turi būti naudojami atsargiai, nes nėra jokių atšaukimo ar anuliavimo metodų, jei kas nors negerai.
Ištrinti failą
Taip ištrinami atskiri failai arba failų grupė naudojant pakaitos simbolius.
Sintaksė yra:
Ištrinti failą failų specifikacija, [ jėga ]
1234 | Sub DeleteFiles ()„Dim MyFSO“ kaip naujas „FileSystemObject“MyFSO.DeleteFile "C: \ temp \*"Pabaiga Sub |
Šis kodas ištrins visus failus aplanke „C: \ temp“
„Force“ parametras yra neprivalomas ir nustatytas į „True“ arba „False“. Jei nustatyta „True“, tik skaitomi failai bus ištrinti. Numatytoji reikšmė yra False.
DeleteFolder
Šis metodas ištrina nurodytą aplanką ir jo turinį.
Sintaksė yra:
DeleteFolder aplankų specifikacija, [ jėga ]
1234 | Sub DeleteFolders ()„Dim MyFSO“ kaip naujas „FileSystemObject“MyFSO.DeleteFolder "C: \ temp \ MyDestination"Pabaiga Sub |
Šis kodas ištrins aplanką „MyDestination“ ir visus to aplanko failus. Aplankas „temp“ išliks.
„Force“ parametras yra neprivalomas ir nustatytas į „True“ arba „False“. Jei nustatyta „True“, tik skaitymo aplankai bus ištrinti. Numatytoji reikšmė yra False.
Pakaitos simboliai gali būti naudojami paskutiniame kelio komponente. Jei aplankas nerastas, įvyks klaida.
Šis metodas sustoja, kai susiduria su pirmąja klaida. Nebus atšaukiami jokie veiksmai, kurie buvo sėkmingi prieš įvykstant klaidai.
VBA programavimas | Kodo generatorius jums tinka!
Kiti FSO metodai
„OpenAsTextStream“.
Šis metodas atidaro nurodytą failą kaip „Text Stream“ objektą ir leidžia jį skaityti arba rašyti. Šio metodo pranašumas yra tas, kad jis gali atidaryti bet kokio tipo failus ir išgauti turimą tekstą.
Sintaksė yra:
„OpenAsTextStream“ ([ iomode, [ formatu ]])
Parametras „iomode“ leidžia tik skaityti (1), skaityti/rašyti (2) ir pridėti (8). Skaitymo/rašymo parametras perrašo failą.
Parametras „formatas“ yra nustatytas į –2 sistemos numatytuoju atveju, –1, norint atidaryti failą kaip „Unicode“, ir 0, norint atidaryti failą kaip ASCII (Amerikos standartinis informacijos mainų kodas).
1234567891011 | Papildomas teksto srautas ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFile ("C: \ temp \ myfile.txt")Nustatykite ts = f. OpenAsTextStream (2)ts. Parašykite „Mano naujas tekstas“ts. UždarytiNustatykite ts = f. OpenAsTextStream (1)s = ts.ReadLine„MsgBox“ts. UždarytiPabaiga Sub |
Šis kodas gauna esamą teksto failą ir sukuria jį kaip objektą, naudojant „GetFile“ metodą. Tada atidaromas teksto srautas kaip skaitymas / rašymas (2) ir parašoma teksto eilutė. Tada failas uždaromas ir vėl atidaromas kaip perskaitytas (1), o iš jo nuskaitoma eilutė, kuri tada rodoma kaip pranešimų laukelis.
Atminkite, kad skaitymo eilutė turi būti įdėta į kintamąjį, kad ji būtų rodoma pranešimų laukelyje.
„BuildPath“
Šis metodas pridės aplanko ar failo pavadinimą prie esamo aplanko kelio pabaigos. Tai sukuria tik teksto eilutę ir iš tikrųjų nesukuria naujo aplanko.
Sintaksė yra:
„BuildPath“ (kelias, vardas)
12345 | „Sub BuildPth“ ()„Dim MyFSO“ kaip naujas „FileSystemObject“np = MyFSO.BuildPath ("C: \ temp", "ANewFolder")„MsgBox“ npPabaiga Sub |
Bus rodomas „C: \ temp \ ANewFolder“. Tačiau, jei norite iš tikrųjų naudoti šį aplanką, turite naudoti „CreateFolder“ metodą.
„OpenTextFile“
Šis metodas leidžia atidaryti ir nuskaityti failus arba rašyti pagal nustatytus parametrus. Jis veikia panašiai kaip „OpenAsTextStream“ metodas.
Sintaksė yra:
„OpenTextFile“ (failo pavadinimas, [ iomode, [ sukurti, [ formatu ]]])
Parametras „iomode“ leidžia „ForReading“, „ForWriting“ ir „ForAppending“. „ForWriting“ parametras perrašo failą.
Parametras „sukurti“ yra loginė vertė. Tiesa reiškia, kad naujas failas bus sukurtas, jei nurodyto failo pavadinimo nėra. Klaidinga reiškia, kad failas nebus sukurtas, jei failo pavadinimas nerastas. Numatytoji reikšmė yra False.
Parametrą „formatas“ galima nustatyti į „TristateFalse“, „TristateMixed“, „TristateTrue“ ir „TristateUseDefault“, atsižvelgiant į tai, ar failas yra ASCII, ar „Unicode“.
1234567 | Antrasis OpenTxtFile ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite ts = MyFSO.OpenTextFile ("C: \ temp \ myfile.txt", ForReading, False, TristateUseDefault)s = ts.ReadLine„MsgBox“ts. UždarytiPabaiga Sub |
Šis kodas perskaitys eilutę iš teksto failo „myfile.txt“.
„OpenTextFile“ metodo pranašumas prieš „OpenAsTextStreamMethod“ yra tas, kad jame yra parametrų išskleidžiamieji meniu, kurie yra prasmingesni nei bandymas prisiminti atitinkamas įvairių parametrų parinkčių skaitines vertes.
VBA programavimas | Kodo generatorius jums tinka!
FSO savybės
Važiuoja
Šioje nuosavybėje yra jūsų kompiuteryje esančių diskų rinkinys.
1234567 | Sub Drv ()„Dim MyFSO“ kaip naujas „FileSystemObject“, d kaip diskasNustatykite Dr = MyFSO.DrivesUž kiekvieną d. Dr.„MsgBox d.DriveLetter“Kitas dPabaiga Sub |
Šis kodas grąžins kiekvieną jūsų kompiuteryje pasiekiamą disko raidę.
vardas
Tai grąžina nurodyto failo ar aplanko pavadinimą.
123456789 | PavadinimasPavyzdys ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Vardas & "diske" & UCase (f.Drive) & vbCrLfi = i & "Sukurta:" & f.DateCreated & vbCrLfi = i & "Paskutinį kartą pasiekta:" & f.DateLastAccessed & vbCrLfi = i & "Paskutinis pakeitimas:" & f.DateLastModified„MsgBox“ iPabaiga Sub |
Šis kodas suteiks failo pavadinimą ir informaciją apie jį naudojant Disko nuosavybę.
Kelias
Ypatybė „Kelias“ atskiria kelią nuo failo specifikacijos.
123456789 | Antras keliasPavyzdys ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Path & f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Sukurta:" & f.DateCreated & vbCrLfi = i & "Paskutinį kartą pasiekta:" & f.DateLastAccessed & vbCrLfi = i & "Paskutinis pakeitimas:" & f.DateLastModified„MsgBox“ iPabaiga Sub |
Šis pavyzdys veikia taip pat, kaip ir pavadinimas, išskyrus tai, kad dabar pateikiamas failo kelias.
VBA programavimas | Kodo generatorius jums tinka!
Dydis
Ypatybė Dydis nurodys aplanko ar failo dydį.
12345 | SubfSize ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFolder ("C: \ temp")„MsgBox“ f. DydisPabaiga Sub |
Šis kodas pateiks aplanko „C: \ temp“ dydį.
12345 | SubfSize ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFile ("C: \ temp \ myfile.txt")„MsgBox“ f. DydisPabaiga Sub |
Šis aukščiau pateiktas kodas grąžins failo „myfile.txt“ dydį.
Tipas
Tipo ypatybė grąžins failo ar aplanko tipo tekstą.
12345 | FType ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFolder ("C: \ temp")„MsgBox“ f. TipasPabaiga Sub |
Šis aukščiau pateiktas kodas grąžins tekstą „Failų aplankas“.
12345 | Pogrupis FType ()„Dim MyFSO“ kaip naujas „FileSystemObject“Nustatykite f = MyFSO.GetFile ("C: \ temp \ myfile.txt")„MsgBox“ f. TipasPabaiga Sub |
Šis aukščiau pateiktas kodas grąžins tekstą „Tekstinis dokumentas“.
Atkreipkite dėmesį į „GetFolder“ ir „GetFile“ naudojimą kiekviename pavyzdyje.