Dir ok -- Drive ?

label DIR_sorti
form 25 :command_target_is 25
width 25,445:border_hide 25:color 25,180,180,170:top 25,010:left 25,500 :height 25,525
dir_change "C:\"
  dim DIR_a%,DIR_a$,DIR_f$,DIR_test%,dir_dossier$

label DIR_dossier ,DIR_disque , DIR_choix ,DIR_impose ,DIR_retour ,DIR_exit,DIR_ferme
on_close 25,DIR_ferme
alpha 16:top 16, 5:left 16,100:font_bold 16:font_size 16,10:' font_color 16,204,204,153
      caption 16,"choisir le dossier d'installation"

edit  15:top 15,35:left 15,5:width 15,435:font_size 15,12:font_bold 15:color 15,255,255,153

alpha 19:top 19,65:left 19,80:font_color 19,255,255,255:font_bold 19:font_size 19,10:caption 19,"dossier"
list 10: top 10,85:left 10,5:width 10,230:height 10,390:font_size 10,12:font_bold 10:color 10,255,255,204:on_click 10,DIR_choix

list 11: top 11,85:width 11,200:left 11,240:height 11,305:font_color 11,160,160,160

alpha 13:top 13,397:left 13,245:font_color 13,255,255,255:font_bold 13:font_size 13,10:caption 13,"Lecteur:"
list  14:top 14,415:left 14,245:height 14,60:width 14,50:font_size 14,12:color 14,255,255,210 :on_click 14,DIR_disque

edit  18:top 18,490:left 18,170:width 18,270:font_size 18,12:font_bold 18:color 18,255,255,153:on_change 18,DIR_impose
button 20:top 20,410:left 20,330:caption 20,"sortir" :on_click 20,DIR_retour
button 21:top 21,450:left 21,330:caption 21,"annulé" :on_click 21,DIR_exit

alpha 17:top 17,500:left 17,5:font_color 17,255,255,255:font_bold 17:font_size 17,10:caption 17,"créé nouveau dossier :"
for DIR_a%=asc("C") to asc("Z")
  DIR_a$= chr$(DIR_a%)+":" : if dir_exists(DIR_a$)=1 then item_add 14,DIR_a$
next DIR_a%
goto DIR_sorti :' pour include
end
' ==============================================

DIR_dossier:
  clear 10:clear 11
  item_add  10,".."
  DIR_a$ = file_find_first$
  while DIR_a$<>"_"
      DIR_test%=File_Exists(DIR_a$)
      if DIR_test%=0
        item_add  10,DIR_a$
      else
        item_add 11,DIR_a$
      end_if
      DIR_a$ = file_find_next$
  end_while
  file_find_close
return
DIR_disque:
DIR_f$= item_index$(14):DIR_dossier$=DIR_f$
dir_change DIR_f$ : gosub DIR_dossier
return

DIR_choix:
  DIR_f$=item_index$(10)
  dir_change DIR_f$
  if item_index(10)>1
      DIR_dossier$=DIR_dossier$+"\"+DIR_f$
  else
      for DIR_a%=len(DIR_dossier$) to 1 step -1
        if mid$(DIR_dossier$,DIR_a%,1)="\" then exit_for
      next DIR_a%
      if DIR_a%>2 then DIR_dossier$=left$(DIR_dossier$,DIR_a%-1)
  end_if
  gosub DIR_dossier
  gosub DIR_impose
return

DIR_impose:
  if text$(18)<>"" then text 15,DIR_dossier$+"\"+text$(18) :else:text 15,DIR_dossier$
return

DIR_exit:
hide 25:active 0:DIR_dossier$="_"  :text 15,"_"
  DIR_f$=left$(DIR_f$,DIR_a%-1) :goto DIR_ferme
return

DIR_retour:
  clipboard_string_copy text$(15) :goto DIR_ferme
return

DIR_ferme:
terminate

DIR_sorti:

for DIR_a%=asc("C") to asc("H")

for DIR_a%=asc("C") to asc("Z")

for DIR_a%=asc("C") to asc("Z")
  DIR_a$= chr$(DIR_a%)+":" : if dir_exists(DIR_a$)=1 then item_add 14,DIR_a$
next DIR_a%
...
...
...
DIR_dossier:
  clear 10:clear 11
  item_add  10,".."
  DIR_a$ = file_find_first$
  while DIR_a$<>"_"
      DIR_test%=File_Exists(DIR_a$)
      if DIR_test%=0
        item_add  10,DIR_a$
      else
        item_add 11,DIR_a$
      end_if
      DIR_a$ = file_find_next$
  end_while
  file_find_close
return