روش OpenAsTextStream برای باز کردن فایل Text بعلاوه نوشتن و خواندن در آن

به اسناد Office مراجعه کنید.

مثل  روش OpenTextFile از FileSystemObject است بعلاوه روش OpenAsTextStream می تواند برای نوشتن یک فایل نیز استفاده شود.

object.OpenAsTextStream ([ iomode, [ format ]])

imode حالت ورودی و خروجی که عدد 1 برای خواندن 2  نوشتن و 8  اضافه کردن ، format هم باز کردن فایل طبق پیش فرض سیستم یا باز کردن  در حالت Unicode یا Ascii است  اعداد 2-  ، 1 و 0

یا : 

object.OpenTextFile (filename, [ iomode, [ create, [ format ]]])

Set fso=CreateObject("Scripting.FileSystemObject")

Set sFile=fso.OpenTextFile(FileName,ForReadimg,False)

Do While sFile.AtEndOfStream<>True

.

.

Wend

sFile.Colse ' Needs

.CreateObject("Scripting.FileSystemObject")

.CreateTextFile

.GetFile

شئ TextStream برای دسترسی به محتویات فایل های متنی استفاده می شود. از متدهاش می توان به Close ، Read ، ReadAll ، ReadLine و WriteLine اشاره کرد. همچنین دارای خصوصیات یا ویژگیهایی مثل AtEndOfLine و AtEndOfStream است.

Search String :

FileSystemObject ( fso variable )

fso.OpenTextFile

TextStream ( ts variable )

String=ts.ReadAll ' ( Properties )

Str=Instr(1,String,SearchString)

'OpenTextFile ... Using TextStream

With strTextFile

Do Until .AtEndOfStream

Debug.Print .Line & "..." & .ReadLine

Loop

.Close

End With