Close Method

Description

Closes an open TextStream file.

PowerBASIC Syntax

METHOD Close ()

Example [PowerBASIC]

#INCLUDE "windows.inc"

#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem

DIM pStm AS ITextStream

DIM OutString AS STRING

' Create an instance of the FileSystemObject

fso = NEWCOM "Scripting.FileSystemObject"

' Open the file for reading

pStm = fso.OpenTextFile(UCODE$("C:\MyFolder\Test.txt"), %IOMode_ForReading, %FALSE, %FALSE)

' Read the entire stream into a string

OutString = pStm.ReadAll

' Close the file

pstm.Close

Valid XHTML 1.0 Transitional