Private Sub SqlBlob2File(ByVal DocName As String)
Dim cn As New SqlConnection(My.Settings.DocStoreConnectionString.ToString())
Dim cmd As New SqlCommand("Select DocData From Documents WHERE DocName = @DocName", cn)
cmd.Parameters.AddWithValue("@DocName", DocName)
cn.Open()
Using dr As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
If dr.Read() Then
Dim fs As IO.FileStream = New IO.FileStream(IO.Path.Combine(Me.FolderBrowserDialog1.SelectedPath, DocName), IO.FileMode.Create)
Dim b() As Byte = dr.Item("DocData")
fs.Write(b, 0, b.Length)
fs.Close()
End If
End Using 'dr
cn.Close()
End Sub