For a = 0 To Dir1. ListCount - 1List1. AddItem Dir1. List If InStr(1, UCase(GetLast(Dir1. List , UCase(Text1. Text)) > 0 ThenSet lv = ListView1. ListItems. Add(, , GetLast(Dir1. List , 1, 1)lv. ListSubItems. Add, , Dir1. PathEnd IfDoEventsNext aFor i = 0 To File1. ListCount - 1If InStr(1, UCase(File1. List , UCase(Text1. Text)) > 0 ThenSet lv = ListView1. ListItems. Add(, , File1. List , 2, 2)lv. ListSubItems. Add, , Dir1. PathEnd IfDoEventsNext i Bu dngüyü kullanarak dizin alıyorum fakat kodları kopyala yapıştır yapıyorum onun için her satırı analiz etmem lazım "If InStr(1, UCase(GetLast(Dir1. List , UCase(Text1. Text)) > 0 Then" bu satırde ve diğer dngüdede bunun file lısı var ne demek istiyor anlamadım ki vbasic de anlamamış olcak ki hata veriyor bu satırlarda.

Tamam yaptım. "Private Sub Command1_Click On Error GoTo bereDim num As LongMe. Tag = "Start"' RESET PAST RESULTS ListView1. ListItems. ClearList1. Clear' ' ADD CURRENT DIRECTORY TO DIRECOTRY TO SEARCH List1. AddItem Dir1. PathList1. ListIndex = 0' ere:If Me. Tag = "Stop" Then GoTo bereMe. Caption = "Search " & ListView1. ListItems. Count & " Results"' GO TO THE NEXT PATH TO SEARCHDir1. Path = List1. Text' ' ADD SUB FOLDERS TO LIST OF FOLDERS TO SEARCH ' EXTRACT FOLDER NAME FROM FOLDER PATH & SEARCH IN THE FOLDER NAME FOR SEARCH STRING 'IF SEARCH STRING FOUND ADDED TO LISTVIEWFor a = 0 To Dir1. ListCount - 1List1. AddItem Dir1. List If InStr(1, UCase(GetLast(Dir1. List , UCase > 0 ThenSet lv = ListView1. ListItems. Add(, , GetLast(Dir1. List , 1, 1)lv. ListSubItems. Add, , Dir1. PathEnd IfDoEventsNext a' ' SERACH ALL FILES FOR SERACH STRING IF FOUND ADD TO LISTVIEWFor i = 0 To File1. ListCount - 1If InStr(1, UCase(File1. List , UCase > 0 ThenSet lv = ListView1. ListItems. Add(, , File1. List , 2, 2)lv. ListSubItems. Add, , Dir1. PathEnd IfDoEventsNext i' ' TO SET NEXT PATH TO CHANGE TOList1. ListIndex = List1. ListIndex + 1GoTo ere' ' SEARCH IS NOW COMPLETEbere:MsgBox "COMPLETE"' End SubPrivate Sub Dir1_Change File1. Path = Dir1. PathDir1. RefreshFile1. RefreshEnd Sub Function GetLast As Stringtxt = Split GetLast = txt(UBound End FunctionPrivate Sub Drive1_Change On Error Resume NextDir1. Path = Drive1. DriveDir1. RefreshFile1. RefreshEnd SubPrivate Sub Form_Load File1. Pattern = " . "End SubPrivate Sub Form_Unload EndEnd Sub"Kodun tamamı ble bu işlem ile dizinleme yapılıyor. Şimdi arama bittikten sonra bunları kaydetmek mesele.

Kısacası FOr Dngüsi ile bunları texte kaydettireceğim fakat listview den nasıl kolonlarından veri çekileceğini bilmiyorum.