Choix d'un répertoire

Rem ** SELECTR.BAS, choix d'un répertoire
Rem ** Clic gauche: affichage des sous-répertoires du répertoire cliqué
Rem ** Clic droit:  choix du répertoire et sortie
Rem ** Clic sur ".": retour à la racine
Rem ** Clic sur "..": retour au répertoire "parent"
Rem ** Sortie: rep$ = nom complet du répertoire choisi.
dim rep$, rd$, f$, Savcur$, csp$, rp$(198)
dim ini%, nr%, x%, y%, yd%, ym%, lf%, hf%, il%
dim xs%, ys%, nlc%, r%, c%, lc%, i%, j%, rng%, nbr%, maxtab%
dim mousel%, mouser%
label Re1, Reb, Sui, Term, Bcle, bcw, Fin, Iprep
label Boutg, Boutd, Posclic
rem ----------------------------------------------------
rep$ = "C:": rem ** répertoire de départ (racine du disque)
IF DIR_EXISTS(rep$) = 0 THEN GOTO Fin
csp$ = "."
Savcur$ = DIR_CURRENT$: Rem Sauvegarde répertoire actuel
il% = 13 : rem interligne
hf% = 994: lf% = 540 :rem ** fenêtre d'affichage
rem ** hauteur utile= hf-30 (bandeau)
lc% = lf%/3: rem largeur d'une colonne d'affichage (3 colonnes)
nlc% = INT((hf%-30) /il%): rem ** nombre de lignes par colonne
WIDTH 0, lf%
HEIGHT 0, hf%
COLOR 0, 255, 255, 192: rem jaune clair
BORDER_SMALL 0
2D_TARGET_IS 0
FONT_BOLD 0
maxtab% = 198: rem ** dimension maximum des tableaux (hélas!)

rem --------------- affichage des sous-répertoires ---------------------
Re1:
CLS
2D_LINE lc%-2, 0, lc%-2, hf%-1
2D_LINE 2*lc%-2, 0, 2*lc%-2, hf%-1
rem CAPTION 0,rep$
yd% = 0: ym% = yd% + nlc%*il%
y% = yd% - il%: x% = 1
rd$ = rep$: IF LEN(rd$) = 2 THEN rd$ = rd$ + "\"
DIR_CHANGE rd$
ini% = 0: nr% = 0
IF LEN(rep$) > 3
  f$ = csp$: GOSUB Iprep
  f$ = csp$ + csp$: GOSUB Iprep
END_IF
Reb:
IF ini% = 0 THEN f$ = FILE_FIND_FIRST$: ini% = 1: GOTO Sui
f$ = FILE_FIND_NEXT$
IF f$ = "??????" THEN GOTO Reb: rem par exemple à la fin de C:\Windows
Sui:
IF f$ = "_" THEN GOTO Term
IF FILE_EXISTS(rep$ + "\" + f$) = 1 THEN GOTO Reb
GOSUB Iprep
GOTO Reb
Term:
FILE_FIND_CLOSE
nbr% = nr%: IF rp$(1) = csp$ THEN nbr% = nbr% - 2
CAPTION 0, rep$ + " (" + STR$(nbr%) + " répertoires)"

rem --------------- boucle d'attente -----------------------------------
Bcle:
mousel% = MOUSE_LEFT_DOWN(0): mouser% = MOUSE_RIGHT_DOWN(0)
IF mousel% = 0 AND mouser% = 0 THEN GOTO bcw
IF mouser% = 1 THEN GOTO Boutd
Boutg:
rem *** clic gauche: sous-répertoire à parcourir
IF MOUSE_LEFT_DOWN(0) = 1 THEN WAIT 100: GOTO Boutg: rem attente relâchement
GOSUB Posclic: IF rng% = -1 THEN GOTO bcw
IF rp$(rng%) = csp$ THEN rep$ = LEFT$(rep$, 2): GOTO Re1: rem racine
IF rp$(rng%) = csp$ + csp$
  j% = 0: rem répertoire parent
  FOR i% = LEN(rep$) TO 1 STEP -1
    IF MID$(rep$, i%, 1) = "\" AND j% = 0 THEN j% = i%
  NEXT i%
  rep$ = LEFT$(rep$, j% - 1): GOTO Re1
END_IF
rep$ = rep$ + "\" + rp$(rng%): GOTO Re1

Boutd:
IF MOUSE_RIGHT_DOWN(0) = 1 THEN WAIT 100: GOTO Boutd: rem attente relâchement
rem *** clic droit: choix du répertoire
GOSUB Posclic: IF rng% = -1 THEN GOTO bcw
IF LEFT$(rp$(rng%), 1) = csp$ THEN GOTO bcw
rep$ = rep$ + "\" + rp$(rng%)
PRINT_LOCATE x%, y% + il%: PRINT " ******** Répertoire: ********"
PRINT_LOCATE x%, y% + 2 * il%: PRINT rep$: GOTO Fin
bcw:
WAIT 200
GOTO Bcle

Fin:
DIR_CHANGE Savcur$: rem Retour au répertoire d'origine
END

rem ------------ sous-programmes -------------------------------------
Posclic:
xs% = MOUSE_X_POSITION(0)
c% = INT(xs% / lc%): rem ** colonne cliquée (0 à 2)
ys% = MOUSE_Y_POSITION(0)
r% = INT((ys% - yd%) / il%): rem ** rangée cliquée
rng% = 1 + r% + c% * nlc%
IF rng% < 0 OR rng% > nr% THEN rng% = -1
RETURN

Iprep:
nr% = nr% + 1: IF nr% > maxtab% THEN RETURN
rp$(nr%) = f$
y% = y% + il%
IF y% >= ym% THEN x% = x% + lc%: y% = yd%
PRINT_LOCATE x%, y%
PRINT f$: rem ** affichage du répertoire
RETURN