ايران ويج

سلام دوستان

من می خواهم که با تابع 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

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

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

سلام

کد: 
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 مقدارش تغییر میکنه
باید خط آخر رو ببری داخل حلقه

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

موفق باشيد

saeedvir

babyy

dreamvbfox