الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أبحث عن ملف في جهازي عن طريق اسم الملف فقط ؟؟!

بدأه الفضولي في 18 يونيو 2010 · 6 رد · 697 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

هل أستطيع أن أبحث عن مجلد أو ملف داخل جهازي عن طريق اسمه فقط من غير كتابة الباث(Path) كامل

وأنا لدي هذا الكود الذي يبحث ولكن عن طريق الباث (Path) كاملاً

هذا الكود:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Dir("c:\test.txt") <> "" Then
            MsgBox("الملف موجود")
        Else
            MsgBox("الملف غير موجود")
        End If
    End Sub

أرجو الرد :happy:

--------------------------------

شكوت إلى وكيع سوء حفظي ** فأرشدني إلى ترك المعاصي

وأخبرني بأن العلم نــور ** ونور الله لا يهـدى لعاصي [الإمام الشافعي]

#2

لسلام عليكم

أخي الكريم

هذه بعض الخطوات التي تسمى دوال النصية بالكود التالي وشرحت به وظيفة كل سطر:

'إحفظ المسار في متغير للتعامل معه

كود

Dim path As String = "d:\aa\bb\gg\filename.jpg"

'إحسب عدد خانات المسار في متغير من نوع رقم

كود

Dim LengthOfFileName As Integer = path.Trim().Length

'(\)إحسب عدد خانات المسار إبتداءَ من آخر سلاش

كود

Dim fileLastIndex As Integer = path.LastIndexOf("\")

'Substring قطع النص المطلوب بالدالة

كود

path = path.Substring(fileLastIndex, LengthOfFileName - (fileLastIndex))

'إزالة السلاش(\) في بداية اسم الملف

كود

path = path.Remove(0, 1).Trim()

وبالتوفيق إن شاء الله

نقلا" عن مشاركة سابقة للعضو megren

#3

السلام عليكم ورحمة الله وبركاته

شكراً على المرور أخي بهاء

ولكنك لم تفهمني أنا لا أريد كتابة أي باث Path أصلاً

أريد فقط تكست بوكس (Textbox) وبوتتون (Button) وعند كتابة اسم ملف عادي مثلاً : test.txt والضغط على الـButton يبحث عن الملف في السي والدي حتى يجده

ولقد وضعت صورة في الملحقات لترى المقصود

وآسف على تأخري في الرد

وأرجو جواباً لأنني واثق من أن هذا المنتدى سيساعدني إن شاء الله

---------------------------------------------------

post-230181-003708500 1276930456_thumb.p

المرفقات
3.png

تم تعديل هذه المشاركة بواسطة الفضولي في 19 يونيو 2010 في 09:56

شكوت إلى وكيع سوء حفظي ** فأرشدني إلى ترك المعاصي

وأخبرني بأن العلم نــور ** ونور الله لا يهـدى لعاصي [الإمام الشافعي]

#4

أخي الكريم

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

أو تقوم بعمل reversion Procedure أو اجرائيات عودية ..

ويمكنك استخدام معها ايضا 

    	System.IO.Directory.GetDirectories("C:\")
    	System.IO.Directory.GetFiles("C:\", "*text.txt")

بالتوفيق

تم تعديل هذه المشاركة بواسطة was_hal في 20 يونيو 2010 في 15:09

1338031614581.png

" اللهــم إنّا مغلــوبــون فانتصــــر "

(اللهم سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم)

#6
محمد رضى كتب:

أنظر هنا :

http://www.arabteam2...dpost&p=1019144

بالتوفيق :)

جزاك الله خيرا أخي محمد ماشاء الله عليك والله هي الأمثلة كنز للمنتدى .. أرجو أن تثبت ليستفيد منها الأعضاء دائما

تحياتي ..wink.gif

1338031614581.png

" اللهــم إنّا مغلــوبــون فانتصــــر "

(اللهم سبحانك لا علم لنا إلا ما علمتنا إنك أنت العليم الحكيم)

#7

شكراً لكم جميعاً والله لقد أفدتوني كلكم

وأنا كنت متأكد من أن الجواب سيأتي قريباً

-----------------------

:) :) :) :)

وشكراً على مروركم

وجزاكم الله خيراً

آسف على التأخر

شكوت إلى وكيع سوء حفظي ** فأرشدني إلى ترك المعاصي

وأخبرني بأن العلم نــور ** ونور الله لا يهـدى لعاصي [الإمام الشافعي]

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…