با سلام خدمت تمامی دوستان
من تازه کار با ویژوال بیسیکو شروع کردم و مبتدی ام
می خواستم نام یک فایلو تو یه کادر متن بنویسم و با کلیک روی دکمه سرچ اونو تو کامپیوتر پیدا کنم و با کلیک روی دکمه حذف هم اونو حذف کنم. اگه زحمتی نبود یه کمکی بکنید. این برنامه خیلی لازممه اگه کسی تونست از کمکش دریغ نکنه.
با تشکر
میشه این خط ها رو برام تفسیر کنی؟
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
ثابت MAX_PATH هم که حداکثر بافر مسیر مورد جستجو رو مشخص میکنه
پاسخ جست و جو رو در یک فایل با نام txt1 و فورمت .txt ذخیره کن
اگر چیزی رو پیدا نکرد ارور بده که فایل یافت نشد
خروجی تابع عددی است که در متغییر Result قرارخواهد گرفت.اگر Result=0 باشد یعنی که فایل مورد نظر یافت نشده اگر Result عددی غیر صفرشد فایل مورد نظر پیدا شده
اگه بخوایم درایو و مسیر بهش ندیم چه تغییراتی باید تو این کد ایجاد کنیم؟ یعنی بخوایم دنبال اون فایل تو کل کامپیوتر بگرده
درمورد این که فایل رو هم حذف کنیم یه توضیحی بدین!!
درکل اگه مقاله یا آموزشی درمورد جست و جو فایل دارین بزارین برام
با تشکر
اونوقت میتونید همین برنامه رو برای درایو های دیگه هم داشته باشین
کد:
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
مثلا پوشه نیوفولدر رو میخوایم پاک کنیم
شما میتونید به جای اسم این متغییر آدرس و نام فایل جست و جو شده رو بهش بدین
ببخشید زیاد سوال می پرسم
اگه بخوایم مثلا فایلایی که جست و جو میشن بین100kmو2mb باشن باید چیکار کنیم؟
سوال بعدی:
اگه بخوایم اسم فایلو ندیم یعنی تمام فایلایی که فرمتشون مثلا jpg. هست رو پیدا کنیم چه تغییری باید بدیم؟
واقعا ممنونم
سلام
متاسفانه هرچه اين برنامه را كپي ميكنم توي يك پروژه جديد انجا هيچي پيدا نميكند برنامه را خط به خط كپي ميكنم اما جواب نميدهد
با سپاس
(۲۷-مرداد-۱۳۹۱, ۱۴:۱۰:۵۰)silent718 نوشته است: [ -> ]ببخشید زیاد سوال می پرسم
اگه بخوایم مثلا فایلایی که جست و جو میشن بین100kmو2mb باشن باید چیکار کنیم؟
سوال بعدی:
اگه بخوایم اسم فایلو ندیم یعنی تمام فایلایی که فرمتشون مثلا jpg. هست رو پیدا کنیم چه تغییری باید بدیم؟
واقعا ممنونم
به دست آوردن اندازه فایل
واسم اسم فایل هم میتونی از * استفاده کنی !
*.jpg