Ler arquivo usando Objeto FileSystemObject, método OpenTextFile
LerArquivo( "ARQUIVO.TXT" )
FUNCTION LerArquivo( cArquivo )
LOCAL oFile, lOk := .T., oErro
LOCAL ForReading := 1, ForWriting := 2, ForAppending := 8
LOCAL TristateUseDefault := -2, TristateVerdadeiro := -1, TristateFalso := 0, cArqTexto := ""
//TristateUseDefault -2 Abre o arquivo usando o padrão do sistema.
//TristateVerdadeiro -1 Abre o arquivo como Unicode.
//TristateFalso 0 Abre o arquivo como ASCII.
BEGIN SEQUENCE WITH __BreakBlock()
oFile := Win_OlecreateObject("Scripting.FileSystemObject")
RECOVER
lOk := .F.
END
IF lOk
BEGIN SEQUENCE WITH __BreakBlock()
altd()
WITH OBJECT oFile
cArqTexto := :OpenTextFile( cArquivo, ForReading, TristateUseDefault ):ReadAll
END
END
ENDIF
RETURN cArqTexto