[EMAD268716]

اخواني الكرام سبق طرحت مشكلة وما لقيت الجواب عليها ارغب بعرض مشكلتي بطريقة مبسطة
كيف بقدر باداة open file ledialog  اضع في التكست بوكس اسم الملف المختار وامتداده فقط بدون المسار كاملا
وهل استطيع اختيار اسم مجلد وامتداده وليس فقط صورة او كتاب
ياريت المساعدة وشكرا سلفا
جازاكم الله عنا خيرا

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
اخي الكريم قم بانشاء مشروع جديد وضع عدد 3 textBox و1 Button وضع هذا الكود في البوتون
سيجلب لك مسار الملف في Textbox1 واسم الملف ولاحقته في TextBox2 ولاحقة الملف فقط في textbox3
طبعا الفلتر هنا فقك للملفات من نوع txt يمكنك تغيير الفلتر حسب ماتريد

كود :

  Dim Ofd As New OpenFileDialog()
       Ofd.Filter = " pdf file |*.Pdf| Text file|*.txt"
       If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = Ofd.FileName
           TextBox1.Text = path
           Dim filnam As New IO.FileInfo(path) ' تعريف متغير
           TextBox2.Text = filnam.Name ' جلب اسم الملف ولاحقته
           TextBox3.Text = filnam.Extension ' جلب لاحقة الملف
       End If

[EMAD268716]

