Arborescence d'un dossier avec sélection d'une ligne

rem ============================================================================
'  Afficher l'arborescence d'un lecteur ou d'un chemin
'  avec selection d'une ligne dans l'arborescence
rem ============================================================================

label selectionner
dim a$,i$ ,a% ,retour$,dos$
i$ = chr$(4): ' ce caractère sert dans la recherche
memo 10  : width 10,500 : height 10,400 : top 10, 50 : bar_both 10 : font_bold 10
 cursor_point 10
dos$ = dir_current$ : ' à modifier selon les besoins
Tree(dos$) : ' afficher l'arborescence du dossier dos$
on_click 10,selectionner
alpha 20 : left 20,20 : font_size 20,12 : font_bold 20
end
rem ============================================================================
' Affiche graphiquement la structure  de dossiers d'un lecteur ou d'un chemin.
' Syntaxe : TREE [lecteur:] [chemin] [/F] [/A]
' /F <==== Affiche le nom des fichiers de chaque répertoire.
' /A <==== Utilise ASCII au lieu des caractères étendus.
SUB Tree(chemin$)
     execute_wait "cmd /c tree " + chemin$ + " /F |clip"
     item_add 10, clipboard_string_paste$
END_SUB
rem ============================================================================
selectionner:
   clic_memo(10)
   caption 20,retour$
return
rem ============================================================================
SUB clic_memo(n%)
   dim_local a$,b$,a%,l%,b%,j%
   clipboard_string_copy i$ : clipboard_paste n% :' inserrer ce caractère à l'emplacement du curseur
   ' celui-ci est recherché dans le memo, pour retrouver la ligne.
   if count(n%) > 0
      l% = 0
      for a% = 1 to count(10)
         a$ = item_read$(n%,a%)
         b% = instr(a$,i$)
         if b% > 0
            if b% > 1
               a$ = left$(a$,b%-1) + mid$(a$,b%+1,len(a$))
            else
               a$ = mid$(a$,2,len(a$)
            end_if
            item_delete n%,a% : item_insert n%,a%,a$
            if l% = 0 then l% = 1
            SELECT_TEXT n%,l%,len(a$)+1
            retour$ = a$
         else
            l% = l%+len(a$)+2
         end_if
      next a%
   end_if
END_SUB
rem ============================================================================