[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 


شكرا لك