منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحديد مسار البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السادة الافاضل
كيف يمكن عرض مسار الملف ال Confused حالي في رسالة
بمعني  انا حددت ملف (اخترت ملف ) عن طريق 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
وكيف اعرض المسار الاعلي (السابق)
اسم الملف
d:\aaa\bbb\ccc.txt

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

المسار الاعلي الفولدر الاكبر
المسار الاعلي (السابق)
d:\aaa
حضرتك المعروض هو اسم مع مسار الملف
كيف احدد المسار ثم المسار الاعلي
المجلد المحتوي علي المجلد الموجود به الملف
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 
كود ممتاز اشكرك عليه عرض المسار كل جزء علي حدة

لكن كيف اجعله يعرض المسار الاعلي للملف الحالي فقط
PHP كود :
Dim path As String IO.Path.GetDirectoryName("d:\aaa\bbb\ccc.txt")
MsgBox(path
حضرتك كده تعرضه لانك عارف المسار
انا عايز
ب opendialoge
ويعرض مثلا المسار d:\aaa
اي السابق لمجلد البرنامج
السيد الفاضل اتمني الرد
السادة الزملاء
برجاء عرض المجلد الاعلي للملف الحالي واذا واكان الملف داحل مجلد علي الرئيسي يظهر رسالة شكرا
الصفحات : 1 2