[عماد البشبيشى]

اخوانى
احبكم الله
 عندى ملفات مخزنة على قاعدة البيانات (BinerRed)
الان اقوم باستدعاء الملف واعادة انشائه عن طريق FileStream  
اريد ان اقوم بحفظ هذا الملف عن طريق SaveFileDialog

كود :

               Dim row As DataRow = ATNewDt.Rows.Find(strToOpin) '
               Dim file_data() As Byte = CType(row(1), Byte())
               Dim fs As New FileStream(strToOpin, FileMode.OpenOrCreate, FileAccess.Write)
               fs.Write(file_data, 0, file_data.Length)
               Try 'حفظ
                   Dim sav As New SaveFileDialog
                   sav.Filter = "All |*.* |PDF |*.pdf | Excel File |*.xlsx |Excel 2003 | *.xls"

sav.FileName = vews.Item(0)(3).ToString
                   If sav.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                       ' AttipF.ToString.SaveAs(sav.FileName)
                   End If

               Catch ex As Exception

               End Try


               fs.Close()