A FileSystemObject (FSO) használata az Excel VBA -ban
A FileSystemObject (FSO) hozzáférést biztosít a számítógép fájlrendszeréhez való hozzáférés számos funkciójához. Ezzel az objektummal könnyen elérheti a fájlokat, mappákat és meghajtókat, valamint olvashat és írhat fájlokba.
Sok FSO -funkciót Ön írhat a hagyományos VBA -ban, de több kódolást igényel, és a beérkező fejlesztőknek nehezebb fenntartani és megérteni. Az FSO egy jól bevált API (Application Programming Interface), és megbízhatóbb, mint a saját kódja. Könnyen használható, kész és elérhető.
Az FSO a számítógépen található nemzetközi szabványoknak és beállításoknak megfelelően működik. Ha globálisan terjeszti Excel -alkalmazását, akkor az FSO használata gondoskodik az országok közötti beállítások közötti különbségekről, amit a saját kódjának nehézségei okoznának.
Az FSO lehetővé teszi, hogy szinte mindent elvégezzen a VBA kódban, amit a Windows File Explorerben is megtehet. Teljes hozzáférést biztosít a Windows fájlrendszerhez.
FileSystemObject létrehozása
A FileSytemObject nem része az Excel VBA -nak. Az FSO használatával létrehozhat egy objektumot (késői kötés) a VBA -ban:
| 123 | Sub CreateFSO ()Set MyFSO = CreateObject ("Scripting.FileSystemObject")End Sub |
Alternatív megoldásként hozzáadhat egy hivatkozást a VBA -hoz az FSO könyvtárhoz. Ezt korai kötésnek nevezik, és gyorsabb, mint a késői kötés, mivel az objektumot nem kell létrehozni a kód futtatásakor.
Hivatkozás hozzáadásához nyomja meg az Alt-F11 billentyűt a Visual Basic Editor (VBE) megnyitásához, majd használja a VBE menü „Eszközök | Referenciák” parancsát. Ekkor megjelenik egy felugró ablak, amelyben kiválaszthatja a megfelelő referenciát (lásd alább).
Görgessen lefelé az elérhető hivatkozások listáján, amíg meg nem jelenik a „Microsoft Scripting Runtime”. Jelölje be a négyzetet, majd kattintson az OK gombra, és a könyvtár most az alkalmazás része.
A DLL könyvtárfájl helye: C: \ Windows \ SysWOW64 \ scrrun.dll
Ha az alkalmazást más kollégáknak vagy helyszíneknek terjeszti, elengedhetetlen, hogy a fájl a megfelelő helyen legyen a számítógépükön, különben a kód hibát fog okozni.
Érdemes hibacsapdát tenni a „WorkbookOpen” eseményre a Dir paranccsal, hogy ellenőrizze a fájl létezését. Ha hiányzik, adjon figyelmeztető üzenetet, és zárja be az Excel fájlt.
Miután hozzáadta a hivatkozást, a következő kóddal hozhatja létre az FSO -t:
| 123 | Sub TestFSO ()A MyFSO halványítása új fájlrendszer -objektumkéntEnd Sub |
A cikk összes példája ezt a módszert használja az FSO létrehozásához.
Az FSO számos módszert és tulajdonságot kínál. Ezeket itt szakaszokra osztjuk aszerint, hogy mit tehetnek.
A „létező” módszerek használata
FSO módszerrel ellenőrizheti, hogy létezik -e meghajtó, mappa vagy fájl. Ezek a módszerek könnyen használhatók, és csak egy paramétert igényelnek.
| 123456 | RészellenőrzésTávolság ()A MyFSO halványítása új fájlrendszer -objektumkéntMsgBox MyFSO.DriveExists ("C:")MsgBox MyFSO.FolderExists ("C: \ temp")MsgBox MyFSO.FileExists ("C: \ temp \ testfile.txt")End Sub |
Ezek az állítások mindegyike „igaz” értéket ad vissza, feltéve, hogy a számítógépen van egy C: meghajtó, egy „Temp” nevű mappa és egy fájl a „testfile.txt” nevű Temp mappában.
A paraméterek szöveges karakterláncai nem különböztetik meg a kis- és nagybetűket. Ezen módszerek egyikében sem használhat helyettesítő karaktereket.
Továbbá nem használhat URL -eket (Uniform Resource Locators) egy mappa vagy fájl helyének leírására. Az FSO tisztán a Windows operációs rendszeren és a fájlrendszeren működik. Külső kiszolgáló esetén először ehhez kell leképezni egy meghajtót, majd magát a meghajtóútvonalat használni.
A „Get” módszerek használata
Az FSO számos módszerrel szerez információkat a fájlról és az elérési útról, akár felosztja az elérési utat és a fájlt, akár lekérheti a fájl vagy mappa adatait, például a létrehozás dátumát vagy a módosítás dátumát.
GetAbsolutePathname
Ez teljes útvonalat biztosít a megadott meghajtó gyökerétől.
A szintaxis:
GetAbsolutePathName (pathspec)
| 12345 | Abszolút útvonal ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "c:…"MsgBox MyFSO.GetAbsolutePathName (Pth)End Sub |
Ez egy "C: \ Users \ Richard \ Documents" karakterláncot ad vissza. Ennek az az oka, hogy az elérési utat C :ként adták meg, amelyet három pont követ. Minden pont a mappa szerkezetének következő szintjét jelzi.
GetBaseName
Ez egy megadott fájl vagy mappa nevét adja vissza.
A szintaxis:
GetBaseName(pálya)
| 12345 | Sub BaseName ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetBaseName (Pth)End Sub |
Ez a kód visszaadja a „tesztfájlt”. A módszer az útvonalnév utolsó szakaszát adja vissza. Ha fájl, akkor nem adja vissza a fájl utótagját.
Ha az útvonal nem található, akkor egy üres karakterlánc kerül visszaadásra.
GetDrive
Ez lehetővé teszi, hogy kódot használjon a meghajtó adatainak eléréséhez a megadott meghajtó betűje alapján.
A szintaxis:
GetDrive (meghajtó specifikáció)
| 123456 | Sub DriveInfo ()Dim MyFSO mint új FileSystemObject, Pth mint String, Dr As DrivePth = "C:"Állítsa be a Dr = MyFSO.GetDrive (Pth)MsgBox Dr.FreeSpaceEnd Sub |
Ez a módszer egy meghajtóobjektumot ad vissza a megadott meghajtó alapján. Ezzel az objektummal elérheti a meghajtóval kapcsolatos információkat, például a rendelkezésre álló szabad helyet.
Unod már a VBA kódpéldák keresését? Próbálja ki az AutoMacro -t!
GetDriveName
Ez a módszer elválasztja a meghajtó nevét az elérési út / fájlnév karakterláncától.
A szintaxis:
GetDriveName (pálya)
| 12345 | Sub DriveName ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetDriveName (Pth)End Sub |
Ez visszaadja a „C:” -t
GetExtensionName
Ez visszaadja a fájl utótagját a megadott elérési úton.
A szintaxis:
GetExtensionName (pálya)
| 12345 | Albővítménynév ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetExtensionName (Pth)End Sub |
Ez visszaadja a „txt” -t.
Ha nincs megadva fájl, akkor egy üres karakterlánc kerül visszaadásra.
GetFile
Ez a módszer egy fájlobjektumot ad vissza, amely különböző információkat tartalmaz magáról a fájlról.
A szintaxis:
GetFile (fájl specifikáció)
| 123456 | Sub FileInfo ()Dim MyFSO mint új FileSystemObject, Pth mint karakterlánc, Fn fájlkéntPth = "C: \ temp \ testfile.txt"Állítsa be az Fn = MyFSO.GetFile (Pth)MsgBox Fn.DateCreatedEnd Sub |
Ez visszaadja a megadott fájl létrehozásának dátumát és idejét. Ha nincs megadva fájl vagy a fájl nem létezik, akkor a „fájl nem található” hibaüzenet jelenik meg.
| 12345 | Alfájlnév ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "C: \ temp \ testfile.txt"MsgBox MyFSO.GetFileName (Pth)End Sub |
Ez visszaadja a „testfile.txt” fájlt.
GetFolder
Ez létrehoz egy mappaobjektumot az alapmappához a megadott elérési úton. Az elérési út csak mappaneveket tartalmazhat. Fájlneveket nem szabad megadni, különben hiba lép fel.
A szintaxis:
GetFolder (mappa specifikáció)
| 123456 | Sub FolderInfo ()Dim MyFSO mint új FileSystemObject, Pth mint karakterlánc, Fo mint mappaPth = "C: \ temp"Fo = MyFSO beállítása. GetFolder (Pth)MsgBox Fo.DateCreatedEnd Sub |
A mappaobjektum különféle információkat tartalmaz, amelyek elérhetők. Ebben az esetben a mappa létrehozásának dátumát adja vissza.
Ezt a módszert is használhatja egy adott mappában található összes fájlnév lekérésére:
| 12345678 | Alfájlnevek ()Dim MyFSO mint új FileSystemObject, Pth mint karakterlánc, Fo mint mappa, Fn fájlkéntPth = "C: \ temp"Fo = MyFSO beállítása. GetFolder (Pth)Minden Fn In Fo.Files fájlhozMsgBox Fn. NévKövetkező FnEnd Sub |
Ez a kód a „Temp” mappában fog megismétlődni, és megjeleníti az összes talált fájlnevet.
GetParentFolderName
Ez a módszer visszaadja a mappa nevét a mappahierarchia következő szintjén.
A szintaxis:
GetParentFolderName (pálya)
| 12345 | Almappanév ()Dim MyFSO mint új FileSystemObject, Pth mint karakterlánc, Fo mint mappaPth = "C: \ richard"MsgBox MyFSO.GetParentFolderName (Pth)End Sub |
Ez visszaadja a „Felhasználókat”, mivel ez a „richard” mappa „szülője”.
VBA programozás | A kódgenerátor működik az Ön számára!
A „Létrehozás” módszerek használata
Az FSO segítségével új mappát és elérési utat hozhat létre, és szöveges fájlt hozhat létre.
Mappa létrehozás
Megadhatja a létrehozandó új mappa útvonal nevét. Ennek az a veszélye, hogy ha a mappa már létezik, akkor hiba lép fel. A „FolderExists” módszerrel biztosíthatja, hogy ez ne következzen be.
A szintaxis:
Mappa létrehozás(mappa neve)
| 1234567 | Sub CreateNewFolder ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "C: \ temp \ MyFolder"Ha MyFSO.FolderExists (Pth) = Hamis AkkorMyFSO.CreateFolder (Pth)Vége HaEnd Sub |
Ez a kód új mappát hoz létre a „MyFolder” néven a meglévő „C: \ temp” elérési út alatt.
CreateTextFile
Ezzel a módszerrel egyszerű szöveges fájlokat hozhat létre, és közvetlenül írhat bele.
A szintaxis:
CreateTextFile (fájl név, [ átír, [ unicode ]])
| 1234567 | Sub CreateTextFile ()Dim MyFSO mint új FileSystemObject, Pth mint karakterláncPth = "C: \ temp \ Myfile.txt"Állítsa be az Fn = MyFSO.CreateTextFile fájlt (Pth, True)Fn.Write "Saját szöveg hozzáadása ide" & vbLf & "Ez a második sor"Fn. BezárásEnd Sub |
Ez a kód létrehoz egy „Myfile.txt” nevű szövegfájlt a „C:” meghajtó „Temp” mappájában, majd két sornyi szöveget ír hozzá.
Vegye figyelembe, hogy egy sor előtolás karakter össze van kapcsolva az írandó karakterlánccal.
Ha az elérési út nem létezik, akkor hiba lép fel. A „FolderExists” módszerrel ellenőrizheti ezt a fájl létrehozása előtt.
Van egy opcionális paraméter, amely szükség esetén felülírja a meglévő fájlt - ez lehet igaz vagy hamis. Az alapértelmezett True.
A „Másolás” módszerek használata
Ezekkel a módszerekkel másolhat egy fájlt vagy mappát egy másik helyre.
VBA programozás | A kódgenerátor működik az Ön számára!
Fájl másolás, fájl másolása
Ez a módszer másol egy fájlt az egyik mappából a másikba. Ne feledje, hogy a másolás meghiúsul, ha a célhely csak olvasható attribútummal rendelkezik.
A szintaxis:
Fájl másolás, fájl másolása forrás, rendeltetési hely, [ átír ]
| 1234 | Sub CopyFile ()A MyFSO halványítása új fájlrendszer -objektumkéntMyFSO.CopyFile "C: \ temp \*. Txt", "C: \ temp \ myfolder \", TrueEnd Sub |
Ez a kód másolatot készít a „C: \ temp” fájlban található összes szöveges (txt) fájlról a „C: \ temp \ myfolder \” fájlba, szükség esetén felülírva a fájlt. Az Overwrite alapértelmezett beállítása True.
Használhat csillag (*) helyettesítő karaktert a fájlnevekhez, de nem használhat kérdőjel (?) Helyettesítő karaktert egyetlen karakter megjelenítéséhez.
CopyFolder
Ezzel a módszerrel egy teljes mappát másolhat egyik helyről a másikra.
A szintaxis:
CopyFolder forrás, rendeltetési hely, [ átír ]
| 1234 | Sub CopyFolder ()A MyFSO halványítása új fájlrendszer -objektumkéntMyFSO.CopyFolder "C: \ temp \*", "C: \ users \ richard \"End Sub |
Ez a kód a „C: \ temp” alatti összes mappát és fájlt átmásolja a „C: \ users Richard” mappába. A létrehozott új mappa a „C: \ users \ richard \ myfolder” lesz, mivel a „C: \ temp” mappában volt a „myfolder”.
Ennek a módszernek a használata négy lehetséges eredményt eredményez:
- Ha a cél nem létezik, akkor a forrásmappa és tartalma másolásra kerül.
- Ha a cél már létezik, akkor hiba lép fel.
- Ha a cél egy mappa, akkor a forrásmappa és annak tartalma másolásra kerül. Hiba lép fel, ha a Felülírás False értékre van állítva, és a fájlban már van másolat a célállomáson.
- Ha a célállomás csak olvasható, akkor hiba lép fel, ha a felülírás hamis értékre van állítva.
Ez a módszer az első hibánál megáll. A hiba bekövetkezése előtt nem sikerült visszavonni a sikeres műveleteket.
A „Mozgatás” módszerek használata
Ezekkel a módszerekkel fájlokat vagy mappákat más helyekre lehet áthelyezni. Ez ugyanaz, mint az egyik helyről történő kivágás és a másik helyre való beillesztés. Vegye figyelembe, hogy ha az áthelyezni kívánt fájl nyitva van, akkor az Áthelyezés módszer hibával meghiúsul.
MoveFile
Ezt a módszert egy adott fájl másik helyre történő áthelyezésére használják. A helyettesítő karakterek megengedettek a forrás utolsó elérési összetevőjében.
A szintaxis:
MoveFile forrás, rendeltetési hely
| 1234 | Sub MoveAFile ()A MyFSO halványítása új fájlrendszer -objektumkéntMyFSO.MoveFile "C: \ temp \*", "C: \ temp \ myfolder"End Sub |
Ez a kód a „C: \ temp” fájlban található összes fájlt áthelyezi a „C: \ temp \ myfolder” mappába.
A forrás- és célmappáknak létezniük kell, mivel a célmappa nem jön létre automatikusan.
Ez a módszer az első hibánál megáll. A hiba bekövetkezése előtt nem sikerült visszavonni a sikeres műveleteket.
VBA programozás | A kódgenerátor működik az Ön számára!
MoveFolder
Ez a módszer egy adott mappát egyik helyről a másikra mozgat.
A szintaxis:
MoveFolder (forrás, rendeltetési hely)
| 1234 | Sub MoveAFolder ()A MyFSO halványítása új fájlrendszer -objektumkéntMyFSO.MoveFolder "C: \ temp \ myfolder", "C: \ temp \ mydestination"End Sub |
Ez a kód a „myfolder” mappát és tartalmát a „mydestination” mappába helyezi át. A „myfolder” ténylegesen törlődik, és a „mydestination” jön létre, a „myfolder” tartalmával együtt.
Ha a célmappa már létezik, hiba lép fel.
A „Törlés” módszerek használata
Ezeket a módszereket fájlok vagy mappák törlésére használják. Óvatosan kell használni őket, mivel nincs vissza- vagy visszavonási módszer, ha valami baj történik.
Fájl törlése
Ez törli az egyes fájlokat vagy fájlcsoportokat helyettesítő karakterek használatával.
A szintaxis:
Fájl törlése fájl specifikáció, [ Kényszerítés ]
| 1234 | Sub DeleteFiles ()A MyFSO halványítása új fájlrendszer -objektumkéntMyFSO.DeleteFile "C: \ temp \*"End Sub |
Ez a kód törli az összes fájlt a „C: \ temp” mappából
A Force paraméter opcionális, és igaz vagy hamis értékre van állítva. Ha True értékre van állítva, akkor a csak olvasható fájlok törlődnek. Az alapértelmezett False.
DeleteFolder
Ez a módszer törli a megadott mappát és annak tartalmát.
A szintaxis:
DeleteFolder mappa specifikáció, [ Kényszerítés ]
| 1234 | Sub DeleteFolders ()A MyFSO halványítása új fájlrendszer -objektumkéntMyFSO.DeleteFolder "C: \ temp \ MyDestination"End Sub |
Ez a kód törli a „MyDestination” mappát és az összes mappát. A "temp" mappa megmarad.
A Force paraméter opcionális, és igaz vagy hamis értékre van állítva. Ha True értékre van állítva, akkor a csak olvasható mappák törlődnek. Az alapértelmezett False.
A helyettesítő karakterek az útvonal utolsó összetevőjében használhatók. Ha a mappa nem található, hiba lép fel.
Ez a módszer az első hibánál megáll. A hiba bekövetkezése előtt nem sikerült visszavonni a sikeres műveleteket.
VBA programozás | A kódgenerátor működik az Ön számára!
Egyéb módszerek az FSO -ban
OpenAsTextStream.
Ez a módszer megnyit egy megadott fájlt Text Stream objektumként, és lehetővé teszi annak olvasását vagy írását. Ennek a módszernek az az előnye, hogy bármilyen fájltípust megnyithat, és kinyerheti a rendelkezésre álló szöveget.
A szintaxis:
OpenAsTextStream ([ iomode, [ formátum ]])
Az „iomode” paraméter csak olvasást (1), olvasást/írást (2) és hozzáfűzést (8) tesz lehetővé. Az olvasási/írási paraméter felülírja a fájlt.
A „formátum” paraméter értéke -2 a rendszer alapértelmezett értéke, -1 a fájl Unicode -ként történő megnyitásához, és 0 a fájl ASCII (American Standard Code for Information Interchange) megnyitásához.
| 1234567891011 | Sub TextStream ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFile fájlt ("C: \ temp \ myfile.txt")Állítsa be a ts = f.OpenAsTextStream (2)ts. Írja be az "Új szöveg" szövegetts. Zárja beÁllítsa be a ts = f.OpenAsTextStream (1)s = ts.ReadLineMsgBox sts. Zárja beEnd Sub |
Ez a kód meglévő szövegfájlt kap, és objektumként hozza létre a „GetFile” módszerrel. Ezután megnyitja a szövegfolyamot olvasás / írás módban (2), és ír egy sor szöveget. A fájlt ezután bezárják, és újra megnyitják olvasottként (1), és kiolvasnak belőle egy sort, amely üzenetüzenetként jelenik meg.
Ne feledje, hogy az olvasási sort egy változóba kell helyezni, mielőtt megjelenhetne az üzenetmezőben.
BuildPath
Ez a módszer egy mappa vagy fájl nevét fűzi a meglévő mappaútvonal végéhez. Ez csak szöveges karakterláncot hoz létre, és valójában nem hozza létre az új mappát.
A szintaxis:
BuildPath (pálya, név)
| 12345 | Sub BuildPth ()A MyFSO halványítása új fájlrendszer -objektumkéntnp = MyFSO.BuildPath ("C: \ temp", "ANewFolder")MsgBox npEnd Sub |
Ekkor megjelenik a „C: \ temp \ ANewFolder”. Ha azonban ténylegesen használni szeretné ezt a mappát, akkor a „CreateFolder” módszert kell használnia.
OpenTextFile
Ez a módszer lehetővé teszi a fájlok megnyitását, olvasását vagy írását a megadott paraméterek szerint. Hasonló módon működik, mint az OpenAsTextStream módszer.
A szintaxis:
OpenTextFile (fájl név, [ iomode, [ teremt, [ formátum ]]])
Az „iomode” paraméter lehetővé teszi a ForReading, ForWriting és ForAppending használatát. A ForWriting paraméter felülírja a fájlt.
A „create” paraméter egy logikai érték. Az igaz azt jelenti, hogy új fájl jön létre, ha a megadott fájlnév nem létezik. A hamis azt jelenti, hogy nem jön létre fájl, ha a fájlnév nem található. Az alapértelmezett False.
A „format” paraméter beállítható TristateFalse, TristateMixed, TristateTrue és TristateUseDefault értékre attól függően, hogy a fájl ASCII vagy Unicode.
| 1234567 | OpenTxtFile ()A MyFSO halványítása új fájlrendszer -objektumkéntSet ts = MyFSO.OpenTextFile ("C: \ temp \ myfile.txt", ForReading, False, TristateUseDefault)s = ts.ReadLineMsgBox sts. Zárja beEnd Sub |
Ez a kód egy sort olvas ki a „myfile.txt” szövegfájlból.
Az OpenTextFile módszer előnye az OpenAsTextStreamMethoddal szemben az, hogy a paraméterekhez legördülő menüket tartalmaz, amelyek sokkal értelmesebbek, mint a különböző paraméterbeállítások megfelelő numerikus értékeinek megjegyzése.
VBA programozás | A kódgenerátor működik az Ön számára!
Az FSO tulajdonságai
Hajtások
Ez a tulajdonság a számítógépen elérhető meghajtók gyűjteményét tárolja.
| 1234567 | Sub Drv ()A MyFSO halványítása új fájlrendszer -objektumként, d meghajtókéntÁllítsa be a Dr = MyFSO.Drives beállítástMinden egyes d In DrMsgBox d.DriveLetterKövetkező dEnd Sub |
Ez a kód visszaadja a számítógépen elérhető meghajtó betűit.
Név
Ez egy megadott fájl vagy mappa nevét adja vissza.
| 123456789 | AlnévPélda ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFile fájlt ("C: \ temp \ myfile.txt")i = f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Létrehozva:" & f.DateCreated & vbCrLfi = i & "Utoljára hozzáférve:" & f.DateLastAccessed & vbCrLfi = i & "Utolsó módosítás:" & f.DateLastModifiedMsgBox iEnd Sub |
Ez a kód megadja a fájl nevét és a Drive tulajdonsággal kapcsolatos információkat.
Pálya
A Path tulajdonság elválasztja az elérési utat a fájl specifikációjától.
| 123456789 | AlútvonalPélda ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFile fájlt ("C: \ temp \ myfile.txt")i = f.Path & f.Name & "on Drive" & UCase (f.Drive) & vbCrLfi = i & "Létrehozva:" & f.DateCreated & vbCrLfi = i & "Utoljára hozzáférve:" & f.DateLastAccessed & vbCrLfi = i & "Utolsó módosítás:" & f.DateLastModifiedMsgBox iEnd Sub |
Ez a példa ugyanúgy működik, mint a Név példa, azzal a különbséggel, hogy most megadja a fájl elérési útját.
VBA programozás | A kódgenerátor működik az Ön számára!
Méret
A Méret tulajdonság megadja a mappa vagy a fájl méretét.
| 12345 | FS méret ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. MéretEnd Sub |
Ez a fenti kód visszaadja a „C: \ temp” mappa méretét.
| 12345 | Sub FSize ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFile fájlt ("C: \ temp \ myfile.txt")MsgBox f. MéretEnd Sub |
Ez a fenti kód visszaadja a „myfile.txt” fájl méretét.
típus
A type tulajdonság a fájl- vagy mappatípus szövegét adja vissza.
| 12345 | FType ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFolder ("C: \ temp \")MsgBox f. TípusEnd Sub |
Ez a fenti kód a „Fájl mappa” szöveget adja vissza.
| 12345 | FType ()A MyFSO halványítása új fájlrendszer -objektumkéntÁllítsa be az f = MyFSO.GetFile fájlt ("C: \ temp \ myfile.txt")MsgBox f. TípusEnd Sub |
Ez a fenti kód a „Szöveges dokumentum” szöveget adja vissza.
Vegye figyelembe a „GetFolder” és a „GetFile” használatát minden példában.
