FileSystemObject (FSO) izmantošana programmā Excel VBA
FileSystemObject (FSO) ļauj piekļūt visam funkciju klāstam, lai piekļūtu datora failu sistēmai. Izmantojot šo objektu, jūs varat viegli piekļūt failiem, mapēm un diskdziņiem, kā arī lasīt un rakstīt failos.
Daudzas FSO funkcijas jūs varētu ierakstīt tradicionālajā VBA, taču tām būtu nepieciešama lielāka kodēšana, un ienākošajam izstrādātājam tās būtu grūtāk uzturēt un saprast. FSO ir pārbaudīta API (lietojumprogrammu saskarne) un ir uzticamāka par jūsu kodu. Tas ir viegli lietojams, gatavs un pieejams.
FSO darbojas saskaņā ar starptautiskajiem standartiem un iestatījumiem, kas ir jūsu datorā. Ja jūs izplatāt savu Excel lietojumprogrammu visā pasaulē, tad, izmantojot FSO, tiks novērstas atšķirības starp valstu iestatījumiem, kas jūsu kodam būtu grūti.
FSO ļaus jums darīt gandrīz visu VBA kodā, ko jūs varētu darīt Windows File Explorer. Tas nodrošina pilnīgu piekļuvi Windows failu sistēmai.
FileSystemObject izveide
FileSytemObject nav daļa no Excel VBA. Jūs varat izmantot FSO, izveidojot objektu (novēlota iesiešana) VBA:
| 123 | Sub CreateFSO ()Iestatīt MyFSO = CreateObject ("Scripting.FileSystemObject")Beigu apakš |
Varat arī pievienot atsauci FSO bibliotēkas VBA. To sauc par agrīnu saistīšanu, un tas ir ātrāk nekā vēlā saistīšana, jo objekts nav jāizveido, kad tiek palaists jūsu kods.
Lai pievienotu atsauci, nospiediet taustiņu kombināciju Alt-F11, lai atvērtu Visual Basic Editor (VBE), un pēc tam izvēlnē VBE izmantojiet rīkus | Atsauces. Tiks parādīts uznirstošais logs, kurā varēsit izvēlēties atbilstošo atsauci (skatīt zemāk).
Ritiniet pieejamo atsauču sarakstu uz leju, līdz redzat “Microsoft skriptu izpildlaiks”. Atzīmējiet izvēles rūtiņu un noklikšķiniet uz Labi, un bibliotēka tagad ir daļa no jūsu pieteikuma.
DLL bibliotēkas faila atrašanās vieta ir C: \ Windows \ SysWOW64 \ scrrun.dll
Ja jūs izplatāt savu lietojumprogrammu citiem kolēģiem vai atrašanās vietām, ir svarīgi, lai viņiem šis fails būtu pareizajā datora vietā, pretējā gadījumā jūsu kods radīs kļūdu.
Ir vērts ievietot kļūdu slazdu notikumam “WorkbookOpen”, izmantojot komandu Dir, lai pārbaudītu, vai fails pastāv. Ja tā nav, dodiet brīdinājuma ziņojumu un aizveriet Excel failu.
Kad atsauce ir pievienota, varat izmantot šādu kodu, lai izveidotu FSO:
| 123 | Apakštests FSO ()Dim MyFSO kā jauns FileSystemObjectBeigu apakš |
Visi šī raksta piemēri izmantos šo metodiku, lai izveidotu FSO.
FSO ir pieejamas daudzas metodes un īpašības. Šeit tie ir sadalīti sadaļās atkarībā no tā, ko viņi var darīt.
Izmantojot “esošās” metodes
Varat izmantot FSO metodi, lai pārbaudītu, vai pastāv disks, mape vai fails. Šīs metodes ir viegli lietojamas, un tām ir nepieciešams tikai viens parametrs.
| 123456 | ApakšpārbaudeTālums ()Dim MyFSO kā jauns FileSystemObjectMsgBox MyFSO.DriveExists ("C:")MsgBox MyFSO.FolderExists ("C: \ temp")MsgBox MyFSO.FileExists ("C: \ temp \ testfile.txt")Beigu apakš |
Visi šie paziņojumi atgriezīs “True”, pieņemot, ka jūsu datoram ir C: disks, tajā esošā mape ar nosaukumu “Temp” un fails Temp mapē ar nosaukumu “testfile.txt”.
Teksta virknes parametros nav reģistrjutīgas. Nevienā no šīm metodēm nevar izmantot aizstājējzīmes.
Jūs arī nevarat izmantot vietrāžus URL (vienotus resursu meklētājus), lai aprakstītu mapi vai faila atrašanās vietu. FSO darbojas tikai operētājsistēmā Windows un tajā esošajā failu sistēmā. Ārēja servera atrašanās vietai vispirms ir jāatzīmē disks un pēc tam jāizmanto pats diska ceļš.
Izmantojot “Get” metodes
FSO ir vairākas metodes, kā iegūt informāciju par failu un ceļu, vai nu sadalot ceļu un failu, vai iegūstot informāciju par failu vai mapi, piemēram, izveidošanas datumu vai mainīšanas datumu.
GetAbsolutePathname
Tas nodrošinās pilnu ceļu no norādītā diska saknes.
Sintakse ir šāda:
GetAbsolutePathName (pathspec)
| 12345 | Sub AbsolutePath ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "c: …"MsgBox MyFSO.GetAbsolutePathName (Pth)Beigu apakš |
Tādējādi tiks atgriezta virkne “C: \ Users \ Richard \ Documents”. Tas ir tāpēc, ka ceļš ir norādīts kā C: kam seko trīs punkti. Katrs punkts apzīmē nākamo līmeni mapju struktūrā.
GetBaseName
Tas atgriež norādītā faila vai mapes nosaukumu.
Sintakse ir šāda:
GetBaseName(ceļš)
| 12345 | Sub BaseName ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetBaseName (Pth)Beigu apakš |
Šis kods atgriezīs “testa failu”. Metode atgriež ceļa nosaukuma pēdējo sadaļu. Ja tas ir fails, tas neatgriež faila sufiksu.
Ja ceļu nevar atrast, tiks atgriezta tukša virkne.
GetDrive
Tas ļauj izmantot kodu, lai piekļūtu diska informācijai, pamatojoties uz norādīto diska burtu.
Sintakse ir šāda:
GetDrive (drivepec)
| 123456 | Sub DriveInfo ()Dim MyFSO kā jauns FileSystemObject, Pth kā virkne, Dr kā disksPth = "C:"Iestatiet Dr = MyFSO.GetDrive (Pth)MsgBox Dr.FreeSpaceBeigu apakš |
Šī metode atgriež diska objektu, pamatojoties uz norādīto disku. Jūs varat izmantot šo objektu, lai piekļūtu informācijai par disku, piemēram, brīvai brīvai vietai.
Vai esat noguris no VBA koda piemēru meklēšanas? Izmēģiniet AutoMacro!
GetDriveName
Šī metode atdalīs diska nosaukumu no ceļa / faila nosaukuma virknes.
Sintakse ir šāda:
GetDriveName (ceļš)
| 12345 | Sub DriveName ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetDriveName (Pth)Beigu apakš |
Tiks parādīts “C:”
GetExtensionName
Tas atgriezīs faila sufiksu norādītajā ceļā.
Sintakse ir šāda:
GetExtensionName (ceļš)
| 12345 | Apakšpagarinājuma nosaukums ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetExtensionName (Pth)Beigu apakš |
Tas atgriezīs “txt”.
Ja fails nav norādīts, tiks atgriezta tukša virkne.
GetFile
Šī metode atgriež faila objektu, kurā ir dažāda informācija par pašu failu.
Sintakse ir šāda:
GetFile (filespec)
| 123456 | Apakšfaila informācija ()Dim MyFSO kā jauns FileSystemObject, Pth kā virkne, Fn kā failsPth = "C: \ temp \ testfile.txt"Iestatīt Fn = MyFSO.GetFile (Pth)MsgBox Fn.DateCreatedBeigu apakš |
Tas atgriezīs norādītā faila izveides datumu un laiku. Ja neviens fails nav norādīts vai fails neeksistē, tiks parādīta kļūda “fails nav atrasts”.
| 12345 | Apakšfaila nosaukums ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetFileName (Pth)Beigu apakš |
Tādējādi tiks atgriezts fails “testfile.txt”.
GetFolder
Tādējādi tiek izveidots mapes objekts pamata mapei norādītajā ceļā. Ceļā drīkst būt tikai mapju nosaukumi. Failu nosaukumi nav jāiekļauj, pretējā gadījumā radīsies kļūda.
Sintakse ir šāda:
GetFolder (mapes specif)
| 123456 | Apakšmapes informācija ()Dim MyFSO kā jauns FileSystemObject, Pth kā virkne, Fo kā mapePth = "C: \ temp"Iestatīt Fo = MyFSO.GetFolder (Pth)MsgBox Fo.DateCreatedBeigu apakš |
Mapes objektā ir dažāda informācija, kurai var piekļūt. Šajā gadījumā tas atgriež mapes izveides datumu.
Varat arī izmantot šo metodi, lai izgūtu visus failu nosaukumus noteiktā mapē:
| 12345678 | Apakšfaila nosaukumi ()Dim MyFSO kā jauns failu sistēmas objekts, Pth kā virkne, Fo kā mape, Fn kā failsPth = "C: \ temp"Iestatīt Fo = MyFSO.GetFolder (Pth)Par katru Fn In Fo.FilesMsgBox Fn.NameNākamais FnBeigu apakš |
Šis kods atkārtos mapi “Temp” un parādīs katru atrasto faila nosaukumu.
GetParentFolderName
Šī metode atgriezīs mapes nosaukumu nākamajā mapju hierarhijas līmenī.
Sintakse ir šāda:
GetParentFolderName (ceļš)
| 12345 | Apakšmapes nosaukums ()Dim MyFSO kā jauns FileSystemObject, Pth kā virkne, Fo kā mapePth = "C: \ richard"MsgBox MyFSO.GetParentFolderName (Pth)Beigu apakš |
Tas atgriezīs “Lietotājus”, jo tas ir mapes “richard” “vecāks”.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Izmantojot “Izveidot” metodes
Izmantojot FSO, varat izveidot jaunu mapi un ceļu un izveidot teksta failu.
CreateFolder
Varat norādīt jaunu mapes ceļa nosaukumu, kas jāizveido. Tā draudi ir tādi, ka, ja mape jau pastāv, radīsies kļūda. Lai pārliecinātos, ka tas nenotiks, varat izmantot metodi FolderExists.
Sintakse ir šāda:
CreateFolder(mapes nosaukums)
| 1234567 | Sub CreateNewFolder ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "C: \ temp \ MyFolder"Ja MyFSO.FolderExists (Pth) = NepareiziMyFSO.CreateFolder (Pth)Beigas JaBeigu apakš |
Šis kods izveidos jaunu mapi ar nosaukumu “Mana mape” zem esošā ceļa “C: \ temp”.
CreateTextFile
Šī metode ļauj izveidot vienkāršu teksta failu un tieši tajā ierakstīt.
Sintakse ir šāda:
CreateTextFile (faila nosaukums, [ pārrakstīt, [ unikods ]])
| 1234567 | Sub CreateTextFile ()Dim MyFSO kā jauns FileSystemObject, Pth kā virknePth = "C: \ temp \ Myfile.txt"Iestatīt Fn = MyFSO.CreateTextFile (Pth, True)Fn.Rakstiet "Pievienot savu tekstu šeit" & vbLf & "Šī ir otrā rinda"Fn. AizvērtBeigu apakš |
Šis kods izveido teksta failu ar nosaukumu “Myfile.txt” diska “C:” mapē “Temp” un pēc tam tajā uzraksta divas teksta rindiņas.
Ņemiet vērā, ka rindas plūsmas rakstzīme ir savienota rakstāmajā virknē.
Ja ceļš, uz kuru rakstāt, neeksistē, radīsies kļūda. Pirms faila izveides varat to pārbaudīt, izmantojot metodi FolderExists.
Ir neobligāts parametrs, lai nepieciešamības gadījumā pārrakstītu esošo failu - tas var būt Patiess vai Nepareizs. Noklusējuma vērtība ir True.
Izmantojot “kopēšanas” metodes
Varat izmantot šīs metodes, lai kopētu failu vai mapi uz citu vietu.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
CopyFile
Šī metode kopēs failu no vienas mapes vietas uz citu. Ņemiet vērā, ka kopēšana neizdosies, ja galamērķa vietā ir iestatīts tikai lasāms atribūts.
Sintakse ir šāda:
CopyFile avots, galamērķi, [ pārrakstīt ]
| 1234 | Sub CopyFile ()Dim MyFSO kā jauns FileSystemObjectMyFSO.CopyFile "C: \ temp \*. Txt", "C: \ temp \ myfolder \", TrueBeigu apakš |
Šis kods padarīs visu teksta (txt) failu kopiju “C: \ temp” uz “C: \ temp \ myfolder \”, vajadzības gadījumā pārrakstot failu. Pārrakstīšanas noklusējuma iestatījums ir True.
Failu nosaukumiem varat izmantot zvaigznīti (*), un nevar izmantot jautājuma zīmes (?) Aizstājējzīmi, lai attēlotu atsevišķas rakstzīmes.
CopyFolder
Varat izmantot šo metodi, lai kopētu visu mapi no vienas vietas uz citu.
Sintakse ir šāda:
CopyFolder avots, galamērķi, [ pārrakstīt ]
| 1234 | Sub CopyFolder ()Dim MyFSO kā jauns FileSystemObjectMyFSO.CopyFolder "C: \ temp \*", "C: \ users \ richard \"Beigu apakš |
Šis kods kopē visas mapes un failus zem “C: \ temp” uz “C: \ users Richard”. Izveidotā jaunā mape būs “C: \ users \ richard \ myfolder”, jo “C: \ temp” tajā bija mape ar nosaukumu “myfolder”.
Izmantojot šo metodi, ir četri iespējamie rezultāti:
- Ja galamērķis neeksistē, avota mape un saturs tiek kopēti.
- Ja galamērķis jau pastāv, rodas kļūda.
- Ja galamērķis ir mape, avota mape un tās saturs tiks kopēti. Kļūda radīsies, ja pārrakstīšana ir iestatīta uz False un galamērķī jau ir faila kopija.
- Ja galamērķis ir iestatīts tikai lasīšanai, rodas kļūda, ja pārrakstīšana ir iestatīta kā nepatiesa.
Šī metode apstājas pie pirmās radušās kļūdas. Pirms kļūdas rašanās nav atcelta neviena veiksmīga darbība.
Izmantojot “pārvietošanas” metodes
Šīs metodes var izmantot, lai pārvietotu failus vai mapes uz citām vietām. Tas ir tas pats, kas griešana no vienas vietas un ielīmēšana citā vietā. Ņemiet vērā: ja pārvietojamais fails ir atvērts, pārvietošanas metode neizdosies ar kļūdu.
MoveFile
Šo metodi izmanto, lai pārvietotu noteiktu failu uz citu vietu. Aizstājējzīmes ir atļautas avota pēdējā ceļa komponentā.
Sintakse ir šāda:
MoveFile avots, galamērķi
| 1234 | Sub MoveAFile ()Dim MyFSO kā jauns FileSystemObjectMyFSO.MoveFile "C: \ temp \*", "C: \ temp \ myfolder"Beigu apakš |
Šis kods pārvieto visus failus, kas atrodami “C: \ temp”, uz “C: \ temp \ myfolder”.
Avota un mērķa mapēm ir jābūt, jo galamērķa mape netiek automātiski izveidota.
Šī metode apstājas pie pirmās kļūdas. Pirms kļūdas rašanās nav atcelta neviena veiksmīga darbība.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
MoveFolder
Šī metode pārvieto konkrētu mapi no vienas vietas uz citu.
Sintakse ir šāda:
MoveFolder (avots, galamērķi)
| 1234 | Sub MoveAFolder ()Dim MyFSO kā jauns FileSystemObjectMyFSO.MoveFolder "C: \ temp \ myfolder", "C: \ temp \ mydestination"Beigu apakš |
Šis kods mapi “myfolder” un saturu pārvieto uz mapi “mydestination”. “Myfolder” tiek efektīvi izdzēsts un tiek izveidots “mydestination” kopā ar saturu no “myfolder”.
Ja mērķa mape jau pastāv, rodas kļūda.
Izmantojot “dzēšanas” metodes
Šīs metodes tiek izmantotas failu vai mapju dzēšanai. Tie jāizmanto uzmanīgi, jo, ja kaut kas noiet greizi, nav atcelšanas vai atsaukšanas metožu.
Izdzēst failu
Tādējādi tiek dzēsti atsevišķi faili vai failu grupa, izmantojot aizstājējzīmes.
Sintakse ir šāda:
Izdzēst failu filespec, [ spēks ]
| 1234 | Sub Delete Files ()Dim MyFSO kā jauns FileSystemObjectMyFSO.DeleteFile "C: \ temp \*"Beigu apakš |
Šis kods izdzēsīs visus failus mapē “C: \ temp”
Parametrs Spēks nav obligāts un ir iestatīts uz Patiess vai Nepareizs. Ja tas ir iestatīts uz True, tad tikai lasāmie faili tiks dzēsti. Noklusējums ir False.
DeleteFolder
Šī metode izdzēš norādīto mapi un tās saturu.
Sintakse ir šāda:
DeleteFolder mapes specif, [ spēks ]
| 1234 | Apakšdzēst mapes ()Dim MyFSO kā jauns FileSystemObjectMyFSO.DeleteFolder "C: \ temp \ MyDestination"Beigu apakš |
Šis kods izdzēsīs mapi “MyDestination” un visus failus šajā mapē. Mape "temp" paliks.
Parametrs Piespiest nav obligāts un ir iestatīts uz Patiess vai Nepareizs. Ja tas ir iestatīts uz True, tad tikai lasāmās mapes tiks dzēstas. Noklusējums ir False.
Aizstājējzīmes var izmantot pēdējā ceļa komponentā. Ja mape netiek atrasta, rodas kļūda.
Šī metode apstājas pie pirmās kļūdas. Pirms kļūdas rašanās nav atcelta neviena veiksmīga darbība.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Citas metodes FSO
OpenAsTextStream.
Šī metode atver noteiktu failu kā teksta straumes objektu un ļauj to lasīt vai rakstīt. Šīs metodes priekšrocība ir tā, ka tā var atvērt jebkura veida failu un iegūt pieejamo tekstu.
Sintakse ir šāda:
OpenAsTextStream ([ iomode, [ formātā ]])
Parametrs “iomode” ļauj tikai lasīt (1), lasīt/rakstīt (2) un pievienot (8). Lasīšanas/rakstīšanas parametrs pārraksta failu.
Parametrs “formāts” ir iestatīts uz -2 sistēmas noklusējuma gadījumā, -1, lai atvērtu failu kā Unicode, un 0, lai atvērtu failu kā ASCII (Amerikas standarta informācijas apmaiņas kods).
| 1234567891011 | Apakšteksta plūsma ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFile ("C: \ temp \ myfile.txt")Iestatiet ts = f. OpenAsTextStream (2)ts. Rakstiet "Mans jaunais teksts"ts. AizvērtIestatiet ts = f. OpenAsTextStream (1)s = ts. ReadLineMsgBox sts. AizvērtBeigu apakš |
Šis kods iegūst esošu teksta failu un izveido to kā objektu, izmantojot metodi GetFile. Pēc tam tas atver teksta plūsmu kā lasīšanu / rakstīšanu (2) un uzraksta teksta rindiņu. Pēc tam fails tiek aizvērts un atkārtoti atvērts kā lasāms (1), un no tā tiek nolasīta rinda, kas pēc tam tiek parādīta kā ziņojumu lodziņš.
Ņemiet vērā, ka lasīšanas rindiņa ir jāievieto mainīgajā, lai to varētu parādīt ziņojumu lodziņā.
BuildPath
Šī metode esošās mapes ceļa beigās pievienos mapes vai faila nosaukumu. Tādējādi tiek izveidota tikai teksta virkne un faktiski netiek izveidota jaunā mape.
Sintakse ir šāda:
BuildPath (ceļš, vārds)
| 12345 | Sub BuildPth ()Dim MyFSO kā jauns FileSystemObjectnp = MyFSO.BuildPath ("C: \ temp", "ANewFolder")MsgBox npBeigu apakš |
Tas parādīs “C: \ temp \ ANewFolder”. Tomēr, ja vēlaties faktiski izmantot šo mapi, jums jāizmanto metode CreateFolder.
OpenTextFile
Šī metode ļauj atvērt un lasīt failus vai rakstīt tos atbilstoši iestatītajiem parametriem. Tas darbojas līdzīgi OpenAsTextStream metodei.
Sintakse ir šāda:
OpenTextFile (faila nosaukums, [ iomode, [ izveidot, [ formātā ]]])
Parametrs “iomode” ļauj lietot ForReading, ForWriting un ForAppending. Parametrs ForWriting pārraksta failu.
Parametrs “izveidot” ir Būla vērtība. Patiess nozīmē, ka tiks izveidots jauns fails, ja norādītais faila nosaukums neeksistē. Nepareizs nozīmē, ka fails netiks izveidots, ja faila nosaukums netiks atrasts. Noklusējums ir False.
Parametru “formāts” var iestatīt uz TristateFalse, TristateMixed, TristateTrue un TristateUseDefault atkarībā no tā, vai fails ir ASCII vai Unicode.
| 1234567 | Apakš OpenTxtFile ()Dim MyFSO kā jauns FileSystemObjectIestatīt ts = MyFSO.OpenTextFile ("C: \ temp \ myfile.txt", ForReading, False, TristateUseDefault)s = ts. ReadLineMsgBox sts. AizvērtBeigu apakš |
Šis kods nolasīs rindiņu no teksta faila “myfile.txt”.
OpenTextFile metodes priekšrocība salīdzinājumā ar OpenAsTextStreamMethod ir tā, ka tai ir parametru nolaižamās izvēlnes, kas ir nozīmīgākas nekā mēģinājums atcerēties atbilstošās skaitliskās vērtības dažādām parametru opcijām.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
FSO īpašības
Piedziņas
Šajā īpašumā ir jūsu datorā pieejamo disku kolekcija.
| 1234567 | Sub Drv ()Dim MyFSO kā jauns FileSystemObject, d kā disksIestatiet Dr = MyFSO.DrivesPar katru d In Dr.MsgBox d.DriveLetterNākamais dBeigu apakš |
Šis kods atgriezīs katru jūsu datorā pieejamo diska burtu.
Vārds
Tas atgriež norādītā faila vai mapes nosaukumu.
| 123456789 | ApakšvārdsPiemērs ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Izveidots:" & f.DateCreated & vbCrLfi = i & "Pēdējā piekļuve:" & f.DateLastAccessed & vbCrLfi = i & "Pēdējās izmaiņas:" & f.DateLastModifiedMsgBox iBeigu apakš |
Šis kods sniegs faila nosaukumu un informāciju par to, izmantojot diska rekvizītu.
Ceļš
Rekvizīts Ceļš atdalīs ceļu no faila specifikācijas.
| 123456789 | ApakšceļšPiemērs ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Path & f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Izveidots:" & f.DateCreated & vbCrLfi = i & "Pēdējā piekļuve:" & f.DateLastAccessed & vbCrLfi = i & "Pēdējās izmaiņas:" & f.DateLastModifiedMsgBox iBeigu apakš |
Šis piemērs darbojas tāpat kā piemērs Nosaukums, izņemot to, ka tas tagad nodrošina faila ceļu.
VBA programmēšana | Kodu ģenerators strādā jūsu labā!
Izmērs
Rekvizīts Izmērs norādīs mapes vai faila lielumu.
| 12345 | Sub FSize ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. IzmērsBeigu apakš |
Šis kods iepriekš atgriezīs mapes “C: \ temp \” lielumu.
| 12345 | Sub FSize ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFile ("C: \ temp \ myfile.txt")MsgBox f. IzmērsBeigu apakš |
Šis kods iepriekš atgriezīs faila “myfile.txt” lielumu.
Tips
Īpašuma tips atgriež faila vai mapes tipa tekstu.
| 12345 | Apakš FType ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. TipsBeigu apakš |
Šis kods iepriekš atgriezīs tekstu “Failu mape”.
| 12345 | Apakš FType ()Dim MyFSO kā jauns FileSystemObjectIestatiet f = MyFSO.GetFile ("C: \ temp \ myfile.txt")MsgBox f. TipsBeigu apakš |
Šis kods iepriekš atgriezīs tekstu “Teksta dokuments”.
Ņemiet vērā, ka katrā piemērā tiek izmantotas “GetFolder” un “GetFile”.
