[hassan]

(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 


شكرا لك

[atefkhalf2004]

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

[سعود]

ادري ان الموضوع قديم لكن استغرب هل الكود التالي لا يعمل في  وقت هذا الموضوع ام لا:

PHP كود :

Dim o As New OpenFileDialog
        If o.ShowDialog = DialogResult.OK Then
            MsgBox(IO.Path.GetDirectoryName(o.FileName))
        End If