PDA

View Full Version : سوال: اننتقال به فایل



mohamad_torabi
شنبه 09 شهریور 1392, 14:51 عصر
سلام
من میخوام کاربر زمانی رو دکمه کلیک کرد یه عکسی رو انتخاب کنه که هم تو PictureBox نمایش داده بشه هم کپی بشه تو فایلی که من میگم برای این کار باید چیکار کنم

farbod61
شنبه 09 شهریور 1392, 14:56 عصر
Me.OpenFileDialog1.ShowDialog()
Me.PictureBox2.Load(Me.OpenFileDialog1.FileName)
Dim fs, fd As String

fs = Me.OpenFileDialog1.FileName
fd = "\\192.169.10.2\App\data\pics\irad\" + Me.IDTextBox.Text + ".jpg"
IO.File.Copy(fs, fd, True)
من تو اینجا آدرسی که کپی میکنم آدرس سرور هستش شما یه آدرس دیگه بزار

mohamad_torabi
شنبه 09 شهریور 1392, 15:14 عصر
دوست عزیز حالا زمانی میرسه که میخوام اسم عکس اینجوری ذخیره شه a.png & b.png
و.... الان باید چیکار کنم

farbod61
شنبه 09 شهریور 1392, 15:33 عصر
دوست عزیز حالا زمانی میرسه که میخوام اسم عکس اینجوری ذخیره شه a.png & b.png
و.... الان باید چیکار کنم

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fs, fd As String
Dim s As String
Me.OpenFileDialog1.ShowDialog()
Me.PictureBox1.Load(Me.OpenFileDialog1.FileName)
s = IO.Path.GetFileName(OpenFileDialog1.FileName)
fs = Me.OpenFileDialog1.FileName
fd = "C:\" + s
IO.File.Copy(fs, fd, True)
End Sub

mohamad_torabi
شنبه 09 شهریور 1392, 21:23 عصر
ببخشید چه جوری میشه اسم عکسی که کپی میشه برابر تکست باکس 1 باشه؟

farbod61
شنبه 09 شهریور 1392, 21:46 عصر
توی همین کد
textbox1.text=s

mohamad_torabi
شنبه 09 شهریور 1392, 21:48 عصر
میشه کد کامل قرار بدید