OpenTextFile Method

باز کردن تکست فایل و استفاده از قابلیت های خواندن نوشتن و اضافه کردن در آن 

,object.OpenTextFile (filename,iomode,create

  format

:iomode argument
ForReading=1
ForWriting=2
Open a file and write to the end of the 'file. You can't'

 read from this file '

ForAppending=8


:format argument
TristateUseDefault=-2 'System default
TristateTrue=-1 'Opens the file as Unicoe
TristateFalse=0 'Opens the file as ASCII

Sub OpenTextFileTest Const ForReading = 1, ForWriting = 2, ForAppending = 8 Dim fs, f Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending, TristateFalse) f.Write "Hello world!" f.Close End Sub