کد کپی کردن

با سلام

من کدی می خواهم که وقتی روی دکمه کلیک می کنم فایلی را در محلی کپی کند من زیاد هم وارد نیستم پس زیاد توضیح دهید با تشکر :happy:

کسی نبود؟ کسی بلد نیست؟

این شد سایت؟ اه اه اه

Ali-Bahal
سلام
به فروم پي سي خوش اومديد. ببينيد اينجا محيطش با چت متفاوت هست. سوالي كه شما مي پرسيد اينجا قرار ميگيره حالا تا زماني كه شخصي از راه برسه و پاسخي براش داشته باشه. در محيطهاي اينچنيني صبر و تامل رو بايد بيشتر بهش توجه كنيد.

جواب سوال شما:

کد:

---

Private Sub Command1_Click()
    FileSystem.FileCopy "C:\fileshoma.exe", "D:\fileshoma.exe"
End Sub

---

ببخشید آخه خیلی سریع نیاز داشتم دستت درد نکنه میشه یک سوال دیگر هم جواب بدی؟
من یک لیست دارد که توش علی و احسان و.... هستند که می خواهم وقتی روی هر کدام کلیک کردم فامیلیش را در textbox بنویسد؟ چه طور ممکن است؟ ممنون می شم

codat kar nakard!

کدت کار نکرد!

چه قدر دیر به دیر جواب آدمو می دید

آقا علي... در مورد نحوه ارسال پست به شما توضيحاتي داده بودم كه فكر مي كردم اونها رو بخاطر سپرديد... ولي ظاهرا اينطور نبوده.

**
سوال شما
در خواست كدي رو فرموده بوديد كه فايلي رو از مسيري به مسير ديگه كپي كنه. جواب سوال شما هم كه به صورت مثال نوشته شده بود ارسال شد. حالا اگر آشنايي لازم و كافي به Visual Basic نداريد و قادر به استفاده صحيح از اين كد نيستيد لطفا به تاپيكهاي آمورشي vb رجوع كنيد يا سوالات اوليه رو مطرح كنيد.

با تشكر از شما.

ببخشید کار کرد مشکلم این بود پسوند را نزده بودم که exe است
سوالم را جواب میدی
من یک لیست دارد که توش علی و احسان و.... هستند که می خواهم وقتی روی هر کدام کلیک کردم فامیلیش را در textbox بنویسد؟ چه طور ممکن است؟ ممنون می شم

فايل ضميمه رو بدانلود.

کد:

---

Private Sub Form_Load()
List1.AddItem "Ali"
List1.AddItem "Hasan"
End Sub

Private Sub List1_Click()
    If LCase(List1.List(List1.ListIndex)) = "hasan" Then Text1.Text = "Jamshidi"
    If LCase(List1.List(List1.ListIndex)) = "ali" Then Text1.Text = "Bahalian"
End Sub

---

دستت درد نکنه قربونت برم