پیدا کردن یک فایل در کامپیوتر با ویژوال بیسیک

[silent718]

با سلام خدمت تمامی دوستان
من تازه کار با ویژوال بیسیکو شروع کردم و مبتدی ام
می خواستم نام یک فایلو تو یه کادر متن بنویسم و با کلیک روی دکمه سرچ اونو تو کامپیوتر پیدا کنم و با کلیک روی دکمه حذف هم اونو حذف کنم. اگه زحمتی نبود یه کمکی بکنید. این برنامه خیلی لازممه اگه کسی تونست از کمکش دریغ نکنه.

با تشکر

[silent718]

کسی نیست کمک کنه؟

[abbasalifix]

یه برنامه آماده میزارم

[silent718]

میشه این خط ها رو برام تفسیر کنی؟

TempStr = String(MAX_PATH, 0)
Result = SearchTreeForFile(D & "\", Text1.Text & C, TempStr)
If Result <> 0 Then
Text2.Text = Left$(TempStr, InStr(1, TempStr, Chr$(0)) - 1)
Else
Text2.Text = " فايل يافت نشد"

مر30

[abbasalifix]

ثابت MAX_PATH هم که حداکثر بافر مسیر مورد جستجو رو مشخص میکنه

پاسخ جست و جو رو در یک فایل با نام txt1 و فورمت .txt ذخیره کن

اگر چیزی رو پیدا نکرد ارور بده که فایل یافت نشد

---

خروجی تابع عددی است که در متغییر Result قرارخواهد گرفت.اگر Result=0 باشد یعنی که فایل مورد نظر یافت نشده اگر Result عددی غیر صفرشد فایل مورد نظر پیدا شده

[silent718]

اگه بخوایم درایو و مسیر بهش ندیم چه تغییراتی باید تو این کد ایجاد کنیم؟ یعنی بخوایم دنبال اون فایل تو کل کامپیوتر بگرده
درمورد این که فایل رو هم حذف کنیم یه توضیحی بدین!!
درکل اگه مقاله یا آموزشی درمورد جست و جو فایل دارین بزارین برام
با تشکر

[abbasalifix]

اونوقت میتونید همین برنامه رو برای درایو های دیگه هم داشته باشین

---

کد:

Public Sub DelAll(ByVal DirtoDelete As Variant)

Dim FSO, FS
Set FSO = CreateObject("Scripting.FileSystemObject")
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub

Private Sub delet_Click()
Call DelAll("C:\New Folder")
End Sub

مثلا پوشه نیوفولدر رو میخوایم پاک کنیم

---

شما میتونید به جای اسم این متغییر آدرس و نام فایل جست و جو شده رو بهش بدین

[silent718]

ببخشید زیاد سوال می پرسم
اگه بخوایم مثلا فایلایی که جست و جو میشن بین100kmو2mb باشن باید چیکار کنیم؟
سوال بعدی:
اگه بخوایم اسم فایلو ندیم یعنی تمام فایلایی که فرمتشون مثلا jpg. هست رو پیدا کنیم چه تغییری باید بدیم؟
واقعا ممنونم

[abbasalifix]

http://patogheman.ir/showthread.php?2529...%DA%A9-6-0

[REZA57136]

سلام
متاسفانه هرچه اين برنامه را كپي ميكنم توي يك پروژه جديد انجا هيچي پيدا نميكند برنامه را خط به خط كپي ميكنم اما جواب نميدهد
با سپاس

[Ghoghnus]

ببخشید زیاد سوال می پرسم
اگه بخوایم مثلا فایلایی که جست و جو میشن بین100kmو2mb باشن باید چیکار کنیم؟
سوال بعدی:
اگه بخوایم اسم فایلو ندیم یعنی تمام فایلایی که فرمتشون مثلا jpg. هست رو پیدا کنیم چه تغییری باید بدیم؟
واقعا ممنونم

به دست آوردن اندازه فایل
واسم اسم فایل هم میتونی از * استفاده کنی !
*.jpg