FileSystemObjectin (FSO) käyttäminen Excel VBA: ssa
FileSystemObject (FSO) antaa sinulle pääsyn moniin toimintoihin tietokoneen tiedostojärjestelmän käyttämiseksi. Tämän objektin avulla voit helposti käyttää tiedostoja, kansioita ja asemia sekä lukea ja kirjoittaa tiedostoihin.
Voit kirjoittaa monia FSO -toimintoja perinteisessä VBA: ssa, mutta ne vaatisivat enemmän koodausta, ja tulevan kehittäjän olisi vaikeampi ylläpitää ja ymmärtää. FSO on testattu sovellusliittymä (Application Programming Interface) ja se on luotettavampi kuin oma koodisi. Se on helppokäyttöinen ja valmis ja saatavilla.
FSO toimii tietokoneessasi olevien kansainvälisten standardien ja asetusten mukaisesti. Jos jaat Excel -sovellustasi maailmanlaajuisesti, FSO: n käyttäminen huolehtii eri asetusten eroista maiden välillä, mikä oman koodisi kanssa olisi vaikeaa.
FSO: n avulla voit tehdä melkein kaiken VBA -koodissa, mitä voit tehdä Windows File Explorerissa. Se antaa sinulle täydellisen pääsyn Windowsin tiedostojärjestelmään.
FileSystemObjectin luominen
FileSytemObject ei ole osa Excel VBA: ta. Voit käyttää FSO: ta luomalla objektin (myöhäinen sidonta) VBA: ssa:
| 123 | Sub CreateFSO ()Aseta MyFSO = CreateObject ("Scripting.FileSystemObject")End Sub |
Vaihtoehtoisesti voit lisätä FSO -kirjaston viitteen VBA: han. Tätä kutsutaan varhaiseksi sitomiseksi ja se on nopeampaa kuin myöhäinen sitominen, koska objektia ei tarvitse luoda koodia suoritettaessa.
Jos haluat lisätä viitteen, sinun täytyy painaa Alt-F11 päästäksesi Visual Basic Editoriin (VBE) ja käytä sitten VBE-valikon Työkalut | Viitteet -painiketta. Tämä näyttää ponnahdusikkunan, josta voit valita sopivan viitteen (katso alla).
Vieritä alas käytettävissä olevien viitteiden luetteloa, kunnes näet "Microsoft Scripting Runtime". Valitse ruutu ja napsauta OK, ja kirjasto on nyt osa sovellustasi.
DLL -kirjastotiedoston sijainti on C: \ Windows \ SysWOW64 \ scrrun.dll
Jos jaat sovellustasi muille kollegoille tai muille sijainneille, on tärkeää, että heillä on tämä tiedosto oikeassa paikassa tietokoneessaan, muuten koodisi aiheuttaa virheen.
On syytä laittaa virheloukku "WorkbookOpen" -tapahtumaan käyttämällä Dir -komentoa tarkistaaksesi tiedoston olemassaolon. Jos se puuttuu, anna varoitusviesti ja sulje Excel -tiedosto.
Kun viite on lisätty, voit luoda FSO: n seuraavan koodin avulla:
| 123 | Alatesti FSO ()Himmennä MyFSO uutena FileSystemObjectinaEnd Sub |
Kaikki tämän artikkelin esimerkit käyttävät tätä menetelmää FSO: n luomiseen.
FSO tarjoaa monia menetelmiä ja ominaisuuksia. Nämä on jaettu tänne osiin sen mukaan, mitä he voivat tehdä.
Olemassa olevien menetelmien käyttäminen
Voit tarkistaa FSO -menetelmän avulla, onko asema, kansio tai tiedosto olemassa. Nämä menetelmät ovat helppokäyttöisiä ja vaativat vain yhden parametrin.
| 123456 | Alitarkistus Etäisyys ()Himmennä MyFSO uutena FileSystemObjectinaMsgBox MyFSO.DriveExists ("C:")MsgBox MyFSO.FolderExists ("C: \ temp \")MsgBox MyFSO.FileExists ("C: \ temp \ testfile.txt")End Sub |
Kaikki nämä lausunnot palauttavat "True" olettaen, että tietokoneessasi on C: asema, siinä kansio nimeltä "Temp" ja Temp -kansiossa oleva tiedosto "testfile.txt"
Parametrien tekstijonot eivät erota kirjainkokoa. Et voi käyttää jokerimerkkejä missään näistä tavoista.
Et voi myöskään käyttää URL -osoitteita (Uniform Resource Locators) kuvaamaan kansion tai tiedoston sijaintia. FSO toimii puhtaasti Windows -käyttöjärjestelmässä ja sen tiedostojärjestelmässä. Jos haluat käyttää ulkoista palvelinsijaintia, sinun on ensin yhdistettävä asema tähän ja käytettävä sitten itse asemapolkua.
"Hae" -menetelmien käyttäminen
FSO: lla on lukuisia tapoja saada tietoja tiedostosta ja polusta joko jakamalla polku ja tiedosto tai hankkimalla tiedoston tai kansion tiedot, kuten luontipäivä tai muokkauspäivä.
GetAbsolutePathname
Tämä tarjoaa täydellisen polun määritetyn aseman juuresta.
Syntaksi on:
GetAbsolutePathName (polku)
| 12345 | Osa AbsolutePath ()Dim MyFSO uutena FileSystemObject, Pth merkkijonoPth = "c:…"MsgBox MyFSO.GetAbsolutePathName (Pth)End Sub |
Tämä palauttaa merkkijonon C: \ Users \ Richard \ Documents. Tämä johtuu siitä, että polku on määritetty muotoon C: ja sen jälkeen kolme pistettä. Jokainen piste merkitsee seuraavaa tasoa kansiorakenteessa.
GetBaseName
Tämä palauttaa määritetyn tiedoston tai kansion nimen.
Syntaksi on:
GetBaseName(polku)
| 12345 | Sub BaseName ()Himmennä MyFSO uutena FileSystemObjectina, Pth merkkijononaPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetBaseName (Pth)End Sub |
Tämä koodi palauttaa testitiedoston. Menetelmä palauttaa polun nimen viimeisen osan. Jos se on tiedosto, se ei palauta tiedoston jälkiliitettä.
Jos polkua ei löydy, tyhjä merkkijono palautetaan.
GetDrive
Tämän avulla voit käyttää koodia aseman tietojen käyttämiseen määritetyn aseman kirjaimen perusteella.
Syntaksi on:
GetDrive (drivepec)
| 123456 | Sub DriveInfo ()Dim MyFSO uutena FileSystemObjectina, Pth merkkijonona, Dr As DrivePth = "C:"Aseta Dr = MyFSO.GetDrive (Pth)MsgBox Dr.FreeSpaceEnd Sub |
Tämä menetelmä palauttaa asemaobjektin määritetyn aseman perusteella. Tämän objektin avulla voit käyttää aseman tietoja, kuten vapaata tilaa.
Oletko kyllästynyt etsimään esimerkkejä VBA -koodista? Kokeile AutoMacroa!
GetDriveName
Tämä menetelmä erottaa aseman nimen polusta / tiedostonimen merkkijonosta.
Syntaksi on:
GetDriveName (polku)
| 12345 | Sub DriveName ()Dim MyFSO uutena FileSystemObject, Pth merkkijonoPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetDriveName (Pth)End Sub |
Tämä palauttaa "C:"
GetExtensionName
Tämä palauttaa tiedoston jälkiliitteen määritetyllä polulla.
Syntaksi on:
GetExtensionName (polku)
| 12345 | AlalaajennuksenNimi ()Himmennä MyFSO uutena FileSystemObjectina, Pth merkkijononaPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetExtensionName (Pth)End Sub |
Tämä palauttaa "txt".
Jos tiedostoa ei ole määritetty, tyhjä merkkijono palautetaan.
GetFile
Tämä menetelmä palauttaa tiedosto -objektin, joka sisältää erilaisia tietoja itse tiedostosta.
Syntaksi on:
GetFile (tiedostotiedot)
| 123456 | Tiedoston alitiedosto ()Dim MyFSO uutena FileSystemObject, Pth merkkijono, Fn tiedostonaPth = "C: \ temp \ testfile.txt"Aseta Fn = MyFSO.GetFile (Pth)MsgBox Fn.DateCreatedEnd Sub |
Tämä palauttaa määritetyn tiedoston luomisen päivämäärän ja kellonajan. Jos tiedostoa ei ole määritetty tai tiedostoa ei ole olemassa, saat virheilmoituksen "tiedostoa ei löydy".
| 12345 | Alatiedoston nimi ()Dim MyFSO uutena FileSystemObject, Pth merkkijonoPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetFileName (Pth)End Sub |
Tämä palauttaa tiedoston "testfile.txt".
GetFolder
Tämä luo kansio -objektin peruskansioon määritetyssä polussa. Polku saa sisältää vain kansioiden nimet. Tiedostonimiä ei saa sisällyttää, muuten tapahtuu virhe.
Syntaksi on:
GetFolder (kansiot)
| 123456 | Alikansiotiedot ()Dim MyFSO uutena FileSystemObject, Pth merkkijono, Fo kansionaPth = "C: \ temp"Aseta Fo = MyFSO.GetFolder (Pth)MsgBox Fo.DateCreatedEnd Sub |
Kansion objektissa on erilaisia tietoja, joihin pääsee käsiksi. Tässä tapauksessa se palauttaa kansion luomisen päivämäärän.
Voit myös käyttää tätä tapaa hakea kaikki tiedostonimet tietystä kansiosta:
| 12345678 | Alatiedostonimet ()Dim MyFSO uutena FileSystemObject, Pth As String, Fo As Folder, Fn As FilePth = "C: \ temp"Aseta Fo = MyFSO.GetFolder (Pth)Jokaiselle Fn In Fo.Files -tiedostolleMsgBox Fn.NameSeuraava FnEnd Sub |
Tämä koodi toistuu Temp -kansion läpi ja näyttää kaikki löydetyt tiedostonimet.
GetParentFolderName
Tämä menetelmä palauttaa kansion nimen kansiohierarkian seuraavalle tasolle.
Syntaksi on:
GetParentFolderName (polku)
| 12345 | Alikansion nimi ()Dim MyFSO uutena FileSystemObjectina, Pth merkkijonona, Fo kansionaPth = "C: \ richard"MsgBox MyFSO.GetParentFolderName (Pth)End Sub |
Tämä palauttaa käyttäjät, koska tämä on kansion "richard" "vanhempi".
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Luo -menetelmien käyttäminen
FSO: n avulla voit luoda uuden kansion ja polun sekä luoda tekstitiedoston.
Luo kansio
Voit määrittää uuden kansion polun nimen, joka luodaan. Tämän vaarana on, että jos kansio on jo olemassa, tapahtuu virhe. Voit käyttää FolderExists -menetelmää varmistaaksesi, että näin ei tapahdu.
Syntaksi on:
Luo kansio(kansion nimi)
| 1234567 | Sub CreateNewFolder ()Dim MyFSO uutena FileSystemObject, Pth merkkijonoPth = "C: \ temp \ MyFolder"Jos MyFSO.FolderExists (Pth) = False thenMyFSO.CreateFolder (Pth)Loppu JosEnd Sub |
Tämä koodi luo uuden kansion nimeltä "MyFolder" olemassa olevan polun "C: \ temp" alle.
CreateTextFile
Tämän menetelmän avulla voit luoda yksinkertaisen tekstitiedoston ja kirjoittaa suoraan siihen.
Syntaksi on:
CreateTextFile (Tiedoston nimi, [ korvata, [ Unicode ]])
| 1234567 | Sub CreateTextFile ()Himmennä MyFSO uutena FileSystemObjectina, Pth merkkijononaPth = "C: \ temp \ Myfile.txt"Aseta Fn = MyFSO.CreateTextFile (Pth, True)Fn.Kirjoita "Lisää oma tekstini tähän" & vbLf & "Tämä on toinen rivi"Fn. SuljeEnd Sub |
Tämä koodi luo tekstitiedoston nimeltä Myfile.txt C: -aseman Temp -kansioon ja kirjoittaa sitten siihen kaksi riviä tekstiä.
Huomaa, että rivinsiirtomerkki on ketjutettu kirjoitettavaan merkkijonoon.
Jos polkua, johon kirjoitat, ei ole olemassa, tapahtuu virhe. Voit tarkistaa tämän ennen tiedoston luomista FolderExists -menetelmällä.
Valinnainen parametri voi korvata olemassa olevan tiedoston tarvittaessa - tämä voi olla tosi tai epätosi. Oletusarvo on True.
Kopiointimenetelmien käyttäminen
Voit kopioida tiedoston tai kansion toiseen paikkaan näiden menetelmien avulla.
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Kopioi tiedosto
Tämä menetelmä kopioi tiedoston kansiosta toiseen. Huomaa, että kopiointi epäonnistuu, jos kohdepaikassa on vain luku -määrite.
Syntaksi on:
Kopioi tiedosto lähde, määränpää, [ korvata ]
| 1234 | Sub CopyFile ()Himmennä MyFSO uutena FileSystemObjectinaMyFSO.CopyFile "C: \ temp \*. Txt", "C: \ temp \ myfolder \", TrueEnd Sub |
Tämä koodi kopioi kaikki tekstitiedostot (txt) kohdassa "C: \ temp" muotoon "C: \ temp \ myfolder \" ja korvaa tiedoston tarvittaessa. Korvauksen oletusasetus on True.
Voit käyttää tiedostonimissä tähtimerkkiä (*), mutta et voi käyttää kysymysmerkkiä (?).
CopyFolder
Tällä menetelmällä voit kopioida koko kansion paikasta toiseen.
Syntaksi on:
CopyFolder lähde, määränpää, [ korvata ]
| 1234 | Sub CopyFolder ()Himmennä MyFSO uutena FileSystemObjectinaMyFSO.CopyFolder "C: \ temp \*", "C: \ users \ richard \"End Sub |
Tämä koodi kopioi kaikki C: \ temp -alla olevat kansiot ja tiedostot kohtaan C: \ users Richard. Uusi kansio on "C: \ users \ richard \ myfolder", koska "C: \ temp" -kansio sisälsi kansion nimeltä "myfolder".
Tätä menetelmää käytettäessä on neljä mahdollista tulosta:
- Jos kohdetta ei ole, lähdekansio ja sisältö kopioidaan.
- Jos kohde on jo olemassa, tapahtuu virhe.
- Jos kohde on kansio, lähdekansio ja sen sisältö kopioidaan. Virhe ilmenee, jos Korvaus -asetukseksi on määritetty False ja kohde on jo kopio tiedostosta.
- Jos kohde on asetettu vain luku -tilaan, tapahtuu virhe, jos korvaus on asetettu arvoon false.
Tämä menetelmä pysähtyy ensimmäisen virheen kohdalla. Ennen virheen ilmenemistä onnistuneita toimintoja ei palauteta.
"Siirrä" -menetelmien käyttäminen
Näitä menetelmiä voidaan käyttää tiedostojen tai kansioiden siirtämiseen muihin paikkoihin. Tämä on sama kuin leikkaaminen yhdestä paikasta ja liittäminen toiseen paikkaan. Huomaa, että jos siirrettävä tiedosto on auki, siirtomenetelmä epäonnistuu virheellä.
MoveFile
Tätä menetelmää käytetään tietyn tiedoston siirtämiseen toiseen paikkaan. Jokerimerkit ovat sallittuja lähteen viimeisessä polkuosassa.
Syntaksi on:
MoveFile lähde, määränpää
| 1234 | Sub MoveAFile ()Himmennä MyFSO uutena FileSystemObjectinaMyFSO.MoveFile "C: \ temp \*", "C: \ temp \ myfolder"End Sub |
Tämä koodi siirtää kaikki tiedostot, jotka on löydetty osoitteesta C: \ temp kansioon C: \ temp \ myfolder.
Lähde- ja kohdekansioiden on oltava olemassa, koska kohdekansiota ei luoda automaattisesti.
Tämä menetelmä pysähtyy ensimmäisen virheen kohdalla. Ennen virheen ilmenemistä onnistuneita toimintoja ei palauteta.
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
MoveFolder
Tämä menetelmä siirtää tietyn kansion paikasta toiseen.
Syntaksi on:
MoveFolder (lähde, määränpää)
| 1234 | Sub MoveAFolder ()Himmennä MyFSO uutena FileSystemObjectinaMyFSO.MoveFolder "C: \ temp \ myfolder", "C: \ temp \ mydestination"End Sub |
Tämä koodi siirtää kansion "myfolder" ja sen sisällön kansioon "mydestination". "Myfolder" poistetaan tehokkaasti ja "mydestination" luodaan yhdessä "myfolder" -sisällön kanssa.
Jos kohdekansio on jo olemassa, tapahtuu virhe.
Poista -menetelmien käyttäminen
Näitä menetelmiä käytetään tiedostojen tai kansioiden poistamiseen. Niitä on käytettävä varoen, koska mitään peruutus- tai kumoamismenetelmiä ei ole, jos jokin menee pieleen.
Poista tiedosto
Tämä poistaa yksittäiset tiedostot tai tiedostoryhmän jokerimerkillä.
Syntaksi on:
Poista tiedosto tiedostotiedot, [ pakottaa ]
| 1234 | Sub DeleteFiles ()Himmennä MyFSO uutena FileSystemObjectinaMyFSO.DeleteFile "C: \ temp \*"End Sub |
Tämä koodi poistaa kaikki kansiossa C: \ temp olevat tiedostot
Pakota -parametri on valinnainen ja sen arvo on Tosi tai False. Jos sen arvo on Tosi, vain luku-tiedostot poistetaan. Oletusarvo on False.
Poista kansio
Tämä menetelmä poistaa määritetyn kansion ja sen sisällön.
Syntaksi on:
Poista kansio kansiot, [ pakottaa ]
| 1234 | Sub DeleteFolders ()Himmennä MyFSO uutena FileSystemObjectinaMyFSO.DeleteFolder "C: \ temp \ MyDestination"End Sub |
Tämä koodi poistaa MyDestination -kansion ja kaikki kansiossa olevat tiedostot. Kansio "temp" säilyy.
Pakota -parametri on valinnainen, ja sen arvo on Tosi tai False. Jos sen arvo on Tosi, vain luku -kansiot poistetaan. Oletusarvo on False.
Yleismerkkejä voidaan käyttää polun viimeisessä osassa. Jos kansiota ei löydy, tapahtuu virhe.
Tämä menetelmä pysähtyy ensimmäisen virheen kohdalla. Ennen virheen ilmenemistä onnistuneita toimintoja ei palauteta.
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Muut menetelmät FSO: ssa
OpenAsTextStream.
Tämä menetelmä avaa määritetyn tiedoston Text Stream -objektina ja sallii sen lukemisen tai kirjoittamisen. Tämän menetelmän etuna on, että se voi avata minkä tahansa tiedostotyypin ja purkaa käytettävissä olevan tekstin.
Syntaksi on:
OpenAsTextStream ([ iomode, [ muoto ]])
Iomode -parametri sallii vain luku (1), luku/kirjoitus (2) ja liittäminen (8). Luku-/kirjoitusparametri korvaa tiedoston.
"Format" -parametriksi on asetettu -2 järjestelmän oletusarvoon, -1 tiedoston avaamiseen Unicode -koodina ja 0 tiedoston avaamiseen ASCII -muodossa (American Standard Code for Information Interchange).
| 1234567891011 | Sub TextStream ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFile ("C: \ temp \ myfile.txt")Aseta ts = f.OpenAsTextStream (2)ts.Kirjoita "Uusi tekstini"ts. suljeAseta ts = f.OpenAsTextStream (1)s = ts. ReadLineMsgBox sts. suljeEnd Sub |
Tämä koodi saa olemassa olevan tekstitiedoston ja luo sen objektiksi GetFile -menetelmällä. Sitten se avaa tekstivirran luku / kirjoitus (2) ja kirjoittaa tekstirivin. Tiedosto suljetaan ja avataan uudelleen luettuna (1) ja siitä luetaan rivi, joka näytetään sitten viestiruudussa.
Huomaa, että lukurivi on sijoitettava muuttujaan, ennen kuin se voidaan näyttää viestiruudussa.
BuildPath
Tämä menetelmä lisää kansion tai tiedoston nimen olemassa olevan kansion polun loppuun. Tämä luo vain tekstimerkkijonon eikä itse luo uutta kansiota.
Syntaksi on:
BuildPath (polku, nimi)
| 12345 | OsarakennePth ()Himmennä MyFSO uutena FileSystemObjectinanp = MyFSO.BuildPath ("C: \ temp", "ANewFolder")MsgBox npEnd Sub |
Tämä näyttää "C: \ temp \ ANewFolder". Jos kuitenkin haluat todella käyttää tätä kansiota, sinun on käytettävä "CreateFolder" -menetelmää.
OpenTextFile
Tämä menetelmä mahdollistaa tiedostojen avaamisen ja lukemisen tai kirjoittamisen asetettujen parametrien mukaan. Se toimii samalla tavalla kuin OpenAsTextStream -menetelmä.
Syntaksi on:
OpenTextFile (Tiedoston nimi, [ iomode, [ luoda, [ muoto ]]])
Iomode -parametri sallii ForReading, ForWriting ja ForAppending. ForWriting -parametri korvaa tiedoston.
Luo -parametri on Boolen arvo. Tosi tarkoittaa, että uusi tiedosto luodaan, jos määritettyä tiedostonimeä ei ole. Väärä tarkoittaa, että tiedostoa ei luoda, jos tiedostonimeä ei löydy. Oletusarvo on False.
"Format" -parametriksi voidaan asettaa TristateFalse, TristateMixed, TristateTrue ja TristateUseDefault sen mukaan, onko tiedosto ASCII vai Unicode.
| 1234567 | OpenTxtFile ()Himmennä MyFSO uutena FileSystemObjectinaAseta ts = MyFSO.OpenTextFile ("C: \ temp \ myfile.txt", ForReading, False, TristateUseDefault)s = ts. ReadLineMsgBox sts. suljeEnd Sub |
Tämä koodi lukee rivin tekstitiedostosta "myfile.txt".
OpenTextFile -menetelmän etuna OpenAsTextStreamMethodiin verrattuna on se, että sillä on pudotusvalikot parametreille, jotka ovat mielekkäämpiä kuin yrittää muistaa eri parametrivaihtoehtojen asianmukaiset numeeriset arvot.
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
FSO: n ominaisuudet
Asemat
Tämä ominaisuus sisältää kokoelman käytettävissä olevia asemia tietokoneellasi.
| 1234567 | Sub Drv ()Himmennä MyFSO uutena FileSystemObjectina, d AsemanaAseta Dr = MyFSO.DrivesJokaiselle d In Dr.MsgBox d.DriveLetterSeuraava dEnd Sub |
Tämä koodi palauttaa jokaisen tietokoneessa käytettävissä olevan aseman kirjaimen.
Nimi
Tämä palauttaa määritetyn tiedoston tai kansion nimen.
| 123456789 | AlanimiEsimerkki ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Nimi & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Luotu:" & f.DateCreated & vbCrLfi = i & "Viimeksi käytetty:" & f.DateLastAccessed & vbCrLfi = i & "Viimeksi muokattu:" & f.DateLastModifiedMsgBox iEnd Sub |
Tämä koodi antaa tiedoston nimen ja tiedot siitä Drive -ominaisuuden avulla.
Polku
Polku -ominaisuus erottaa polun tiedostomäärityksestä.
| 123456789 | AlipolkuEsimerkki ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Path & f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Luotu:" & f.DateCreated & vbCrLfi = i & "Viimeksi käytetty:" & f.DateLastAccessed & vbCrLfi = i & "Viimeksi muokattu:" & f.DateLastModifiedMsgBox iEnd Sub |
Tämä esimerkki toimii samalla tavalla kuin Nimi -esimerkki, paitsi että se tarjoaa nyt tiedoston polun.
VBA -ohjelmointi | Koodigeneraattori toimii sinulle!
Koko
Koko -ominaisuus ilmoittaa kansion tai tiedoston koon.
| 12345 | Osa FSize ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. KokoEnd Sub |
Tämä yllä oleva koodi palauttaa kansion "C: \ temp \" koon.
| 12345 | Osa FSize ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFile ("C: \ temp \ myfile.txt")MsgBox f. KokoEnd Sub |
Tämä yllä oleva koodi palauttaa tiedoston "myfile.txt".
Tyyppi
Tyyppi -ominaisuus palauttaa tiedoston tai kansiotyypin tekstin.
| 12345 | Osa FType ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. TyyppiEnd Sub |
Tämä yllä oleva koodi palauttaa tekstin "Tiedostokansio".
| 12345 | Osa FType ()Himmennä MyFSO uutena FileSystemObjectinaAseta f = MyFSO.GetFile ("C: \ temp \ myfile.txt")MsgBox f. TyyppiEnd Sub |
Tämä yllä oleva koodi palauttaa tekstin "Tekstiasiakirja".
Huomaa "GetFolder" ja "GetFile" käyttö kussakin esimerkissä.
