کپی فایل از پوشه ای به پوشه دیگر بدون تغییر نام

[ILYA20]

با سلام و خسته نباشید خدمت دوستان عزیز

بنده میخوام فایلی را از پوشه ای به پوشه دیگر انتقال بدم و نمیخوام در مبدا تغییر نام بدم

از دستور زیر برای کپی فایل استفاده میکنم ولی کار نمیکنه

Dim ToscCopy As String

            Dim NescCopy As String

            ToscCopy = TextBox4.Text

            NescCopy = "output\mediatek\"

            File.Copy(ToscCopy, NescCopy)

با این دستور نیازه که در مبدا یعنی "output\mediatek" یه نام هم بنویسیم مثلا با چه نامی در مبدا میخوایم ذخیره کنیم به عنوان مثال باید اینطوری قرار بدیم تا کار کنه

Dim ToscCopy As String

            Dim NescCopy As String

            ToscCopy = TextBox4.Text

            NescCopy = "output\mediatek\kernel.bin"

            File.Copy(ToscCopy, NescCopy)

ولی بنده نمیخوام در مبدا به نامی که تعریف میکنم ذخیره بشه میخوام با نام دیفالت خودش ذخیره بشه .
در این خصوص جستجو کردم به نتیجه نرسیدم متاسفانه

راهنمایی لطفا

[ROSTAM2]

شما بايد كلاس هاي System.IO را ببينيد تا بتوانيد ب جواب همه سوالهايتان برسيد. براي اين سوالها ب IO.Path , IO.File در MSDN نگاهي بياندازيد... مي تونيد جستجو هم بكنيد.

در ضمن آدرس ها بايد كامل باشن. مثال:

"C:\Windows\System32\Shell32.dll"

[ILYA20]

شما بايد كلاس هاي System.IO را ببينيد تا بتوانيد ب جواب همه سوالهايتان برسيد. براي اين سوالها ب IO.Path , IO.File در MSDN نگاهي بياندازيد... مي تونيد جستجو هم بكنيد.

در ضمن آدرس ها بايد كامل باشن. مثال:

"C:\Windows\System32\Shell32.dll"

ممنون از شما

بنده میخوام آدرس مبدا رو از تکست باکس بگیره و کپی کنه به فولدر تعریف شده بدون اینکه نامی تعریف کنیم برای مقصد (التبه وقتی برای مقصد نامی تعریف میکنیم مشکلی نیست کپی میشه ولی تعریف نکنیم کپی نمیشه و خطا میگیره)

بنده سرچ کردم به نتیجه نرسیدم برای همین تایپک ایجاد کردم

[ILYA20]

مشکل با این دستور حل شد !

Dim destDir As String = "D:\resource"

Dim source As String = TextBox3.Text

Dim destFile As String = Path.Combine(destDir, Path.GetFileName(source))

FileCopy(source, destFile)

سپاس از راهنمایی دوستان