[سوال] سرچ يك پوشه و حذف محتويات آن در ويژوال بيسيك

[USer Spy]

با عرض سلام
اساتيد و دوستان گرامي من يه برنامه مي خوام كه بتونه يه پوشه(كه در برنامه براش تعريف شده باشه) رو در يك درايو سرچ كنه
و بعد از اينكه پوشه رو يافت محتويات درون آن را حذف كند.
به بيان ديگر من ميخوام اين برنامه بتونه پوشه Nero در درايو C
رو سرچ كنه و بعد از اينكه پوشه Nero را پيدا كرد،
محتويات درون آن را كاملا حذف نمايد.
دوستان اين برنامه رو خيلي خيلي احتياج دارم اونم ضروري
و عاجزانه خواهش ميكنم اگه كسي ميتونه اين برنامه رو بنويسه،
از نوشتنش دريغ نكنه در ضمن بنده براي جبران اندكي،
از وقتي كه براي نوشتن برنامه صرف كرده كارت شارژ پ.خ ميكنم.

[Ghoghnus]

با عرض سلام
اساتيد و دوستان گرامي من يه برنامه مي خوام كه بتونه يه پوشه(كه در برنامه براش تعريف شده باشه) رو در يك درايو سرچ كنه
و بعد از اينكه پوشه رو يافت محتويات درون آن را حذف كند.
به بيان ديگر من ميخوام اين برنامه بتونه پوشه 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

اینجا کسی واسه کارت شارژ به کسی کمک نمیکنه!فقط راهنمایی میکنن در حد توان.....