*it is not superfluous to make this small code under hand even as executable & on systray or desktop shortcut. *this saves a lot of clicks *it runs on any windows OS. *Of course can filter only the folders wanted (even in a physical table) Publi yform yform=Newobject("myfolders") yform.Show Read Events Retu * Define Class myfolders As Form Top = 5 Left = 96 Height = 27 Width = 519 ShowWindow = 2 BorderStyle=0 Caption = "My Custom favorite folders" MaxButton = .F. AlwaysOnTop = .T. Name = "Form1" Add Object combo1 As ComboBox With ; FontSize = 8, ; RowSourceType = 6, ; RowSource = "ycurs.folder", ; Height = 25, ; Left = 0, ; MousePointer = 15, ; Top = 0, ; Width = 517, ; Name = "Combo1" Procedure Init This.Caption=This.Caption+" ["+Trans(Reccount())+ " directorie(s)]" This.combo1.Value=folder Endproc Procedure Load Close Data All Create Cursor ycurs (folder c(150)) Local gnbre,m.yrep m.yrep="C:\Program Files\" gnbre=Adir(gabase,m.yrep+"*.*","D") For i=1 To gnbre If !Inlist(gabase(i,1),'.','..') Insert Into ycurs Values(m.yrep+Allt(gabase(i,1))) Endi Endfor Sele ycurs *brow Locate Endproc Procedure Destroy Clea Events Endproc Procedure combo1.Click Local m.myvar TEXT to m.myvar textmerge noshow run/n explorer "<<allt(folder)>>" ENDTEXT Execscript(m.myvar) Endproc Enddefine * *-- EndDefine: myfoldersRegards