Using filestream without opening the file

Question

Sir
I am trying to save a file to the SQL database using the following code. The code runs successfully but the file opens up during the process.
Dim fs As FileStream
fs = New FileStream(strFileName, FileMode.Open, FileAccess.Read)
Dim docByte As Byte() = New Byte(fs.Length - 1) {}
fs.Read(docByte, 0, System.Convert.ToInt32(fs.Length))
fs.Close()
I do not want the file to open. Any suggestion. Please help me
Regards
Manoj

Answer 1

Sir
I am trying to save a file to the SQL database using the following code. The code runs successfully but the file opens up during the process.
Dim fs As FileStream
fs = New FileStream(strFileName, FileMode.Open, FileAccess.Read)
Dim docByte As Byte() = New Byte(fs.Length - 1) {}
fs.Read(docByte, 0, System.Convert.ToInt32(fs.Length))
fs.Close()
I do not want the file to open. Any suggestion. Please help me
Regards
Manoj
I'll also suggest that you read the file in inside a Using block and you check to be sure that the file's size isn't too large:
Using fs As New IO.FileStream(filePath, _
IO.FileMode.Open, _
IO.FileAccess.Read)
If fs.Length <= Int32.MaxValue Then
Dim bytes(CInt(fs.Length - 1)) As Byte
fs.Read(bytes, 0, CInt(fs.Length))
' Now do something with the byte array
' just read in. For this example I'll
' just write the file to my desk
Dim desktop As String = _
My.Computer.FileSystem.SpecialDirectories.Desktop
Dim fileName As String = _
IO.Path.GetFileName(filePath)
My.Computer.FileSystem.WriteAllBytes(IO.Path.Combine(desktop, _
fileName), _
bytes, _
False)
Stop
End If
End Using
The test is done because of this: The .Length property of a FileStream is a type Long but the .Length
property of an array is an integer.
Still lost in code, just at a little higher level.