Inhoudsopgave
Deze zelfstudie laat zien hoe u de OpenTextFile-methode van het FileSystemObject gebruikt.
Een tekstbestand openen
Deze les gebruikt het FileSystemObject. Om het te gebruiken, moet u een verwijzing naar de VB-script runtime-bibliotheek instellen. Kijk hier voor meer informatie.
U kunt een bestaand tekstbestand openen om te lezen:
| 1 | Stel FileToRead = FSO.OpenTextFile in ("C:\Test\TestFile.txt", ForReading) |
en plak de inhoud vervolgens in de eerste cel van het huidige werkblad, bijvoorbeeld:
| 12345678910 | Sub FSOReadFromTextFile()Dim FSO als nieuw bestandssysteemobjectStel FSO = CreateObject ("Scripting.FileSystemObject") inStel FileToRead = FSO.OpenTextFile in ("C:\Test\TestFile.txt", ForReading)TextString = FileToRead.ReadAllBestand Naar Lezen.SluitenThisWorkbook.Sheets(1).Range("A1").Waarde = TextStringEinde sub |
Zie hier voor meer opties met de ForReading-modus.
In de ForWriting-modus kunt u de inhoud van een bestaand bestand vervangen door nieuwe gegevens, maar u kunt het bestand niet lezen.
| 123456789 | Sub FSOWriteToTextFile()Dim FSO als nieuw bestandssysteemobjectStel FSO = CreateObject ("Scripting.FileSystemObject") inStel FileToWrite = FSO.OpenTextFile in ("C:\Test\TestFile.txt", ForWriting)FileToWrite.Write "testregel"FileToWrite.CloseEinde sub |
Zie hier voor meer opties met de ForWriting-modus.
In de ForAppending-modus kunt u naar het einde van het bestand schrijven. U kunt niet lezen uit dit bestand.
| 123456789 | Sub FSOAppendToTextFile()Dim FSO als nieuw bestandssysteemobjectStel FSO = CreateObject ("Scripting.FileSystemObject") inStel FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending) inFileToAppend.Write "bijgevoegde inhoud"BestandNaarToevoegen.SluitenEinde sub |
