اخواني الكرام سبق طرحت مشكلة وما لقيت الجواب عليها ارغب بعرض مشكلتي بطريقة مبسطة
كيف بقدر باداة 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
(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
اخي الكريم شكرا كثير الك انحلت المشكلة وتمام لكن ياريت تساعدني كيف بقدر اختار اسم مجلد
وشكرا الك
اخي الكريم عذرا لم افهم ماذا تريد من اختيار مجلد
وضح طلبك اكثر سارد عليك لاحقا
(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
(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
شكرا اخي الكريم جازاك الله خيرا
كله تمام
اخي الكريم اتحملني هل استطيع اختيار مجلد موجود ضمن مجلد اخر وشكرا لك سلفا
اخي الكريم
ايا كان المجلد ولو عدة مجلدات داخل بعضها سيجلب لك المسار للمجلدات ويجلب اسم أخر مجلد
نفس الكود
(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"