مشکل با جست و جو فایل (مهم)

[saeedvir]

سلام دوستان

من می خواهم که با تابع SearchTreeForFile چند تا فایل را جستوجو کنم ولی به مشکل بر خوردم ،

من می خواهم که تمام آیتم های یک لیست باکس را در یک مسیر مثلا

کد:

c:\test\

جست و جو کنم - و فایل های پیدا شده را در یک لیست باکس دیگه وارد کنم (Add کنم)
ولی فقط یکی از فایل های پیدا شده را به لیست باکس دوم اضافه می کنه

اینم سورس :

کد:

Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Private Const MAX_PATH = 260

Private Sub form_load()
List1.AddItem "a.exe"
List1.AddItem "b.exe"
List1.AddItem "c.exe"
List1.AddItem "d.exe"
List1.AddItem "e.exe"
List1.AddItem "f.exe"
List1.AddItem "g.exe"
End Sub
Private Sub Command1_Click()
Dim TempStr As String
Dim Result As Long
Dim i As Integer
TempStr = String(MAX_PATH, 0)
'==============================
For i = 0 To List1.ListCount - 1
Result = SearchTreeForFile("c:\test\", List1.List(i), TempStr)
DoEvents
Next
List2.AddItem Left$(TempStr, InStr(1, TempStr, Chr$(0)) - 1)
End Sub

در ضمن سورس را آپلود هم کردم

دوستان لطف کنید کمک کنید

[babyy]

سلام

کد:

For i = 0 To List1.ListCount - 1
Result = SearchTreeForFile("c:\test\", List1.List(i), TempStr)
DoEvents
Next
List2.AddItem Left$(TempStr, InStr(1, TempStr, Chr$(0)) - 1)

احتمالا مشکل از اینجاست ؛ شما نتایج رو ریختید تو result ؛ هر دفعه هم result مقدارش تغییر میکنه
باید خط آخر رو ببری داخل حلقه

[dreamvbfox]

سورس رو ضميمه كردم. يه نگاه بندازيد مي فهميد مشكلش از كجاست.

موفق باشيد