[atefkhalf2004]

السادة الافاضل
كيف يمكن عرض مسار الملف ال حالي في رسالة
بمعني  انا حددت ملف (اخترت ملف ) عن طريق file dialoge
كيف اعرض المسار الحالي له
وايضا كيف يمكن عرض  المستوي او المسار السابق ( الاعلي )للمسار الحالي
d:\aaa\bbb\ccc.txt

كيف اعرض
d:\aaa\bbb

المسار الاعلي (السابق)
d:\aaa

[وائل القطاوي]

تفضل اخي
افتح مشروع جديد وضع فيه واحد تكست بكس و عدد (2) زر واحذف جميع الاكواد وضع هذا الكود

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim open_file As New OpenFileDialog
open_file.ShowDialog()
TextBox1.Text = open_file.FileName

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox(TextBox1.Text & "مسار الملف")
End Sub
End Class

[atefkhalf2004]

وكيف اعرض المسار الاعلي (السابق)
اسم الملف
d:\aaa\bbb\ccc.txt

المسار الحالي
كيف اعرض
d:\aaa\bbb

المسار الاعلي الفولدر الاكبر
المسار الاعلي (السابق)
d:\aaa

[atefkhalf2004]

حضرتك المعروض هو اسم مع مسار الملف
كيف احدد المسار ثم المسار الاعلي
المجلد المحتوي علي المجلد الموجود به الملف

[amgad525]

PHP كود :

Dim o As New OpenFileDialog
If o.ShowDialog = vbOK Then

    Dim fd() As String = o.FileName.Split("\")

    For i = 0 To fd.Length - 1

        Dim arr(i) As String
        Array.Copy(fd, arr, i + 1)

        Dim s As String = Join(arr, "\")
        MsgBox(s)

    Next

End If 


[atefkhalf2004]

كود ممتاز اشكرك عليه عرض المسار كل جزء علي حدة

---

لكن كيف اجعله يعرض المسار الاعلي للملف الحالي فقط

[amgad525]

PHP كود :

Dim path As String = IO.Path.GetDirectoryName("d:\aaa\bbb\ccc.txt")
MsgBox(path) 


[atefkhalf2004]

حضرتك كده تعرضه لانك عارف المسار
انا عايز
ب opendialoge
ويعرض مثلا المسار d:\aaa
اي السابق لمجلد البرنامج

[atefkhalf2004]

السيد الفاضل اتمني الرد

[atefkhalf2004]

السادة الزملاء
برجاء عرض المجلد الاعلي للملف الحالي واذا واكان الملف داحل مجلد علي الرئيسي يظهر رسالة شكرا