how to find files

Comments

• Rafael Maricca (LMD)

  February 2014

  There is no built-in search feature (except certainly some sort of manual search in the items list of LMDShellFolder control).

  SearchPack offers search funtionality (including text search).
• nurrohmawadi

  February 2014

  how to use LMDShellList1.FindData() clause..??
  
  
• Rafael Maricca (LMD)

  February 2014

  This is standard functionality of TCustomListView (search Delphi documentation for TCustomListView.FindData).

  
  
• nurrohmawadi

  February 2014

  procedure TForm1.search(const PathName, FileName: String; const InDir: boolean);

  var Rec:TSearchRec;

      Path:string;

  begin

    Path:=IncludeTrailingBackslash(PathName);

    if FindFirst(Path+FileName,faAnyFile - faDirectory,Rec)=0 then

      try

        repeat

          ListBox1.Items.Add(Rec.Name);

        until

          FindNext(Rec)<> 0;

      finally

        FindClose(Rec);

      end;

  
  

    if not InDir then

      Exit;

  
  

    if FindFirst(Path+'*.*', faDirectory, Rec) = 0 then

      try

        repeat

          if ((Rec.Attr and faDirectory) <> 0) and (Rec.Name<>'.') and (Rec.Name<>'..') then

          cari(Path + Rec.Name, FileName,True);

        until

        FindNext(Rec)<>0;

      finally

      FindClose(Rec);

      end;

  
  

  
  

  I use this to display files in the listbox but how to transform and display on LMDShellListBox.?

  #I'm not fluent in English so I translated it on google
• Rafael Maricca (LMD)

  February 2014

  >>I use this to display files in the listbox but how to transform and display on LMDShellListBox.?<<

  This is not possible. The control is used to actually display existing folders. For displaying search results, you can use a simple TListView control.
• nurrohmawadi

  February 2014

  can you give me an example.
• Rafael Maricca (LMD)

  February 2014

  Not sure what you mean. Replace the ListBox1.Items.Add(Rec.Name); and add ListItems instead to a TListView. 

  However I suggest you check e.g. the SearchPack demos. There is exactly the functionality included you are searching (and much more).