(23-09-19, 10:27 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته
اخي الكريم قم بانشاء مشروع جديد وضع عدد 3 textBox و1 Button وضع هذا الكود في البوتون
سيجلب لك مسار الملف في Textbox1 واسم الملف ولاحقته في TextBox2 ولاحقة الملف فقط في textbox3
طبعا الفلتر هنا فقك للملفات من نوع txt يمكنك تغيير الفلتر حسب ماتريد

كود :

  Dim Ofd As New OpenFileDialog()
       Ofd.Filter = " pdf file |*.Pdf| Text file|*.txt"
       If Ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = Ofd.FileName
           TextBox1.Text = path
           Dim filnam As New IO.FileInfo(path) ' تعريف متغير
           TextBox2.Text = filnam.Name ' جلب اسم الملف ولاحقته
           TextBox3.Text = filnam.Extension ' جلب لاحقة الملف
       End If

اخي الكريم شكرا كثير الك انحلت المشكلة وتمام لكن ياريت تساعدني كيف بقدر اختار اسم مجلد
وشكرا الك

[ابراهيم ايبو]

اخي الكريم عذرا لم افهم ماذا تريد من اختيار مجلد

وضح طلبك اكثر سارد عليك لاحقا 

[EMAD268716]

(23-09-19, 11:20 PM)ابراهيم ايبو كتب :

اخي الكريم عذرا لم افهم ماذا تريد من اختيار مجلد

وضح طلبك اكثر سارد عليك لاحقا 

اخي الكريم بالكود الذي ارسلته لي اصبحت استطيع تحديد كتاب او صورة وقمت باضافة زر افتح من خلاله هذا الكتاب او الصورة خارح الفورم
اردت فقط هل استطيع اختيار مجلد كامل اي تحديد اسم مجلد

[ابراهيم ايبو]

السلام عليكم اخي الكريم
لتحديد مجلد وجلب اسمه سنحتاج الى اداة FolderBrowserDialog
انشئ مشروع جديد وضع 2 تكست بوكس و1 بوتون وضع هذا الكود في البوتن
التكست بوكس 1 يجلب المسار مع اسم المجلد والتكست بوكس 2 يجلب اسم المجلد

كود :

Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = fbd.SelectedPath
           TextBox1.Text = path
           Dim dir As New IO.DirectoryInfo(path)
           TextBox2.Text = dir.Name
       End If

[EMAD268716]

(24-09-19, 01:52 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
لتحديد مجلد وجلب اسمه سنحتاج الى اداة FolderBrowserDialog
انشئ مشروع جديد وضع 2 تكست بوكس و1 بوتون وضع هذا الكود في البوتن
التكست بوكس 1 يجلب المسار مع اسم المجلد والتكست بوكس 2 يجلب اسم المجلد

كود :

Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = fbd.SelectedPath
           TextBox1.Text = path
           Dim dir As New IO.DirectoryInfo(path)
           TextBox2.Text = dir.Name
       End If

شكرا اخي الكريم جازاك الله خيرا
كله تمام

---

(24-09-19, 04:28 PM)EMAD268716 كتب :

(24-09-19, 01:52 AM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
لتحديد مجلد وجلب اسمه سنحتاج الى اداة FolderBrowserDialog
انشئ مشروع جديد وضع 2 تكست بوكس و1 بوتون وضع هذا الكود في البوتن
التكست بوكس 1 يجلب المسار مع اسم المجلد والتكست بوكس 2 يجلب اسم المجلد

كود :

Dim fbd As New FolderBrowserDialog()
       If fbd.ShowDialog() = Windows.Forms.DialogResult.OK Then
           Dim path As String = fbd.SelectedPath
           TextBox1.Text = path
           Dim dir As New IO.DirectoryInfo(path)
           TextBox2.Text = dir.Name
       End If

شكرا اخي الكريم جازاك الله خيرا
كله تمام

اخي الكريم اتحملني هل استطيع اختيار مجلد موجود ضمن مجلد اخر وشكرا لك سلفا

[ابراهيم ايبو]

اخي الكريم 

ايا كان المجلد ولو عدة مجلدات داخل بعضها سيجلب لك المسار للمجلدات ويجلب اسم أخر مجلد

نفس الكود

[EMAD268716]

(24-09-19, 09:00 PM)ابراهيم ايبو كتب :

اخي الكريم 

ايا كان المجلد ولو عدة مجلدات داخل بعضها سيجلب لك المسار للمجلدات ويجلب اسم أخر مجلد

نفس الكود

اخي المريم اعلم ذلك لكن اذا بقدر اختار فقط مجلد محدد بذاته موجود داخل اخر كان يكون المجلد الرئيسي ضمنه مجلدات كل مجلد خاص باسم عميل معين بذاته
ارغب بفتح مجلد العميل مباشرة دون المرور على المجلد الرئيسي
فانا صممت برنامج البحث عن اسم عميل ولكل عميل مجلد خاص به عندما اجد اسم العميل يكون مسار مجلده محفوظ بجانب اسمه اضغط على زر بوتن يفتح المجلد الخاص به بذاته دون المرور على المجلد الرئيسي

---

(24-09-19, 09:13 PM)EMAD268716 كتب :

(24-09-19, 09:00 PM)ابراهيم ايبو كتب :

اخي الكريم 

ايا كان المجلد ولو عدة مجلدات داخل بعضها سيجلب لك المسار للمجلدات ويجلب اسم أخر مجلد

نفس الكود

اخي المريم اعلم ذلك لكن اذا بقدر اختار فقط مجلد محدد بذاته موجود داخل اخر كان يكون المجلد الرئيسي ضمنه مجلدات كل مجلد خاص باسم عميل معين بذاته
ارغب بفتح مجلد العميل مباشرة دون المرور على المجلد الرئيسي
فانا صممت برنامج البحث عن اسم عميل ولكل عميل مجلد خاص به عندما اجد اسم العميل يكون مسار مجلده محفوظ بجانب اسمه اضغط على زر بوتن يفتح المجلد الخاص به بذاته دون المرور على المجلد الرئيسي

اي اخي الكريم فهمت هلق عليك ومشي الحال شكرا لك كثير

---

(24-09-19, 09:13 PM)EMAD268716 كتب :

(24-09-19, 09:00 PM)ابراهيم ايبو كتب :

اخي الكريم 

ايا كان المجلد ولو عدة مجلدات داخل بعضها سيجلب لك المسار للمجلدات ويجلب اسم أخر مجلد

نفس الكود

اخي المريم اعلم ذلك لكن اذا بقدر اختار فقط مجلد محدد بذاته موجود داخل اخر كان يكون المجلد الرئيسي ضمنه مجلدات كل مجلد خاص باسم عميل معين بذاته
ارغب بفتح مجلد العميل مباشرة دون المرور على المجلد الرئيسي
فانا صممت برنامج البحث عن اسم عميل ولكل عميل مجلد خاص به عندما اجد اسم العميل يكون مسار مجلده محفوظ بجانب اسمه اضغط على زر بوتن يفتح المجلد الخاص به بذاته دون المرور على المجلد الرئيسي

---

(24-09-19, 09:13 PM)EMAD268716 كتب :

(24-09-19, 09:00 PM)ابراهيم ايبو كتب :

اخي الكريم 

ايا كان المجلد ولو عدة مجلدات داخل بعضها سيجلب لك المسار للمجلدات ويجلب اسم أخر مجلد

نفس الكود

اخي المريم اعلم ذلك لكن اذا بقدر اختار فقط مجلد محدد بذاته موجود داخل اخر كان يكون المجلد الرئيسي ضمنه مجلدات كل مجلد خاص باسم عميل معين بذاته
ارغب بفتح مجلد العميل مباشرة دون المرور على المجلد الرئيسي
فانا صممت برنامج البحث عن اسم عميل ولكل عميل مجلد خاص به عندما اجد اسم العميل يكون مسار مجلده محفوظ بجانب اسمه اضغط على زر بوتن يفتح المجلد الخاص به بذاته دون المرور على المجلد الرئيسي

اي اخي الكريم فهمت هلق عليك ومشي الحال شكرا لك كثير

اخي الكريم وضعت هذا الكود لكي اجبر تحديد مسار  ملف موجود ضمن مجلد اسمه d ونجحت في ذلك والحمد لله
لكن كيف استطيع ان افعل ذلك بخصوص المجلدات اي عند الضغط على البوتن الحاص بالبحث عن مسار مجلد اجبره ان ينتقل للمجلد d مباشرة ومنه اختار المجلد المقصود دون المرور على مجلدات اخرى لكي اصل للمجلد d
"\OpenFileDialog1.InitialDirectory = Application.StartupPath & "\d

[ابراهيم ايبو]

اخي الكريم
اضف هذا السطر وظيفته فتح النافذة على المجلد الذي ستحدد مساره مثلا تريد الوصول الى المجلد BB

كود :

fbd.InitialDirectory = "D:\AA\BB"