ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql

PHP كود :
Imports System.Data.SqlClient
Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
    Dim fbd As FolderBrowserDialog


    Dim con As New SqlConnection("Server=.\sqlexpress;Database=pics;Trusted_Connection=True;MultipleActiveResultSets=True")


    Private Sub savepics(ByVal u As String)
        Dim count As Integer = 0
        Dim dir As New IO.DirectoryInfo(u)
        count = dir.GetFiles("*.*").Count
        Dim i As Integer = 0
        p.Invoke(Sub() p.Maximum = count - 1)

        If con.State = ConnectionState.Closed Then con.Open()
        Dim cm As New SqlCommand("", con)

        For Each fl As IO.FileInfo In dir.GetFiles("*.*")
            Try
                cm.Parameters.Clear()
                cm.CommandText = "insert into tb(picname) values(@picname)"
                cm.Parameters.AddWithValue("@picname", fl.Name)


                cm.ExecuteNonQuery()
                lblname.Invoke(Sub() lblname.Text = fl.Name)
                p.Invoke(Sub() p.Value = i)

                fl.CopyTo(CurDir() & "\pics\" & fl.Name)

                i += 1


                Threading.Thread.Sleep(500)
            Catch ex As Exception

            End Try


        Next
        If con.State = ConnectionState.Open Then con.Close()
    End Sub

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown, lblname.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove, Label1.MouseMove, lblname.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Close()
    End Sub

    Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp, Label1.MouseUp, lblname.MouseUp
        dr = False
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        fbd = New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            Dim th As New Threading.Thread(AddressOf savepics)
            If th.IsAlive = False Then
                th.Start(fbd.SelectedPath)
            End If
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Location = My.Settings.mloc
    End Sub
End Class