Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
Function ReadTextFile(ByVal s)
Dim oFS, oFile, oTextStream
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
If Not oFS.FileExists(s) Then Exit Function
Set oFile = oFS.GetFile(s)
If oFile.Size > 0 Then
Set oTextStream = oFS.OpenTextFile(s)
ReadTextFile = oTextStream.ReadAll
oTextStream.Close: Set oTextStream = Nothing
Set oFile = Nothing: Set oFS = Nothing
Function ReadBinaryFile(ByVal sFilePath)
Set oStream = Server.CreateObject("ADODB.Stream")
oStream.Type = 1
ReadBinaryFile = oStream.Read
Set oStream = Nothing
Open in new window
Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!
Learn how Concerto can help you.
Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.