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

تصحيح كود نسخ مجلد

بدأه aboumazen في 10 سبتمبر 2012 · 3 رد · 903 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

الكود يقوم بجفظ مجلد من مسار البرنامج الى مكان يتم تحديده ب FolderBrowserDialog

ما الخطأ في هذا الكوذ بارك الله فيكم

  
Try
        	Dim PathMourfaqat As String = FBDialogSaveFile.SelectedPath & "\Morfaqat\"
        	If My.Computer.FileSystem.DirectoryExists(PathMourfaqat) = False Then
            	My.Computer.FileSystem.CreateDirectory(PathMourfaqat)
            	My.Computer.FileSystem.CopyDirectory(Application.StartupPath & "\Morfaqat\", FBDialogSaveFile.SelectedPath & "\Morfaqat\")
            	MsgBox("تم استنساخ المجلدات")
        	End If
    	Catch ex As Exception
        	MsgBox(ex.Message)
    	End Try
#2

هذا الكود يعمل, بعد انشاء المجلد dir1 و dir2 على القرص E:

Try
            My.Computer.FileSystem.CopyDirectory("E:\dir1", "E:\dir2", True)
            MsgBox("تم استنساخ المجلدات")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

عليك أن تتأكد أن هذا المسار موجود على جهازك

Application.StartupPath & "\Morfaqat\"

ثم إذا كان المسار المختار هو القرص C مباشرة مثلا لنسخ الملفات فإن PathMourfaqat ستصبح قيمته

c:\\Morfaqat\

و هذا خطأ

[سبحان الله و بحمده, سبحان الله العظيم]

#3

بالنسبة للكود الاول فجوابك صحيح

لكن للاسف انا اريد من العميل ان يدخل مسارحفظ النسخة بنفسه

و كما ترى في الصورة الاولى فان ملف المرفقات موجود مباشرة بعد تحميل الفورم

في الصورة الثانية صورة ال debug

يعني مافي مشكل في الملفات والله اعلم

post-221483-023256600 1347296412_thumb.j

post-221483-070169500 1347296427_thumb.j

المرفقات
Capture.JPGCapture2.JPG
#4

إذا كانت اعدادات اللغة غير مضبوطة كما ينبغي فراح يكون فيه مشكلة في المسارات باللغة العربة

جرب على مسار بحروف انجلش فقط

[سبحان الله و بحمده, سبحان الله العظيم]

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