الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل بسيط على كود نسخ الملفات والمجلدات

بدأه maayah في 5 أغسطس 2011 · 10 رد · 1,613 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

هذا الكود لنسخ مجلد يحتوي مجلدات وملفات من مكان لمكان 

Try
            My.Computer.FileSystem.CopyDirectory("C:\folder", "f:\folder", True)
            MsgBox("done")
            Exit Sub
        Catch ex As Exception
            MsgBox(ex.Message)
            Exit Sub
        End Try

سؤاللي اريد التعديل على هذا الكود ليصبح ينسخ Drive بكل محتوياته الى مجلد معين

مع شكري ..

#2

السلام عليكم ورحمه الله وبركاته

اختي استخدمي الكود التالي

My.Computer.FileSystem.CopyDirectory("C:\", "f:\", True)

.:: Wish to become better and better ::.

#3
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اختي استخدمي الكود التالي

My.Computer.FileSystem.CopyDirectory("C:\", "f:\", True)

اخي مشكور على ردك .. هذا الكود انا استخدمته مسبقا لكنه خطأ فلن يقبل النسخ باستخدام الكود الذي ارفقته

يعطيني رسالة خطأ

#4

السلام عليكم ورحمه الله وبركاته

اختي ممكن تكتبي رسالة الخطأ؟ لأن امر تطبيقه في جهازي سيأخذ وقتا طويلا لأن المساحة المستخدمة من القرص C كبيرة نوعا ما

.:: Wish to become better and better ::.

#5

could not complete operation since dirctory is root directory: 'd:\'

#6

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Dim srcPath as String = "E:\"
Dim destPath as String = "C:\Temp\Test\"
My.Computer.FileSystem.CurrentDirectory = srcPath
For Each foundFile as String in My.Computer.FileSystem.GetFiles _(My.Computer.FileSystem.CurrentDirectory)
foundfile = Microsoft.VisualBasic.Right(foundfile, Len(FoundFile) - 3)
My.Computer.FileSystem.CopyFile(foundFile, destPath & foundfile, True) 
Next

.:: Wish to become better and better ::.

#7
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي

Dim srcPath as String = "E:\"
Dim destPath as String = "C:\Temp\Test\"
My.Computer.FileSystem.CurrentDirectory = srcPath
For Each foundFile as String in My.Computer.FileSystem.GetFiles _(My.Computer.FileSystem.CurrentDirectory)
foundfile = Microsoft.VisualBasic.Right(foundfile, Len(FoundFile) - 3)
My.Computer.FileSystem.CopyFile(foundFile, destPath & foundfile, True) 
Next

الكود خطأ اخي .. لقد عدت وراجعت الكود لا يختلف بشيء عن الكودات السابقة

#8

السلام عليكم

أختي جربي تشغيل البرنامج في

وضع أدمن

Be the change you want to see in the world


#9

السلام عليكم ورحمه الله وبركاته

اختي ايش الخطأ بالضبط؟

.:: Wish to become better and better ::.

#10

اخي شغلت البرنامج بوضع الأدمن بدون فائدة

اخي الخطأ ان البرنامج لا ينسخ اي شيء

مواضيع مشابهة