Sélecteur de chemin pour création d'un nouveau dossier

' Sélecteur de dossier pour déterminer un chemin
dim a$,b$,no%,dep%,fin%,dir$,bouton_renew%,bouton_select%
label continu,init,sortie,fin

width 0,1180:height 0,600:on_close 0,fin

no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,5
dep%=no%
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
no%=no%+1:list no%:width no%,160:height no%,500:top no%,10:left no%,left(no%-1)+width(no%-1)+5
fin%=no%
no%=no%+1:bouton_renew%=no%:button no%:width no%,100:top no%,520:left no%,5:caption no%,"Recommencer"
no%=no%+1:bouton_select%=no%:button no%:width no%,100:top no%,520:left no%,width(0)-125:caption no%,"Sélectionner"

for no%=dep% to fin%
on_click no%,continu:inactive no%
next no%

on_click bouton_renew%,init
on_click bouton_select%,sortie

gosub init
END
' ==============================================================================
sortie:
if right$(dir$,1)="\" then dir$=left$(dir$,len(dir$)-1)
caption 0,dir$:' Résultat dans le bandeau
dir_change dir$:' à conserver ou pas
wait 2000:' pour donner le temps de voir le résultat
terminate:' à adapter suivant vos besoin
return

init:
  for no%=dep% to fin%
    clear no%:active no%
    dir$="C:\":dir_change dir$
    afi_sous_rep(dep%)
  next no%
return

continu:
   no%=number_click:inactive no%:b$=item_index$(no%)
if b$="."
   dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
else
   if b$=".."
      dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
   end_if
end_if
   a$=dir$+b$+"\":dir$=a$
   dir_change a$
   no%=no%+1
if no%<fin%+1
   afi_sous_rep(no%)
else
   dir$=left$(dir$,len(dir$)-1):caption 0,dir$:return
   message "Impossible de continuer la recherche":return
end_if
   caption 0,dir$
return

Sub afi_sous_rep(num_list%)
active num_list%
  dim_local test%
  clear num_list%
a$=file_find_first$
  while a$<>"_"
      test%=File_Exists(a$)
      if test%=0
         item_add num_list%,a$
      end_if
      a$=file_find_next$
  end_while
file_find_close
  if count(num_list%)=0
     dir$=left$(dir$,len(dir$)-1):caption 0,dir$
     message "Recherche terminé"
  end_if
End_sub

fin:
terminate
return