VBScript

File Read Blocks

Demonstrates how to read a file in fixed-size blocks (except for the very last block). VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' Demonstrates how to read a file in blocks,
' which can be useful when uploading to cloud storage
' services such as Azure, S3, Google, etc.

' For this example, we're simply writing the blocks
' to an output file, and then checking to see if the
' resulting file contents equals the original file contents.

set facSrc = CreateObject("Chilkat.FileAccess")
set facDest = CreateObject("Chilkat.FileAccess")

srcPath = "qa_data/xml/hamlet.xml"
destPath = "qa_output/hamletOut.xml"

success = facSrc.OpenForRead(srcPath)
success = facDest.OpenForWrite(destPath)
' Assuming success for the example..

' How many 1024-byte blocks?  (Including 1 for the last partial block)
numBlocks = facSrc.GetNumBlocks(1024)

i = 0
Do While (i < numBlocks)
    dataBlock = facSrc.ReadBlock(i,1024)
    If (facSrc.LastMethodSuccess <> 1) Then
        outFile.WriteLine(facSrc.LastErrorText)
        WScript.Quit
    End If

    success = facDest.FileWrite(dataBlock)
    If (success <> 1) Then
        outFile.WriteLine(facDest.LastErrorText)
        WScript.Quit
    End If

    i = i + 1
Loop

facSrc.FileClose 
facDest.FileClose 

bEqual = facSrc.FileContentsEqual(srcPath,destPath)
If (bEqual <> 1) Then
    outFile.WriteLine("Something went wrong!")
    WScript.Quit
End If

outFile.WriteLine("File successfully copied by blocks.")

outFile.Close