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

[korosh 2]

سلام یک کد میخواستم که بتونم بش یک فایل رو پیدا کنم

[NASA's Spaceman]

این یه نوع جستو جو توی برنامه خودت هست
توی جنرال
dim a(1 to 10)as integer
و اینا رو تو یه دکمه بزار برا جستوجو
Private Sub Command1_Click()For i = 1 To 10
a(i) = InputBox("")
Next i
low = 1
high = 10
found = False
n = InputBox("")
Do While high > low And Not found
Mid = (low + high) / 2
If n = a(Mid) Then
found = True
Print Mid; position
End If
If n < a(Mid) Then high = Mid - 1
If n > a(Mid) Then low = Mid + 1
Loop
Print found; position
End Sub

فقط یادت باشه اطلاعات واد شده باشه و اگه تعدادش بیشتر از ده تا شد باید اون مقدار for و آرایه و high هم عوض بشه
و اگه متوجه نشدی کد چجوری کار میکنه بگو تا برات توضیح بدم

[korosh 2]

رفیق دمت گرم اما نتونستم از این کدت استفاده کنم اگه خودت یک برنامه برای جستجو بسازی و سورسش رو برای دانلود قرار بدی خیلی عالی میشه اما بازم دمت گرم

[NASA's Spaceman]

بفرما اینم از نمونه برنامه
فقط ببخشید یکم دیر ساختمش
https://www.zeta-uploader.com/231900712