منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخواني الأفاضل
لدي الكود التالي الذي استخدمه لنسخ الملفات من مكان لآخر إلا أن هذا الكود يتطلب مني تسمية الملف المنسوخ (بمعنى أنه يجب تحديد اسم للملف المنسوخ لوضعه في الوجهة المحددة)
فهل يمكن نسخ الملف بنفس الاسم بدون تحديد هذا الاسم في الكود

كود :

Dim PathFile As String = "C:\Folder1\[color=#FF0000]test.txt[/color]"

    Dim destFile As String = "C:\Folder2\[color=#FF0000]test.txt[/color]"

    If Not Directory.Exists(PathFile) Then System.IO.File.Copy(PathFile, destFile)

تقبلوا جميعاً تحياتي

تمت الإجابة باستخدام الكود التالي

كود :

Dim PathFile As String = "C:\Folder1\test.txt"

    Dim NameFile As String = System.IO.Path.GetFileName(PathFile)

    Dim destFile As String = "C:\Folder2\" & NameFile

    If Not Directory.Exists(PathFile) Then System.IO.File.Copy(PathFile, destFile)

تقبلوا تحياتي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

abuzzouz

abuzzouz