منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] OpenFileDialog1 - نسخة قابلة للطباعة

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

OpenFileDialog1 - adel27 - 30-11-15

السـلام عليكم الموضوع واضح من عنوانه محتاج مسـاعدتكم بخصوص موضوع بسيط أنشـاء الله 

أحتاج بأستخدام هذه الأداه خصيصاً أن أنقل مجلد بمحتواه من المسـار الثابت إلى سطح المكتب 
مع أمكانية تحديد أكثر من مجلد


كود :
 OpenFileDialog1.InitialDirectory = "\\169.254.253.148\All_Data"
       If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then


RE: OpenFileDialog1 - adel27 - 30-11-15

كود :
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           Directory.Move("C:\", "C:\Users\DOL\Desktop\")
       End If
بهذه الخاصيه أحتاج إلى تحديد مجلد وأرساله طبعاً المسـارين ثابته 
أحتاج كود ينقل أي مجلد بمحتوياته حتى ولو كان يحتوي مجلدات

RE: OpenFileDialog1 - hassan - 30-11-15

كيف تقوم بتعامل مع فولدرات عن طريق OpenFileDialog ؟؟؟؟؟؟؟؟


الطريقه الصحيحه ضيف اداة FolderBrowserDialog وقوم بوضع هاذا الكود في البوتن

PHP كود :
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            My.Computer.FileSystem.CopyDirectory(FolderBrowserDialog1.SelectedPath, "المسار الثابت", True)
        End If 
مع شرط كتابة المسار الثابت


وشكرا