10-12-16, 02:22 PM
(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
شكرا لك