ReadFile()

Lê um arquivo no modo texto.
O FileName pode ser um caminho absoluto ou relativo.

Function ReadFile(ByVal FileName)

On Error Resume Next

If Mid(FileName, 2, 1) <> ":" Then
FileName = Server.MapPath(FileName)
End If
If Err Then Err.Clear

On Error GoTo 0

Dim F
Set F = OpenFile(FileName, 1, False)

If F Is Nothing Then
ReadFile = ""
Exit Function
End If

If Not F.AtEndOfStream Then
ReadFile = F.ReadAll
Else
ReadFile = ""
End If

F.Close
Set F = Nothing

End Function