Het FileSystemObject (FSO) gebruiken in Excel VBA
Het FileSystemObject (FSO) geeft u toegang tot een hele reeks functies voor toegang tot het bestandssysteem van uw computer. Met dit object hebt u eenvoudig toegang tot bestanden, mappen en stations, en kunt u ook bestanden lezen en schrijven.
Veel van de FSO-functies kunnen door u in traditionele VBA worden geschreven, maar vereisen meer codering en zijn moeilijker te onderhouden en te begrijpen voor een inkomende ontwikkelaar. De FSO is een beproefde API (Application Programming Interface) en betrouwbaarder dan uw eigen code. Het is gemakkelijk te gebruiken en klaar en beschikbaar.
De FSO werkt volgens internationale standaarden en instellingen die u op uw computer heeft. Als u uw Excel-toepassing wereldwijd distribueert, zorgt het gebruik van de FSO voor eventuele verschillen in instellingen tussen landen, waar uw eigen code moeite mee zou hebben.
Met de FSO kunt u bijna alles in VBA-code doen die u in Windows Verkenner zou kunnen doen. Het geeft u volledige toegang tot het Windows-bestandssysteem.
Een bestandssysteemobject maken
Het FileSytemObject maakt geen deel uit van Excel VBA. U kunt de FSO gebruiken door een object (late binding) in VBA te maken:
| 123 | Sub CreateFSO()Stel MyFSO = CreateObject ("Scripting.FileSystemObject") inEinde sub |
Als alternatief kunt u een verwijzing toevoegen aan VBA voor de FSO-bibliotheek. Dit wordt vroege binding genoemd en is sneller dan late binding, omdat het object niet hoeft te worden gemaakt wanneer uw code wordt uitgevoerd.
Om een referentie toe te voegen, moet u op Alt-F11 drukken om de Visual Basic Editor (VBE) te openen en vervolgens 'Tools|Referenties' in het VBE-menu gebruiken. Er verschijnt een pop-upvenster waarin u de relevante referentie kunt selecteren (zie hieronder).
Blader door de lijst met beschikbare referenties totdat u 'Microsoft Scripting Runtime' ziet. Vink het vakje aan en klik op OK, en de bibliotheek maakt nu deel uit van uw applicatie.
De locatie van het DLL-bibliotheekbestand is C:\Windows\SysWOW64\scrrun.dll
Als u uw sollicitatie naar andere collega's of locaties verspreidt, is het essentieel dat zij dit bestand op de juiste locatie op hun computer hebben staan, anders geeft uw code een fout.
Het is de moeite waard om een foutenval op de gebeurtenis 'WorkbookOpen' te plaatsen met behulp van de opdracht Dir om te controleren of het bestand bestaat. Als deze afwezig is, geef dan een waarschuwingsbericht en sluit het Excel-bestand.
Nadat de referentie is toegevoegd, kunt u de volgende code gebruiken om de FSO te maken:
| 123 | SubtestFSO()Dim MyFSO als nieuw bestandssysteemobjectEinde sub |
Alle voorbeelden in dit artikel gebruiken deze methode om de FSO te maken.
De FSO heeft vele methoden en eigenschappen beschikbaar. Deze zijn hier onderverdeeld in secties op basis van wat ze kunnen doen.
De 'bestaat'-methoden gebruiken
U kunt een FSO-methode gebruiken om te controleren of een schijf, een map of een bestand bestaat. Deze methoden zijn gemakkelijk te gebruiken en vereisen slechts één parameter.
| 123456 | Sub CheckBestaan()Dim MyFSO als nieuw bestandssysteemobjectMsgBox MyFSO.DriveExists("C:")MsgBox MyFSO.FolderExists("C:\temp\")MsgBox MyFSO.FileExists("C:\temp\testfile.txt")Einde sub |
Deze verklaringen zullen allemaal 'True' retourneren, ervan uitgaande dat uw computer een C:-schijf heeft, een map erop met de naam 'Temp' en een bestand in de map Temp met de naam 'testfile.txt'
De tekenreeksen in de parameters zijn niet hoofdlettergevoelig. U kunt in geen van deze methoden jokertekens gebruiken.
U kunt ook geen URL's (Uniform Resource Locators) gebruiken om een map of bestandslocatie te beschrijven. De FSO werkt puur op het Windows-besturingssysteem en het bestandssysteem daarop. Voor een externe serverlocatie moet u hier eerst een schijf aan toewijzen en vervolgens het schijfpad zelf gebruiken.
De 'Get'-methoden gebruiken
De FSO heeft tal van methoden om informatie over het bestand en het pad te krijgen, hetzij door het pad en het bestand te splitsen, of om bestands- of mapinformatie op te halen, zoals de aanmaakdatum of de wijzigingsdatum.
GetAbsolutePathname
Dit zorgt voor een volledig pad vanaf de hoofdmap van het opgegeven station.
Syntaxis is:
GetAbsolutePathName (padspecificatie)
| 12345 | Absoluut subpad()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "c:… "MsgBox MyFSO.GetAbsolutePathName(Pth)Einde sub |
Dit retourneert een string 'C:\Users\Richard\Documents'. Dit komt omdat het pad is gespecificeerd als C: gevolgd door drie punten. Elke stip staat voor een volgend niveau binnen de mappenstructuur.
GetBaseName
Dit retourneert de naam van een opgegeven bestand of map.
Syntaxis is:
GetBaseName(pad)
| 12345 | Subbasisnaam()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "C:\temp\testbestand.txt"MsgBox MyFSO.GetBaseName(Pth)Einde sub |
Deze code retourneert 'testfile'. De methode retourneert de laatste sectie in de padnaam. Als het een bestand is, wordt het achtervoegsel van het bestand niet geretourneerd.
Als het pad niet kan worden gevonden, wordt een lege tekenreeks geretourneerd.
GetDrive
Hiermee kunt u code gebruiken om toegang te krijgen tot stationsinformatie, op basis van de opgegeven stationsletter.
Syntaxis is:
GetDrive (aandrijvingsspecificatie)
| 123456 | Sub DriveInfo()Dim MyFSO As New FileSystemObject, Pth As String, Dr As DrivePth = "C:"Stel Dr = MyFSO.GetDrive (Pth) inMsgBox Dr.FreeSpaceEinde sub |
Deze methode retourneert een stationsobject op basis van het opgegeven station. U kunt dit object gebruiken om toegang te krijgen tot informatie over de schijf, zoals beschikbare vrije ruimte.
Moe van het zoeken naar voorbeelden van VBA-codes? Probeer AutoMacro!
GetDriveName
Deze methode scheidt de stationsnaam van een pad / bestandsnaamreeks.
Syntaxis is:
GetDriveName (pad)
| 12345 | Substationnaam()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "C:\temp\testbestand.txt"MsgBox MyFSO.GetDriveName(Pth)Einde sub |
Hiermee wordt 'C:' geretourneerd
GetExtensionName
Dit retourneert het bestandsachtervoegsel in het opgegeven pad.
Syntaxis is:
GetExtensionName (pad)
| 12345 | Subextensienaam()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "C:\temp\testbestand.txt"MsgBox MyFSO.GetExtensionName (Pth)Einde sub |
Dit zal 'txt' retourneren.
Als er geen bestand is opgegeven, wordt een lege tekenreeks geretourneerd.
GetFile
Deze methode retourneert een bestandsobject, dat verschillende informatie over het bestand zelf bevat.
Syntaxis is:
GetFile (bestandsspecificatie)
| 123456 | Subbestandsinfo()Dim MyFSO als nieuw bestandssysteemobject, Pth als string, Fn als bestandPth = "C:\temp\testbestand.txt"Stel Fn = MyFSO.GetFile(Pth) inMsgBox Fn.DateCreatedEinde sub |
Dit retourneert de datum en tijd waarop het opgegeven bestand is gemaakt. Als er geen bestand is opgegeven of het bestand niet bestaat, krijgt u de foutmelding 'bestand niet gevonden'.
| 12345 | Subbestandsnaam()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "C:\temp\testbestand.txt"MsgBox MyFSO.GetFileName(Pth)Einde sub |
Dit retourneert 'testfile.txt'.
Map ophalen
Hiermee wordt een mapobject gemaakt voor de basismap in het opgegeven pad. Het pad mag alleen mapnamen bevatten. Er mogen geen bestandsnamen worden opgenomen, anders treedt er een fout op.
Syntaxis is:
Map ophalen (mapspecificatie)
| 123456 | SubmapInfo()Dim MyFSO As New FileSystemObject, Pth As String, Fo As FolderPth = "C:\temp"Stel Fo = MyFSO.GetFolder(Pth) inMsgBox Fo.DateCreatedEinde sub |
Het mapobject bevat verschillende informatie die toegankelijk is. In dit geval wordt de datum geretourneerd waarop de map is gemaakt.
U kunt deze methode ook gebruiken om alle bestandsnamen in een bepaalde map op te halen:
| 12345678 | Subbestandsnamen()Dim MyFSO As New FileSystemObject, Pth As String, Fo As Folder, Fn As FilePth = "C:\temp"Stel Fo = MyFSO.GetFolder(Pth) inVoor elke Fn In Fo.FilesMsgBox Fn.NaamVolgende FnEinde sub |
Deze code gaat door de map 'Temp' en geeft elke gevonden bestandsnaam weer.
GetParentFolderName
Deze methode retourneert de mapnaam op het volgende niveau hoger in de maphiërarchie.
Syntaxis is:
GetParentFolderName (pad)
| 12345 | Submapnaam()Dim MyFSO As New FileSystemObject, Pth As String, Fo As FolderPth = "C:\gebruikers\richard"MsgBox MyFSO.GetParentFolderName (Pth)Einde sub |
Hiermee wordt 'Gebruikers' geretourneerd omdat dit de 'ouder' is voor de map 'richard'.
VBA-programmering | Code Generator werkt voor u!
De 'Create'-methoden gebruiken
Met de FSO kunt u een nieuwe map en pad maken en een tekstbestand maken.
Map aanmaken
U kunt een nieuwe mappadnaam opgeven die moet worden gemaakt. Een gevaar hiervan is dat als de map al bestaat, er een fout optreedt. U kunt de methode 'FolderExists' gebruiken om ervoor te zorgen dat dit niet gebeurt.
Syntaxis is:
Map aanmaken(naam van de map)
| 1234567 | Sub MaakNieuweFolder()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "C:\temp\Mijn map"Als MyFSO.FolderExists(Pth) = False DanMyFSO.CreateFolder (Pth)Stop alsEinde sub |
Deze code maakt een nieuwe map aan met de naam 'MyFolder' onder het bestaande pad 'C:\temp'.
Tekstbestand maken
Met deze methode kunt u een eenvoudig tekstbestand maken en er rechtstreeks in schrijven.
Syntaxis is:
Tekstbestand maken (bestandsnaam, [ overschrijven, [ unicode ]])
| 1234567 | Sub CreateTextFile()Dim MyFSO als nieuw bestandssysteemobject, Pth als stringPth = "C:\temp\Mijnbestand.txt"Stel Fn = MyFSO.CreateTextFile(Pth,True) inFn.Write "Voeg hier mijn eigen tekst toe" & vbLf & "Dit is de tweede regel"Fn.SluitenEinde sub |
Deze code maakt een tekstbestand met de naam 'Mijnbestand.txt' in de map 'Temp' van de 'C:'-schijf en schrijft er vervolgens twee regels tekst naar.
Merk op dat een regelinvoerteken wordt aaneengeschakeld in de tekenreeks die wordt geschreven.
Als het pad waarnaar u schrijft niet bestaat, treedt er een fout op. U kunt de methode 'FolderExists' gebruiken om dit te controleren voordat u het bestand maakt.
Er is een optionele parameter om het bestaande bestand indien nodig te overschrijven - dit kan True of False zijn. De standaardwaarde is Waar.
De 'Kopieer'-methoden gebruiken
U kunt deze methoden gebruiken om een bestand of een map naar een andere locatie te kopiëren.
VBA-programmering | Code Generator werkt voor u!
Kopieer bestand
Deze methode kopieert een bestand van de ene maplocatie naar de andere. Houd er rekening mee dat het kopiëren mislukt als de bestemmingslocatie het kenmerk alleen-lezen heeft.
Syntaxis is:
Kopieer bestand bron, bestemming, [ overschrijven ]
| 1234 | Sub CopyFile()Dim MyFSO als nieuw bestandssysteemobjectMyFSO.CopyFile "C:\temp\*.txt", "C:\temp\mijnmap\", TrueEinde sub |
Deze code maakt een kopie van alle tekst (txt) bestanden op ‘C:\temp’ in ‘C:\temp\myfolder\’, waarbij het bestand waar nodig wordt overschreven. De standaardinstelling voor Overschrijven is True.
U kunt een jokerteken met een asterisk (*) gebruiken voor de bestandsnamen, maar u kunt geen jokerteken met vraagteken (?) gebruiken om afzonderlijke tekens weer te geven.
Kopieer map
U kunt deze methode gebruiken om een hele map van de ene naar de andere locatie te kopiëren.
Syntaxis is:
Kopieer map bron, bestemming, [ overschrijven ]
| 1234 | Sub CopyFolder()Dim MyFSO als nieuw bestandssysteemobjectMyFSO.CopyFolder "C:\temp\*", "C:\users\richard\"Einde sub |
Deze code kopieert alle mappen en bestanden onder 'C:\temp' naar 'C:\users\richard'. De nieuwe map die wordt gemaakt, is 'C:\users\richard\myfolder' omdat 'C:\temp' een map had met de naam 'myfolder'.
Er zijn vier mogelijke uitkomsten bij het gebruik van deze methode:
- Als de bestemming niet bestaat, worden de bronmap en de inhoud gekopieerd.
- Als de bestemming al bestaat, treedt er een fout op.
- Als de bestemming een map is, worden de bronmap en de inhoud ervan gekopieerd. Er treedt een fout op als Overschrijven is ingesteld op False en er al een kopie van een bestand in de bestemming is.
- Als de bestemming is ingesteld op alleen-lezen, treedt er een fout op als overschrijven is ingesteld op onwaar.
Deze methode stopt bij de eerste fout die wordt aangetroffen. Er is geen terugdraaiing van acties die zijn geslaagd voordat de fout is opgetreden.
De 'Verplaats'-methoden gebruiken
Deze methoden kunnen worden gebruikt om bestanden of mappen naar andere locaties te verplaatsen. Dit is hetzelfde als knippen van de ene locatie en plakken op een andere locatie. Merk op dat als het te verplaatsen bestand open is, de Move-methode zal mislukken met een fout.
VerplaatsBestand
Deze methode wordt gebruikt om een specifiek bestand naar een andere locatie te verplaatsen. Jokertekens zijn toegestaan in de laatste padcomponent van de bron.
Syntaxis is:
VerplaatsBestand bron, bestemming
| 1234 | Sub MoveAFile()Dim MyFSO als nieuw bestandssysteemobjectMyFSO.MoveFile "C:\temp\*", "C:\temp\mijnmap"Einde sub |
Deze code verplaatst alle bestanden die zijn gevonden op 'C:\temp' naar 'C:\temp\myfolder'.
De bron- en doelmappen moeten bestaan, aangezien de doelmap niet automatisch wordt aangemaakt.
Deze methode stopt bij de eerste fout die wordt aangetroffen. Er is geen terugdraaiing van acties die zijn geslaagd voordat de fout is opgetreden.
VBA-programmering | Code Generator werkt voor u!
Map verplaatsen
Deze methode verplaatst een specifieke map van de ene naar de andere locatie.
Syntaxis is:
Map verplaatsen (bron, bestemming)
| 1234 | Sub MoveAFolder()Dim MyFSO als nieuw bestandssysteemobjectMyFSO.MoveFolder "C:\temp\mijnmap", "C:\temp\mijnbestemming"Einde sub |
Deze code verplaatst de map ‘mijnmap’ en inhoud naar de map ‘mijnbestemming’. ‘mijnmap’ wordt effectief verwijderd en ‘mijnbestemming’ wordt aangemaakt, samen met de inhoud van ‘mijnmap’.
Als de doelmap al bestaat, treedt er een fout op.
De 'Verwijderen'-methoden gebruiken
Deze methoden worden gebruikt om bestanden of mappen te verwijderen. Ze moeten met zorg worden gebruikt, omdat er geen methoden voor terugdraaien of ongedaan maken zijn als er iets misgaat.
Verwijder bestand
Hiermee worden afzonderlijke bestanden of een groep bestanden verwijderd met behulp van jokertekens.
Syntaxis is:
Verwijder bestand bestandsspecificatie, [ kracht ]
| 1234 | Sub DeleteFiles()Dim MyFSO als nieuw bestandssysteemobjectMyFSO.DeleteFile "C:\temp\*"Einde sub |
Deze code verwijdert alle bestanden in de map 'C:\temp'
De Force-parameter is optioneel en is ingesteld op True of False. Als het is ingesteld op True, worden alleen-lezen bestanden verwijderd. De standaardwaarde is False.
Verwijder map
Deze methode verwijdert een opgegeven map en de inhoud ervan.
Syntaxis is:
Verwijder map mapspecificatie, [ kracht ]
| 1234 | Sub DeleteFolders()Dim MyFSO als nieuw bestandssysteemobjectMyFSO.DeleteFolder "C:\temp\MyDestination"Einde sub |
Deze code verwijdert de map 'MyDestination' en alle bestanden in die map. De map ‘temp’ blijft staan.
De Force-parameter is optioneel en is ingesteld op True of False. Als het is ingesteld op True, worden alleen-lezen mappen verwijderd. De standaardwaarde is False.
In het laatste onderdeel van het pad kunnen jokertekens worden gebruikt. Als de map niet wordt gevonden, treedt er een fout op.
Deze methode stopt bij de eerste fout die wordt aangetroffen. Er is geen terugdraaiing van acties die zijn geslaagd voordat de fout is opgetreden.
VBA-programmering | Code Generator werkt voor u!
Andere methoden in de FSO
OpenAsTextStream.
Met deze methode wordt een gespecificeerd bestand geopend als een Text Stream-object en kan het worden gelezen of geschreven. Het voordeel van deze methode is dat het elk bestandstype kan openen en de beschikbare tekst kan extraheren.
Syntaxis is:
OpenAsTextStream ([ iomode, [ formaat ]])
De parameter 'iomode' staat alleen lezen (1), lezen/schrijven (2) en toevoegen (8) toe. De lees-/schrijfparameter overschrijft het bestand.
De parameter 'format' is ingesteld op -2 voor systeemstandaard, -1 om het bestand te openen als Unicode en 0 om het bestand te openen als ASCII (American Standard Code for Information Interchange).
| 1234567891011 | Sub TekstStream()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFile("C:\temp\mijnbestand.txt") inStel ts = f.OpenAsTextStream(2) ints.Schrijf "Mijn nieuwe tekst"ts.SluitenStel ts = f.OpenAsTextStream(1) ins = ts.ReadLineMsgBox sts.SluitenEinde sub |
Deze code haalt een bestaand tekstbestand op en maakt het als een object aan met behulp van de 'GetFile'-methode. Het opent vervolgens de tekststroom als lezen / schrijven (2) en schrijft een regel tekst. Het bestand wordt dan gesloten en opnieuw geopend als gelezen (1) en er wordt een regel uit gelezen, die vervolgens wordt weergegeven als een berichtvenster.
Merk op dat de gelezen regel in een variabele moet worden geplaatst voordat deze in een berichtvenster kan worden weergegeven.
Bouwpad
Deze methode voegt een map- of bestandsnaam toe aan het einde van een bestaand mappad. Hiermee wordt alleen een tekstreeks gemaakt en wordt de nieuwe map niet echt gemaakt.
Syntaxis is:
Bouwpad (pad, naam)
| 12345 | Sub BuildPth()Dim MyFSO als nieuw bestandssysteemobjectnp = MyFSO.BuildPath("C:\temp", "ANewFolder")MsgBox npEinde sub |
Hierdoor wordt 'C:\temp\ANewFolder' weergegeven. Als u deze map echter daadwerkelijk wilt gebruiken, moet u de methode 'CreateFolder' gebruiken.
OpenTextFile
Met deze methode kunnen bestanden worden geopend en gelezen van of geschreven volgens ingestelde parameters. Het werkt op dezelfde manier als de OpenAsTextStream-methode.
Syntaxis is:
OpenTextFile (bestandsnaam, [ iomode, [ creëren, [ formaat ]]])
De parameter 'iomode' staat ForReading, ForWriting en ForAppending toe. De ForWriting-parameter overschrijft het bestand.
De parameter ‘create’ is een Booleaanse waarde. Waar betekent dat er een nieuw bestand wordt gemaakt als de opgegeven bestandsnaam niet bestaat. False betekent dat er geen bestand wordt gemaakt als de bestandsnaam niet wordt gevonden. De standaardwaarde is False.
De parameter 'format' kan worden ingesteld op TristateFalse, TristateMixed, TristateTrue en TristateUseDefault, afhankelijk van of het bestand ASCII of Unicode is.
| 1234567 | Sub OpenTxtFile()Dim MyFSO als nieuw bestandssysteemobjectSet ts = MyFSO.OpenTextFile("C:\temp\myfile.txt", ForReading, False, TristateUseDefault)s = ts.ReadLineMsgBox sts.SluitenEinde sub |
Deze code leest een regel uit het tekstbestand 'mijnbestand.txt'.
Een voordeel van de OpenTextFile-methode ten opzichte van de OpenAsTextStreamMethod is dat het vervolgkeuzemenu's heeft voor de parameters, die zinvoller zijn dan proberen de juiste numerieke waarden voor de verschillende parameteropties te onthouden.
VBA-programmering | Code Generator werkt voor u!
Eigenschappen van de FSO
schijven
Deze eigenschap bevat een verzameling beschikbare stations op uw computer.
| 1234567 | Sub Drv()Dim MyFSO als nieuw bestandssysteemobject, d als schijfStel Dr = MyFSO.Drives inVoor elke d In DrMsgBox d.DriveLettervolgende dEinde sub |
Deze code retourneert elke stationsletter die op uw computer beschikbaar is.
Naam
Dit retourneert de naam van een opgegeven bestand of map.
| 123456789 | SubnaamVoorbeeld()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFile("C:\temp\mijnbestand.txt") ini = f.Naam & " op schijf" & UCase (f. schijf) & vbCrLfi = i & "Gemaakt: " & f.DatumGemaakt & vbCrLfi = i & "Laatst geopend: " & f.DateLaatste toegang & vbCrLfi = i & "Laatst gewijzigd: " & f.DateLastModifiedMsgBox iEinde sub |
Deze code geeft de naam van het bestand en informatie erover met behulp van de Drive-eigenschap.
Pad
De eigenschap Path scheidt het pad van een bestandsspecificatie.
| 123456789 | SubpadVoorbeeld()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFile("C:\temp\mijnbestand.txt") ini = f.Path & f.Name & " op schijf" & UCase(f.Drive) & vbCrLfi = i & "Gemaakt: " & f.DatumGemaakt & vbCrLfi = i & "Laatst geopend: " & f.DateLaatste toegang & vbCrLfi = i & "Laatst gewijzigd: " & f.DatumLaatst gewijzigdMsgBox iEinde sub |
Dit voorbeeld werkt op dezelfde manier als het voorbeeld Name, behalve dat het nu het pad voor het bestand geeft.
VBA-programmering | Code Generator werkt voor u!
Maat
De eigenschap Grootte geeft de grootte van een map of een bestand.
| 12345 | Sub FS-grootte()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFolder("C:\temp\") inMsgBox f.SizeEinde sub |
Deze code hierboven retourneert de grootte van de map 'C:\temp\'.
| 12345 | Sub FS-grootte()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFile("C:\temp\mijnbestand.txt") inMsgBox f.SizeEinde sub |
Deze code hierboven retourneert de grootte van het bestand 'mijnbestand.txt'.
Type
De eigenschap type retourneert de tekst voor het bestands- of maptype.
| 12345 | Sub-FType()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFolder("C:\temp\") inMsgBox f.TypeEinde sub |
Deze code hierboven retourneert de tekst 'Bestandsmap'.
| 12345 | Sub-FType()Dim MyFSO als nieuw bestandssysteemobjectStel f = MyFSO.GetFile("C:\temp\mijnbestand.txt") inMsgBox f.TypeEinde sub |
Deze code hierboven retourneert de tekst 'Tekstdocument'.
Let op het gebruik van 'GetFolder' en 'GetFile' in elk voorbeeld.
