İçindekiler
Bu öğretici, FileSystemObject'in OpenTextFile yönteminin nasıl kullanılacağını gösterecektir.
Bir Metin Dosyası Açın
Bu ders FileSystemObject'i kullanır. Kullanmak için VB komut dosyası çalışma zamanı kitaplığına bir başvuru ayarlamanız gerekir. Daha fazla bilgi için buraya bakın.
Mevcut bir metin dosyasını okumak için açabilirsiniz:
| 1 | FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) olarak ayarlayın |
ve ardından içeriğini geçerli çalışma sayfasının ilk hücresine yapıştırın, örneğin:
| 12345678910 | Alt FSOReadFromTextFile()FSO'yu Yeni FileSystemObject Olarak DimFSO'yu ayarla = CreateObject("Scripting.FileSystemObject")FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading) olarak ayarlayınTextString = FileToRead.ReadAllDosyaOku.KapatThisWorkbook.Sheets(1).Range("A1").Value = TextStringAlt Bitiş |
ForReading moduyla ilgili daha fazla seçenek için buraya bakın.
ForWriting modunda, mevcut bir dosyanın içeriğini yeni verilerle değiştirebilirsiniz ancak dosyadan okuyamazsınız.
| 123456789 | Alt FSOWriteToTextFile()FSO'yu Yeni FileSystemObject Olarak DimFSO'yu ayarla = CreateObject("Scripting.FileSystemObject")FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting) olarak ayarlayınFileToWrite.Write "test satırı"FileToWrite.CloseAlt Bitiş |
ForWriting moduyla ilgili daha fazla seçenek için buraya bakın.
ForAppending modunda dosyanın sonuna yazabilirsiniz. Bu dosyadan okuyamazsınız.
| 123456789 | Alt FSOAppendToTextFile()FSO'yu Yeni FileSystemObject Olarak DimFSO'yu ayarla = CreateObject("Scripting.FileSystemObject")FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending) olarak ayarlayınFileToAppend.Write "eklenen içerik"FileToAppend.CloseAlt Bitiş |
