version 5.50 0 Form1 4 6 0 0 1 1 1 1 6 0 1 0 19 0 0 2 7 0 0 3 238 268 0 0 0 Sub designer addform(Form1,"D1","BG.jpg",93,93,93)@ addtextbox(form1,Table1counter,190,5,43,22,"Table1counter",245,245,200,0,0,0,True,True,False,9)@ addtextbox(form1,Table1Textbox,5,5,180,22,"Table1Textbox",245,245,200,0,0,0,True,True,False,9)@ addtable(form1,Table1,5,30,230,230,"",245,245,200,0,0,0,True,True,9)@ addmenuitem(form1,Menu1,"Menu",True,False)@r addmenuitem(menu1,Menu5,"Close",True,False)@ End Sub End Sub End Sub @EndOfDesignText@Sub Globals End Sub Sub App_Start Form1.Show 'Create table1 for folders (in root) Table1.AddCol(cString,"ID",0,False) Table1.AddCol(cString,"Items",300,False) Table1.AddCol(cString,"Fullpath",500,False) Table1.FontSize = 10 Table1.Clear Table1counter.Text = "" Table1Textbox.Text = "" Table1Textbox.Focus=True #Region Create arraylists 'Create Arraylist for the Folders in root AddArrayList("Folder") #End Region 'Load Folders in Table1 Folders(AppPath & "\") Table1.Tablesort("Items ASC") End Sub #Region Find folders in current directory. Sub Folders(Path) DirSearch(Folder,path) For I =0 To Folder.count - 1 Table1.AddRow ( I , SubString (Folder.Item(i),StrLength(path) ,StrLength(Folder.Item(i))),Folder.Item(i)) Next Table1counter.Text = Table1.RowCount Table1.SelectCell("ID",0) End Sub #End Region #Region User enter text in textbox query table1 on criteria Sub Table1Textbox_KeyPress (key) sr = Table1Textbox.Text & "*" Table1.Filter("Items LIKE '" & sr & "'") End Sub #End Region #Region When user select folder from table1 (root) find folders and files Sub Table1_SelectionChanged (ColName, Row) Msgbox("hit this!") End Sub #End Region #Region filter Sub TextBox4_KeyPress (key) sr = Textbox4.Text & "*" Table2.Filter("Dossiers LIKE '" & sr & "'") End Sub #End Region Sub Menu5_Click 'Close application Form1.Close End Sub