ذخیره نشدن عکس در مسیر جاری پروژه

[Ship Storm]

سلام دوستان
یک برنامه نوشتم که و یک بخش یک عکس از کاربر میگیره و ذخیره میکنه ولی نمیدونم علتش چیه که عکس رو کپی نمیکنه تو مسیر جاری
نام عکس هم بصورت رندوم بین 100000 تا 999999 در نظر گرفته شده و از این اطلاعات فقط همین شماره در بانک اطلاعاتی من ذخیره میشه که بعدا با همین شماره رجوع میشه به مسیر جاری و اون شماره عکس رو پیدا میکنه و بارگذاری میکنه
الان مشکل اول اینه که عکس رو کپی نمیکنه تو مسیر جاری
کدی هم که نوشتم اینه :



Dim con As New SqlConnection()
con.ConnectionString = "Server=.\SQLExpress;AttachDbFilename=" + Environment.CurrentDirectory + "\Database\Automation.mdf;Database=Automation;Trust ed_Connection=Yes;"

con.Open()
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String

Dim rnd As New Random
Dim temp As String
temp = rnd.Next(100000, 999999).ToString()


File.Copy(ImgPath, Environment.CurrentDirectory & "\CustomerPictures\" & temp & ".JPG")

Dim stream As New FileStream(Environment.CurrentDirectory & "\CustomerPictures\" & temp & ".JPG", FileMode.Open)

Dim reader As New BinaryReader(stream)
Dim imgByte() As Byte
imgByte = reader.ReadBytes(stream.Length)Dim con As New SqlConnection()
con.ConnectionString = "Server=.\SQLExpress;AttachDbFilename=" + Environment.CurrentDirectory + "\Database\Automation.mdf;Database=Automation;Trust ed_Connection=Yes;"

con.Open()
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String

Dim rnd As New Random
Dim temp As String
temp = rnd.Next(100000, 999999).ToString()


File.Copy(ImgPath, Environment.CurrentDirectory & "\CustomerPictures\" & temp & ".JPG")

Dim stream As New FileStream(Environment.CurrentDirectory & "\CustomerPictures\" & temp & ".JPG", FileMode.Open)


Dim reader As New BinaryReader(stream)
Dim imgByte() As Byte
imgByte = reader.ReadBytes(stream.Length)
.
.
.