تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سؤال عن حفظ ملف معد بـ FileStream عن طريق SaveFileDialog
#1
اخوانى
احبكم الله
 عندى ملفات مخزنة على قاعدة البيانات (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()
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم