نسخ الملفات - نسخة قابلة للطباعة

نسخ الملفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ الملفات (/showthread.php?tid=9005)

نسخ الملفات - abuzzouz - 24-05-13

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

كود :

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)

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

نسخ الملفات - abuzzouz - 24-05-13

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

كود :

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)

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