[سعود]

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
   Dim dt As DataTable

   Private Sub gd()
       Using con = New OleDb.OleDbConnection(str)
           Using da = New OleDb.OleDbDataAdapter("select * from tb", con)
               dt = New DataTable
               da.Fill(dt)
               ListBox1.DataSource = dt
               ListBox1.DisplayMember = "picname"
           End Using
       End Using
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using ofd = New OpenFileDialog
           If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
               If IO.Path.GetExtension(ofd.FileName).ToString.ToLower = ".jpg" Then
                   Dim nname As String = InputBox("اكتب اسم جديد للملف او الصورة")
                   Using con = New OleDb.OleDbConnection(str)
                       con.Open()
                       Using cm = New OleDb.OleDbCommand("insert into tb(picname) values(@picname)", con)
                           cm.Parameters.AddWithValue("@picname", "pics\" & nname & IO.Path.GetExtension(ofd.FileName))
                           IO.File.Copy(ofd.FileName, "pics\" & nname & IO.Path.GetExtension(ofd.FileName), False)
                           cm.ExecuteNonQuery()
                       End Using
                   End Using
               End If
           End If
       End Using
       gd()
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       On Error Resume Next
       PictureBox1.Image = Image.FromFile(ListBox1.Text)
   End Sub
End Class

هذا مثال على مجلد ضمن الديبق باسم pics

---

.....
...
..
.

---