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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] بخصوص المجلدات (/showthread.php?tid=13800)

الصفحات: 1 2


بخصوص المجلدات - adel27 - 12-11-15

عندي أستفسـالر بخصوص المجلدات 


الزرار الأول (زرار أختيار الملف)
أحتـاج إلى كود أنشـاء مجلد في سطح المكتب وعند أنشـائه يظهر للمستخدم تكست بكس فاضي ليضع التسميه التي يريدها للمجلد

الزرار الأخر (زر تحديد الملف)
يقوم المستخدم بتحديد المجلد الذي يريده بأستخدام OpenFileDialog1_FileOk في سطح المكتب

الزرار الأخيـر (زر الأرسـال )
بعد تحديد المجلد بالضغط على زر الأرسال ليقوم المستخدم بأرسـال المجلد إلى مسـار ثابت 

وشكراً


RE: بخصوص المجلدات - adel27 - 13-11-15

2025 مشــاهده ولا يوجد مشـاركه واحده  Blush


RE: بخصوص المجلدات - DR.YASER - 13-11-15

أخى عادل
بخصوص طلبك الأول

إقتباس :الزرار الأول (زرار أختيار الملف)

أحتـاج إلى كود أنشـاء مجلد في سطح المكتب وعند أنشـائه يظهر للمستخدم تكست بكس فاضي ليضع التسميه التي يريدها للمجلد


دعنى اشرح لك التالى :
انشاء مجلد على مسار محدد داخل الكود :
و تحديدا هنا ينشئ مجلد اسمه forlder على درايف أو الوحدة C
كود :
("FileSystem.MkDir("C:\forlder
أعلم طبعا أنك تريد انشاء المجلد  في سطح المكتب وعند أنشـائه يظهر للمستخدم تكست بكس فاضي ليضع التسميه التي يريدها للمجلد ..

ما فى مشكلة تابع معى :

هذا الكود لمعرفة مسار سطح المكتب .. و هو عبار عن دالة تعطى مسار و اسم سطح المكتب و انشاء مجلد عليه و المجلد يتم ادخاله من صندوق نص على الفورم كيفما ترغب 



كود :
 Public Function Desktoppath() As String

        Dim semo As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & TextBox1.Text

        Desktoppath = semo

    End Function

و مثال لذلك مرفق 


RE: بخصوص المجلدات - adel27 - 13-11-15

أشكرك على ردك ولكن يا غالي المرفق لا يعمل


RE: بخصوص المجلدات - أسامة - 13-11-15

السلام عليكم تفضل اخى
كود :
 Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       '+اسم المجلد مسار المجلد
       Dim path As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\adel27"
       'اذالم يعثر على المجلد ينشأ مجلد جيدي
       If Not Directory.Exists(path) Then
           Directory.CreateDirectory(path)
       End If
   End Sub



RE: بخصوص المجلدات - adel27 - 13-11-15

محتاج كود تحديد ملجلد وأسوي له أرسال إلى أي مكان


RE: بخصوص المجلدات - أسامة - 13-11-15

(13-11-15, 01:53 PM)adel27 كتب : محتاج كود تحديد ملجلد وأسوي له أرسال إلى أي مكان

هل تقصد نقل المجلد من مكان الى مكان اخر ؟


RE: بخصوص المجلدات - adel27 - 13-11-15

أخوي أسامه عندي 2 بتن 
1 ينشـأ مجلد 
2 يرسل المجلد إلى D
أحتاج كود أرسال الملجد إلى d


RE: بخصوص المجلدات - adel27 - 13-11-15

أخوي خضـر برنامجي يحتاج إلى هذه الطريقه 

أنا أحتاج الأن زر لما أختار المجلد عند طريق أوبن شو دايلق وأضيف داخل اللست بكس المجلد بمحتوياته 

أضغط على زر أرسـل 
يقوم هذا الزر بأرسال المجلد إلى D 

يعني ينقل المجلد من سطح المكتب ويوديه إلى d

 طبعاً ممكن بعض الأخوان يقول ليه ما تنشأ الملف في الدي 

أنا أقول له لابد أنشائه على سطح المكتب أولاً هذه الطريقه مهمه 

ما أحتاجه أنا هو تحديد المجلد في سطح المكتب ومن ثم الضغط على زر أرسال يرسله إلى D


RE: بخصوص المجلدات - adel27 - 14-11-15

شاكر ومقدر