Použitie FileSystemObject (FSO) v programe Excel VBA
Server FileSystemObject (FSO) vám poskytuje prístup k celému radu funkcií na prístup k systému súborov vášho počítača. Pomocou tohto objektu môžete ľahko pristupovať k súborom, priečinkom a jednotkám a tiež čítať a zapisovať do súborov.
Mnoho funkcií FSO by ste mohli napísať v tradičnom jazyku VBA, ale vyžadovalo by si viac kódovania a pre prichádzajúceho vývojára by bolo ťažšie ich udržať a pochopiť. FSO je osvedčené API (Application Programming Interface) a je spoľahlivejšie ako váš vlastný kód. Je ľahko použiteľný, pripravený a dostupný.
FSO funguje podľa medzinárodných štandardov a nastavení, ktoré máte vo svojom počítači. Ak distribuujete svoju aplikáciu Excel globálne, potom pomocou FSO sa postará o všetky rozdiely v nastaveniach medzi krajinami, s ktorými by mal váš vlastný kód problémy.
FSO vám umožní robiť takmer všetko v kóde VBA, čo by ste mohli robiť v Prieskumníkovi súborov Windows. Poskytuje vám úplný prístup k systému súborov Windows.
Vytvorenie súboru FileSystemObject
Súbor FileSytemObject nie je súčasťou programu Excel VBA. FSO môžete použiť na vytvorenie objektu (neskorá väzba) vo VBA:
| 123 | Sub CreateFSO ()Nastaviť MyFSO = CreateObject ("Scripting.FileSystemObject")Koniec pod |
Prípadne môžete do knižnice VBA pridať referenciu na knižnicu FSO. Toto sa nazýva včasná väzba a je to rýchlejšie ako neskorá väzba, pretože objekt nie je potrebné vytvárať, keď je spustený váš kód.
Ak chcete pridať referenciu, musíte stlačením klávesovej skratky Alt-F11 vstúpiť do programu Visual Basic Editor (VBE) a potom použiť „Nástroje | Referencie“ z ponuky VBE. Zobrazí sa vyskakovacie okno, v ktorom môžete vybrať príslušnú referenciu (pozri nižšie).
Posúvajte sa nadol v zozname dostupných odkazov, kým sa nezobrazí „Microsoft Scripting Runtime“. Začiarknite políčko a kliknite na tlačidlo OK. Knižnica je teraz súčasťou vašej aplikácie.
Umiestnenie súboru knižnice DLL je C: \ Windows \ SysWOW64 \ scrrun.dll
Ak distribuujete svoju aplikáciu iným kolegom alebo miestam, je nevyhnutné, aby mali tento súbor vo svojom počítači na správnom mieste, inak sa kód pokazí.
Stojí za to vložiť chybovú pascu na udalosť „WorkbookOpen“ pomocou príkazu Dir a skontrolovať, či súbor existuje. Ak chýba, zadajte varovnú správu a zatvorte súbor programu Excel.
Po pridaní referencie môžete na vytvorenie FSO použiť nasledujúci kód:
| 123 | Sub TestFSO ()Dim MyFSO ako nový FileSystemObjectKoniec pod |
Všetky príklady v tomto článku použijú túto metodiku na vytvorenie FSO.
FSO má k dispozícii mnoho metód a vlastností. Tu sú rozdelené do sekcií podľa toho, čo môžu robiť.
Použitie „existujúcich“ metód
Na kontrolu, či existuje jednotka, priečinok alebo súbor, môžete použiť metódu FSO. Tieto metódy sa ľahko používajú a vyžadujú iba jeden parameter.
| 123456 | Náhradná kontrolná vzdialenosť ()Dim MyFSO ako nový FileSystemObjectMsgBox MyFSO.DriveExists ("C:")MsgBox MyFSO.FolderExists ("C: \ temp \")MsgBox MyFSO.FileExists ("C: \ temp \ testfile.txt")Koniec pod |
Všetky tieto vyhlásenia vrátia hodnotu „True“ za predpokladu, že váš počítač má jednotku C:, priečinok s názvom „Temp“ a súbor v priečinku Temp s názvom „testfile.txt“
V textových reťazcoch v parametroch sa nerozlišujú malé a veľké písmená. V žiadnej z týchto metód nemôžete používať zástupné znaky.
Tiež nemôžete používať adresy URL (Uniform Resource Locators) na opis umiestnenia priečinka alebo súboru. FSO funguje výlučne na operačnom systéme Windows a na ňom založenom súborovom systéme. Pokiaľ ide o umiestnenie externého servera, musíte na tento disk najskôr namapovať disk a potom použiť samotnú cestu k disku.
Použitie metód „Získať“
FSO má mnoho spôsobov, ako získať informácie o súbore a ceste, a to buď rozdelením cesty a súboru, alebo získaním informácií o súbore alebo priečinku, ako je napríklad dátum vytvorenia alebo dátum úpravy.
GetAbsolutePathname
To poskytne úplnú cestu z koreňa zadanej jednotky.
Syntax je:
GetAbsolutePathName (roadspec)
| 12345 | Sub AbsolutePath ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "c: …"MsgBox MyFSO.GetAbsolutePathName (Pth)Koniec pod |
Vráti sa tým reťazec „C: \ Users \ Richard \ Documents“. Dôvodom je, že cesta bola zadaná ako C:, za ktorou nasledujú tri bodky. Každý bod predstavuje ďalšiu úroveň v štruktúre priečinkov.
GetBaseName
Tým sa vráti názov zadaného súboru alebo priečinka.
Syntax je:
GetBaseName(cesta)
| 12345 | Podzákladné meno ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetBaseName (Pth)Koniec pod |
Tento kód vráti „testovací súbor“. Metóda vráti poslednú sekciu v názve cesty. Ak je to súbor, potom nevráti príponu súboru.
Ak cestu nemožno nájsť, vráti sa prázdny reťazec.
GetDrive
To vám umožní použiť kód na prístup k informáciám o jednotke na základe zadaného písmena jednotky.
Syntax je:
GetDrive (drivepec)
| 123456 | Sub DriveInfo ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazec, Dr ako diskPth = "C:"Nastaviť Dr = MyFSO.GetDrive (Pth)MsgBox Dr.FreeSpaceKoniec pod |
Táto metóda vráti objekt jednotky na základe zadanej jednotky. Tento objekt môžete použiť na prístup k informáciám o jednotke, ako je napríklad dostupné voľné miesto.
Ste unavení z hľadania príkladov kódu VBA? Skúste AutoMacro!
GetDriveName
Táto metóda oddelí názov jednotky od reťazca cesta / názov súboru.
Syntax je:
GetDriveName (cesta)
| 12345 | Sub DriveName ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetDriveName (Pth)Koniec pod |
Tým sa vráti „C:“
GetExtensionName
Tým sa vráti prípona súboru na zadanej ceste.
Syntax je:
GetExtensionName (cesta)
| 12345 | Sub ExtensionName ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetExtensionName (Pth)Koniec pod |
Vráti sa tým „txt“.
Ak nie je zadaný žiadny súbor, vráti sa prázdny reťazec.
GetFile
Táto metóda vráti objekt súboru, ktorý obsahuje rôzne informácie o samotnom súbore.
Syntax je:
GetFile (filepec)
| 123456 | Sub FileInfo ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazec, Fn ako súborPth = "C: \ temp \ testfile.txt"Nastaviť Fn = MyFSO.GetFile (Pth)MsgBox Fn.DateCreatedKoniec pod |
Vráti sa tým dátum a čas vytvorenia uvedeného súboru. Ak nie je zadaný žiadny súbor alebo súbor neexistuje, zobrazí sa chyba „súbor nebol nájdený“.
| 12345 | Podnázov súboru ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetFileName (Pth)Koniec pod |
Tým sa vráti súbor „testfile.txt“.
GetFolder
Tým sa vytvorí objekt priečinka pre základný priečinok na zadanej ceste. Cesta môže obsahovať iba názvy priečinkov. Nesmú byť zahrnuté žiadne názvy súborov, inak dôjde k chybe.
Syntax je:
GetFolder (priečinokpec)
| 123456 | PodpriečinokInfo ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazec, Fo ako priečinokPth = "C: \ temp"Nastaviť Fo = MyFSO.GetFolder (Pth)MsgBox Fo.DateCreatedKoniec pod |
Objekt priečinka obsahuje rôzne informácie, ku ktorým je prístup. V tomto prípade vráti dátum vytvorenia priečinka.
Túto metódu môžete použiť aj na načítanie všetkých názvov súborov v rámci daného priečinka:
| 12345678 | Vedľajšie názvy súborov ()Dim MyFSO ako nový súborový systémObjekt, Pth ako reťazec, Fo ako priečinok, Fn ako súborPth = "C: \ temp"Nastaviť Fo = MyFSO.GetFolder (Pth)Za každú Fn v Fo. SúboryMsgBox Fn. MenoĎalej FnKoniec pod |
Tento kód sa bude iterovať v priečinku „Temp“ a zobrazí každý nájdený názov súboru.
GetParentFolderName
Táto metóda vráti názov priečinka o úroveň vyššie v hierarchii priečinkov.
Syntax je:
GetParentFolderName (cesta)
| 12345 | PodpriečinokNázov ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazec, Fo ako priečinokPth = "C: \ users \ richard"MsgBox MyFSO.GetParentFolderName (Pth)Koniec pod |
Vráti sa tým „Používatelia“, pretože toto je „rodič“ pre priečinok „richard“.
Programovanie VBA | Generátor kódu pracuje za vás!
Použitie metód „Vytvoriť“
S FSO môžete vytvoriť nový priečinok a cestu a vytvoriť textový súbor.
Vytvoriť priečinok
Môžete zadať nový názov cesty k priečinku, ktorý sa má vytvoriť. Hrozilo by to, že ak priečinok už existuje, dôjde k chybe. Na zaistenie toho, aby sa to nestalo, môžete použiť metódu „FolderExists“.
Syntax je:
Vytvoriť priečinok(názov priečinka)
| 1234567 | Sub CreateNewFolder ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "C: \ temp \ MyFolder"Ak MyFSO.FolderExists (Pth) = False ThenMyFSO.CreateFolder (Pth)Koniec AkKoniec pod |
Tento kód vytvorí nový priečinok s názvom „MyFolder“ pod existujúcou cestou „C: \ temp“.
CreateTextFile
Táto metóda vám umožňuje vytvoriť jednoduchý textový súbor a priamo do neho písať.
Syntax je:
CreateTextFile (názov súboru, [ prepísať, [ unicode ]])
| 1234567 | Sub CreateTextFile ()Dim MyFSO ako nový FileSystemObject, Pth ako reťazecPth = "C: \ temp \ Myfile.txt"Nastaviť Fn = MyFSO.CreateTextFile (Pth, True)Fn.Napíšte „Tu pridajte svoj vlastný text“ & vbLf & „Toto je druhý riadok“Fn.ZavrieťKoniec pod |
Tento kód vytvorí textový súbor s názvom „Myfile.txt“ v priečinku „Temp“ na disku „C:“ a potom do neho napíše dva riadky textu.
Všimnite si toho, že znak riadku je zreťazený do zapisovaného reťazca.
Ak cesta, na ktorú píšete, neexistuje, zobrazí sa chyba. Môžete to skontrolovať pomocou metódy „FolderExists“ pred vytvorením súboru.
V prípade potreby je možné existujúci súbor prepísať - môže to byť pravda alebo nepravda. Predvolená hodnota je True.
Používanie metód „Kopírovať“
Tieto metódy môžete použiť na kopírovanie súboru alebo priečinka na iné miesto.
Programovanie VBA | Generátor kódu pracuje za vás!
CopyFile
Táto metóda skopíruje súbor z jedného umiestnenia priečinka do druhého. Upozorňujeme, že kopírovanie zlyhá, ak má cieľové umiestnenie nastavený atribút iba na čítanie.
Syntax je:
CopyFile zdroj, destinácia, [ prepísať ]
| 1234 | Podkopírovaný súbor ()Dim MyFSO ako nový FileSystemObjectMyFSO.CopyFile "C: \ temp \*. Txt", "C: \ temp \ myfolder \", TrueKoniec pod |
Tento kód vytvorí kópiu všetkých textových (txt) súborov v priečinku „C: \ temp“ do „C: \ temp \ myfolder \“ a v prípade potreby súbor prepíše. Predvolené nastavenie pre prepis je True.
Na názvy súborov môžete použiť zástupný znak hviezdička (*), ale na zastupovanie jednotlivých znakov nemôžete použiť zástupný znak otáznika (?).
CopyFolder
Túto metódu môžete použiť na kopírovanie celého priečinka z jedného umiestnenia do druhého.
Syntax je:
CopyFolder zdroj, destinácia, [ prepísať ]
| 1234 | Vedľajšia kópia priečinka ()Dim MyFSO ako nový FileSystemObjectMyFSO.CopyFolder "C: \ temp \*", "C: \ users \ richard \"Koniec pod |
Tento kód skopíruje všetky priečinky a súbory pod „C: \ temp“ do „C: \ users \ richard“. Nový vytvorený priečinok bude „C: \ users \ richard \ myfolder“, pretože v priečinku „C: \ temp“ bol priečinok s názvom „myfolder“.
Pri použití tejto metódy existujú štyri možné výsledky:
- Ak cieľ neexistuje, skopíruje sa zdrojový priečinok a obsah.
- Ak cieľ už existuje, zobrazí sa chyba.
- Ak je cieľom priečinok, skopíruje sa zdrojový priečinok a jeho obsah. Ak je funkcia Overwrite nastavená na hodnotu False a v cieľovom umiestnení sa už nachádza kópia súboru, dôjde k chybe.
- Ak je cieľ nastavený len na čítanie, dôjde k chybe, ak je prepísanie nastavené na hodnotu false.
Táto metóda sa zastaví pri prvej chybe, s ktorou sa stretne. Neexistujú žiadne akcie, ktoré boli úspešné, kým sa chyba vyskytne.
Použitie metód „Presunúť“
Tieto metódy je možné použiť na presun súborov alebo priečinkov na iné miesta. Je to rovnaké ako vystrihovanie z jedného miesta a vkladanie na iné miesto. Upozorňujeme, že ak je presunutý súbor otvorený, metóda Move zlyhá s chybou.
MoveFile
Táto metóda sa používa na presun konkrétneho súboru na iné miesto. Zástupné znaky sú povolené v komponente poslednej cesty zdroja.
Syntax je:
MoveFile zdroj, destinácia
| 1234 | Sub MoveAFile ()Dim MyFSO ako nový FileSystemObjectMyFSO.MoveFile "C: \ temp \*", "C: \ temp \ myfolder"Koniec pod |
Tento kód presúva všetky súbory nachádzajúce sa na „C: \ temp“ do „C: \ temp \ myfolder“.
Zdrojový a cieľový priečinok musia existovať, pretože cieľový priečinok sa nevytvorí automaticky.
Táto metóda sa zastaví pri prvej chybe, s ktorou sa stretne. Neexistujú žiadne akcie, ktoré boli úspešné, kým sa chyba vyskytne.
Programovanie VBA | Generátor kódu pracuje za vás!
MoveFolder
Táto metóda presúva konkrétny priečinok z jedného umiestnenia do druhého.
Syntax je:
MoveFolder (zdroj, destinácia)
| 1234 | Sub MoveAFolder ()Dim MyFSO ako nový FileSystemObjectMyFSO.MoveFolder "C: \ temp \ myfolder", "C: \ temp \ mydestination"Koniec pod |
Tento kód presunie priečinok „myfolder“ a obsah do priečinka „mydestination“. „Myfolder“ sa skutočne odstráni a vytvorí sa „mydestination“ spolu s obsahom z „myfolder“.
Ak cieľový priečinok už existuje, zobrazí sa chyba.
Použitie metód „Odstrániť“
Tieto metódy sa používajú na odstránenie súborov alebo priečinkov. Musia sa používať opatrne, pretože ak sa niečo pokazí, neexistuje spôsob vrátenia alebo vrátenia.
Zmazať súbor
Tým sa odstránia jednotlivé súbory alebo skupina súborov pomocou zástupných znakov.
Syntax je:
Zmazať súbor filepec, [ sila ]
| 1234 | Sub Delete Files ()Dim MyFSO ako nový FileSystemObjectMyFSO.DeleteFile "C: \ temp \*"Koniec pod |
Tento kód odstráni všetky súbory v priečinku „C: \ temp“
Parameter Force je voliteľný a je nastavený na hodnotu True alebo False. Ak je nastavená na hodnotu True, budú súbory iba na čítanie odstránené. Predvolená hodnota je False.
DeleteFolder
Táto metóda odstráni zadaný priečinok a jeho obsah.
Syntax je:
DeleteFolder priečinokpec, [ sila ]
| 1234 | Podradené priečinky na odstránenie ()Dim MyFSO ako nový FileSystemObjectMyFSO.DeleteFolder "C: \ temp \ MyDestination"Koniec pod |
Tento kód odstráni priečinok „MyDestination“ a všetky súbory v tomto priečinku. Priečinok „temp“ zostane.
Parameter Force je voliteľný a je nastavený na hodnotu True alebo False. Ak je nastavená na hodnotu True, priečinky iba na čítanie budú odstránené. Predvolená hodnota je False.
V poslednej časti cesty je možné použiť zástupné znaky. Ak priečinok nenájdete, zobrazí sa chyba.
Táto metóda sa zastaví pri prvej chybe, s ktorou sa stretne. Neexistujú žiadne akcie, ktoré boli úspešné, kým sa chyba vyskytne.
Programovanie VBA | Generátor kódu pracuje za vás!
Ďalšie metódy v FSO
OpenAsTextStream.
Táto metóda otvára určený súbor ako objekt Textového toku a umožňuje ho čítať alebo doň zapisovať. Výhodou tejto metódy je, že dokáže otvoriť ľubovoľný typ súboru a extrahovať dostupný text.
Syntax je:
OpenAsTextStream ([ iomode, [ formát ]])
Parameter „iomode“ umožňuje iba čítanie (1), čítanie/zápis (2) a pripájanie (8). Parameter čítanie/zápis prepíše súbor.
Parameter „formát“ je nastavený na -2 pre predvolený systém, -1 pre otvorenie súboru ako Unicode a 0 pre otvorenie súboru ako ASCII (americký štandardný kód pre výmenu informácií).
| 1234567891011 | Sub TextStream ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFile ("C: \ temp \ myfile.txt")Nastaviť ts = f.OpenAsTextStream (2)ts. Napíšte „Môj nový text“ts.ZavrieťNastaviť ts = f.OpenAsTextStream (1)s = ts.ReadLineMsgBox sts.ZavrieťKoniec pod |
Tento kód získa existujúci textový súbor a vytvorí ho ako objekt pomocou metódy „GetFile“. Potom otvorí textový prúd ako čítanie / zápis (2) a napíše riadok textu. Súbor sa potom zatvorí a znova otvorí ako prečítané (1) a načíta sa z neho riadok, ktorý sa potom zobrazí ako okno so správou.
Pamätajte si, že riadok na čítanie musí byť umiestnený v premennej, než sa môže zobraziť v okne správy.
BuildPath
Táto metóda pripojí názov priečinka alebo súboru na koniec existujúcej cesty k priečinku. Tým sa vytvorí iba textový reťazec a v skutočnosti sa nevytvorí nový priečinok.
Syntax je:
BuildPath (cesta, názov)
| 12345 | Sub BuildPth ()Dim MyFSO ako nový FileSystemObjectnp = MyFSO.BuildPath ("C: \ temp", "ANewFolder")MsgBox npKoniec pod |
Zobrazí sa „C: \ temp \ ANewFolder“. Ak však chcete tento priečinok skutočne používať, musíte použiť metódu „CreateFolder“.
OpenTextFile
Táto metóda umožňuje otváranie a čítanie súborov z nich alebo do nich zapisovať podľa nastavených parametrov. Funguje to podobne ako metóda OpenAsTextStream.
Syntax je:
OpenTextFile (názov súboru, [ iomode, [ vytvoriť, [ formát ]]])
Parameter „iomode“ umožňuje ForReading, ForWriting a ForAppending. Parameter ForWriting prepíše súbor.
Parameter „create“ je booleovská hodnota. True znamená, že ak zadaný názov súboru neexistuje, vytvorí sa nový súbor. False znamená, že ak sa nenájde názov súboru, nevytvorí sa žiadny súbor. Predvolená hodnota je False.
Parameter „formát“ je možné nastaviť na TristateFalse, TristateMixed, TristateTrue a TristateUseDefault v závislosti od toho, či je súbor ASCII alebo Unicode.
| 1234567 | Sub OpenTxtFile ()Dim MyFSO ako nový FileSystemObjectNastaviť ts = MyFSO.OpenTextFile ("C: \ temp \ myfile.txt", ForReading, False, TristateUseDefault)s = ts.ReadLineMsgBox sts.ZavrieťKoniec pod |
Tento kód načíta riadok z textového súboru „myfile.txt“.
Výhodou metódy OpenTextFile oproti OpenAsTextStreamMethod je, že má rozbaľovacie zoznamy pre parametre, ktoré sú zmysluplnejšie než pokúšať sa zapamätať si príslušné číselné hodnoty pre rôzne možnosti parametrov.
Programovanie VBA | Generátor kódu pracuje za vás!
Vlastnosti FSO
Pohony
Táto vlastnosť uchováva zbierku dostupných diskov vo vašom počítači.
| 1234567 | Sub Drv ()Dim MyFSO ako nový FileSystemObject, d ako DriveNastaviť Dr = MyFSO.DrivesZa každého d In Dr.MsgBox d.DriveLetterDKoniec pod |
Tento kód vráti každé písmeno jednotky dostupné vo vašom počítači.
názov
Tým sa vráti názov zadaného súboru alebo priečinka.
| 123456789 | Podnadpis Príklad ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Názov & "na Disku" & UCase (f.Drive) & vbCrLfi = i & "Vytvorené:" & f.DateCreated & vbCrLfi = i & "Posledný prístup:" & f.DateLastAccessed & vbCrLfi = i & "Posledná úprava:" & f.DateLastModifiedMsgBox iKoniec pod |
Tento kód poskytne názov súboru a informácie o ňom pomocou vlastnosti Drive.
Cesta
Vlastnosť Path oddelí cestu od špecifikácie súboru.
| 123456789 | Vedľajšia cesta Príklad ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFile ("C: \ temp \ myfile.txt")i = f.Path & f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Vytvorené:" & f.DateCreated & vbCrLfi = i & "Posledný prístup:" & f.DateLastAccessed & vbCrLfi = i & "Posledná úprava:" & f.DateLastModifiedMsgBox iKoniec pod |
Tento príklad funguje rovnako ako príklad Name, ibaže teraz poskytuje cestu k súboru.
Programovanie VBA | Generátor kódu pracuje za vás!
Veľkosť
Vlastnosť Size udáva veľkosť priečinka alebo súboru.
| 12345 | Sub FSize ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. VeľkosťKoniec pod |
Tento kód uvedený vyššie vráti veľkosť priečinka „C: \ temp \“.
| 12345 | Sub FSize ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFile ("C: \ temp \ myfile.txt")MsgBox f. VeľkosťKoniec pod |
Tento kód uvedený vyššie vráti veľkosť súboru „myfile.txt“.
Napíšte
Vlastnosť type vráti text pre typ súboru alebo priečinka.
| 12345 | Podtyp typu F ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. TypKoniec pod |
Tento kód vyššie vráti text „Priečinok súborov“.
| 12345 | Podtyp typu F ()Dim MyFSO ako nový FileSystemObjectNastaviť f = MyFSO.GetFile ("C: \ temp \ myfile.txt")MsgBox f. TypKoniec pod |
Tento kód vyššie vráti text „Textový dokument“.
V každom prípade si všimnite použitie súborov „GetFolder“ a „GetFile“.
