ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > سرچ يك پوشه و حذف محتويات آن در ويژوال بيسيك
نسخه‌ی کامل: سرچ يك پوشه و حذف محتويات آن در ويژوال بيسيك
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

USer Spy

۱۴-مرداد-۱۳۹۲, ۱۱:۳۸:۴۵
با عرض سلام
اساتيد و دوستان گرامي من يه برنامه مي خوام كه بتونه يه پوشه(كه در برنامه براش تعريف شده باشه) رو در يك درايو سرچ كنه
و بعد از اينكه پوشه رو يافت محتويات درون آن را حذف كند.
به بيان ديگر من ميخوام اين برنامه بتونه پوشه Nero در درايو C
رو سرچ كنه و بعد از اينكه پوشه Nero را پيدا كرد،
محتويات درون آن را كاملا حذف نمايد.
دوستان اين برنامه رو خيلي خيلي احتياج دارم اونم ضروري
و عاجزانه خواهش ميكنم اگه كسي ميتونه اين برنامه رو بنويسه،
از نوشتنش دريغ نكنه در ضمن بنده براي جبران اندكي،
از وقتي كه براي نوشتن برنامه صرف كرده كارت شارژ پ.خ ميكنم.

Ghoghnus

۱۴-مرداد-۱۳۹۲, ۱۲:۳۸:۱۳
(۱۴-مرداد-۱۳۹۲, ۱۱:۳۸:۴۵)USer Spy نوشته است: [ -> ]با عرض سلام
اساتيد و دوستان گرامي من يه برنامه مي خوام كه بتونه يه پوشه(كه در برنامه براش تعريف شده باشه) رو در يك درايو سرچ كنه
و بعد از اينكه پوشه رو يافت محتويات درون آن را حذف كند.
به بيان ديگر من ميخوام اين برنامه بتونه پوشه Nero در درايو C
رو سرچ كنه و بعد از اينكه پوشه Nero را پيدا كرد،
محتويات درون آن را كاملا حذف نمايد.
دوستان اين برنامه رو خيلي خيلي احتياج دارم اونم ضروري
و عاجزانه خواهش ميكنم اگه كسي ميتونه اين برنامه رو بنويسه،
از نوشتنش دريغ نكنه در ضمن بنده براي جبران اندكي،
از وقتي كه براي نوشتن برنامه صرف كرده كارت شارژ پ.خ ميكنم.
برای حذف از دستور
کد:
Kill "C:\*.*"
برای جستجو هم این کد میتونه کمکتون کنه!
کد:
Function searchDir(path)
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
Set folder = FSO.getfolder(path)
Set Files = folder.Files
Set subfolders = folder.subfolders
For Each subfolder In subfolders
List1.AddItem subfolder.path
Next
End Function

Private Sub Command1_Click()
searchDir ("c:\")
End Sub

اینجا کسی واسه کارت شارژ به کسی کمک نمیکنه!فقط راهنمایی میکنن در حد توان.....
ايران ويج > برنامه نویسی > ويژوال بيسيك > سرچ يك پوشه و حذف محتويات آن در ويژوال بيسيك