منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تحديد مسار البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=18304)

الصفحات: 1 2

RE: تحديد مسار البرنامج - hassan - 10-12-16

(10-12-16, 11:59 AM)atefkhalf2004 كتب : السادة  الزملاء
برجاء عرض المجلد الاعلي  للملف الحالي  واذا واكان الملف داحل مجلد علي الرئيسي يظهر رسالة شكرا

تفظل 

ضع الكود في بوتن

الكود 
PHP كود :
Dim fs As String = ""
        Dim nc As Integer = 0
        Dim opfd As New OpenFileDialog
        If opfd.ShowDialog = DialogResult.OK Then
            For Each str As String In opfd.FileName
                fs += str
                If str = "\" Then
                    nc = Val(nc) + Val("1")
                End If
                If nc = 2 Then
                    TextBox2.Text = opfd.FileName
                    TextBox1.Text = fs


                End If
            Next
            If nc = 2 Then
                MsgBox("شكرا")

            End If
        End If 

شكرا لك

RE: تحديد مسار البرنامج - atefkhalf2004 - 11-12-16

شكرا جزيلا جدا
هذا هو المطلوب
اتمني ان تعم الفائدة وسوف يجازيك الله خيرا

RE: تحديد مسار البرنامج - سعود - 24-06-23

ادري ان الموضوع قديم لكن استغرب هل الكود التالي لا يعمل في  وقت هذا الموضوع ام لا:
PHP كود :
Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            MsgBox(IO.Path.GetDirectoryName(o.FileName))
        End If