تغيير مكان حفظ الصورة من قاعدة البيانات إلى مجلد في مسار البرنامج

كود :

Private Function ScanMe(ByVal myDPI As Integer, ByVal myHeight As Double, ByVal myWidth As Double, ByVal ShowSelectScanner As Boolean, ByVal ShowScanPreview As Boolean) As Byte()

    Dim CD As New WIA.CommonDialog

    Dim device As WIA.Device = CD.ShowSelectDevice(WIA.WiaDeviceType.ScannerDeviceType, ShowSelectScanner, False)

    If device Is Nothing Then Return Nothing

    Dim item As WIA.Item = device.Items(1)

    Try

        With item

            .Properties("Horizontal Resolution").Value = myDPI

            .Properties("Vertical Resolution").Value = myDPI

            .Properties("Horizontal Extent").Value = myDPI * myWidth

            .Properties("Vertical Extent").Value = myDPI * myHeight

        End With

        Dim F As WIA.ImageFile



        If ShowScanPreview Then

            F = CD.ShowAcquireImage(WiaDeviceType.ScannerDeviceType, WiaImageIntent.ColorIntent, WiaImageBias.MaximizeQuality, WIA.FormatID.wiaFormatBMP, False, True, False)

        Else

            F = CD.ShowTransfer(item, WIA.FormatID.wiaFormatPNG, False)

        End If



        Dim myBuffer As Byte() = F.FileData.BinaryData

        Return myBuffer

    Catch ex As Exception



        MsgBox(ex.Message)

        Return Nothing

    End Try

End Function

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Try

        Dim myMS As MemoryStream

        myMS = New MemoryStream(ScanMe(300, 11.6, 8.3, False, False))

        Car_Doc.Image = Image.FromStream(myMS)

        Car_Doc.SizeMode = PictureBoxSizeMode.Zoom

    Catch ex As Exception

        MessageBox.Show(ex.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)

    End Try

End Sub

كود :

Dim folderPath As String = Path.Combine(Application.StartupPath, "\Images\")



If Not Directory.Exists(folderPath) Then

    ' Create folder with a unique ID

    Dim uniqueID As String = Guid.NewGuid().ToString()

    Dim newFolderPath As String = Path.Combine(folderPath, uniqueID)



    Directory.CreateDirectory(newFolderPath)

    Console.WriteLine("New folder created at: " & newFolderPath)

Else

    Console.WriteLine("Folder already exists at: " & folderPath)

End If