Et voici RÉCAPITULORAMIC

rem ' Récapituloramic - par jjn4
  dim a$ , b$ , i$ , j$ : rem Variables provisoires alphanumériques
  dim a , b , g , h , i , j , k , w , z : rem Variables provisoires numériques
  dim rc$ : rem Répertoire Courant
  dim im : rem Indice de modification dans l`un des deux mémos
  dim ir : rem Indicateur de Recherche
  dim nc : rem Nombre de clés recensées
  dim nc$(10) : rem Noms des Commandes
  dim nu : rem Numéro de la clé USB consultée
  dim tp$ : rem Titre du programme
  dim vp$ : rem Version du programme
  tp$="RÉCAPITULORAMIC - Le programme qui récapitule vos clés USB" : ' Titre
  vp$="Version 040713-0.2" : rem ' Ici est l'intitulé de la version
  rc$=dir_current$
  label affich , aide , calc , clef , coller , copier , enreg
  label fin , imago , impr , lancer , modif
  label new , recap , recens , rech , suppr , tiroir1 , tiroir2 , zquit
 
rem Datas
  data "Nouveau" , "Chercher" , "Récap" , "Enregistrer" , "Copier"
  data "Coller"  , "Supprimer" , "Imprimer" , "Aide" , "Quitter"
  for i=1 to 10
      read nc$(i)
  next i
 
rem form0
  full_space 0
  caption 0,tp$+" - "+vp$
  on_close 0,fin

memo 10 : rem Petite fenêtre de texte à gauche
  width 10,100
  height 10,screen_y-335
  bar_vertical 10
  item_add 10,"Description complète de la clé et diverses indications"
  inactive 10
 
picture 11 : rem Zone en bas à gauche où va apparaître l`imago de la clé
  top 11,screen_y-330
  width 11,98
  height 11,218
  stretch_on 11
  file_save 11,"Récap-blanc.bmp"
  on_click 11,imago
 
memo 12 : rem Grande fenêtre de texte à droite
  left 12,104
  top 12,66
  width 12,screen_x-140
  height 12,screen_y-177
  bar_vertical 12
  inactive 12
 
rem : rem Bouton des clé USB en haut
  for i=1 to int((screen_x-130)/61)
      button i+19
        left i+19,61*(i-1)+103
        top i+19,2
        width i+19,61
        height i+19,60
        font_size i+19,12
        inactive i+19
        caption i+19,str$(i)
        on_click i+19,clef
  next i
  caption 0,int((screen_x-130)/61)
  for i=int((screen_x-130)/61)-1 to int((screen_x-130)/61)
      active i+19
      off_click i+19
  next i
  font_name int((screen_x-130)/61)+19,"Wingdings"
  font_size int((screen_x-130)/61)+19,20
  caption int((screen_x-130)/61)+19,chr$(232)
  on_click int((screen_x-130)/61)+19,tiroir1
  font_name int((screen_x-130)/61)+18,"Wingdings"
  font_size int((screen_x-130)/61)+18,20
  caption int((screen_x-130)/61)+18,chr$(234)
  on_click int((screen_x-130)/61)+18,tiroir2

container 50 : rem Plateau articulé pour les boutons de commande de droite
  left 50,screen_x-115
  top 50,61
  width 50,85
  height 50,screen_y-171

rem : Boutons des commandes de droite
  for i=1 to 10
      button i+59
        parent i+59,50
        left i+59,4
        top i+59,int((screen_y-180)/10)*(i-1)+8
        width i+59,76
        height i+59,int((screen_y-180)/10)
        caption i+59,nc$(i)
  next i
  for i=62 to 67
      inactive i
  next i
  on_click 60,new
  on_click 61,rech
  on_click 62,recap
  on_click 63,enreg
  on_click 64,copier
  on_click 65,coller
  on_click 66,suppr
  on_click 67,impr
  on_click 68,aide
  on_click 69,zquit

dlist 80 : rem Liste des clés existantes
  sort_on 80

form 90 : rem Fenêtre où va être demandé l`emplacement de la clé
  hide 90
  left 90,500
  top 90,110
  width 90,200
  height 90,120
  caption 90,"Quelle lettre"
 
alpha 91
  parent 91,90
  left 91,10
  top 91,5
  font_size 91,10
  caption 91,"Précisez l'emplacement"+chr$(13)+"  où se trouve la clé :"
 
combo 92
  parent 92,90
  left 92,20
  top 92,50
  width 92,50
 
button 93
  parent 93,90
  left 93,90
  top 93,48
  caption 93,"Lancer"
  on_click 93,lancer

memo 100 : rem Zone de texte pour les résultats de recherche
  hide 100
  left 100,104
  top 100,int(screen_y/2)+95
  width 100,screen_x-220
  height 100,screen_y-int(screen_y/1.3)
  bar_vertical 100
 
alpha 101 : rem Affichage de l`indicateur de recherche
  hide 101
  left 101,130
  top 101,int(screen_y/2)+70
  font_bold 101
  font_size 101,12
  caption 101,"RÉSULTATS DE LA RECHERCHE :"
 
alpha 102 : rem Affichage de l`indicateur d`attente
  hide 102
  left 102,500
  top 102,int(screen_y/2)+70
  font_bold 102
  font_size 102,12
  font_color 102,255,0,0
  caption 102,"ATTENDEZ - RECHERCHE EN COURS"

rem Recensement des clés
  gosub recens
 
end : rem ' Fin des déclarations et début des routines

affich: : rem Affichage des numéros sur les boutons de clés existantes
  for i=20 to int((screen_x-130)/61)+17
      inactive i
      if nc>0
        for j=1 to nc
            if val(caption$(i))=j
              active i
            end_if
        next j
      end_if
  next i
return

aide: : rem Aide à l`utilisation de Récapituloramic
  application_title "Mieux comprendre Récapituloramic"
  a$="UTILITÉ : Récapituloramic est une sorte de carnet permettant de récapituler"+chr$(13)
  a$=a$+"  le contenu de chacune des clés USB que vous possédez sans avoir à les trouver,"+chr$(13)
  a$=a$+"  et à chaque fois, les brancher et en demander le contenu. Là, il suffit d'un clic."+chr$(13)
  a$=a$+chr$(13)
  a$=a$+"FONCTIONNEMENT :"+chr$(13)
  a$=a$+"  Le nombre de clés USB enregistrées peut être infini. Pour passer aux numéros"+chr$(13)
  a$=a$+"suivants, cliquer sur la flèche dirigée vers le bas. Pour faire revenir la fléche"+chr$(13)
  a$=a$+"vers le haut, cliquer sur la flèche latérale (orientée vers la droite) ou sur la"+chr$(13)
  a$=a$+"zone située en bas et à gauche (photo de la clé)."+chr$(13)
  a$=a$+"  La flèche latérale (droite-gauche) sert à faire alterner l'apparition des boutons"+chr$(13)
  a$=a$+"de commande et de la barre de défilement de la zone de texte centrale."+chr$(13)
  a$=a$+"  La zone en bas et à gauche sert à afficher la photo de la clé USB sélectionnée."+chr$(13)
  a$=a$+"Scannez la clé avec un logiciel adéquat et enregistrez-la dans le même répertoire"+chr$(13)
  a$=a$+"avec le même nom que la clé, précédé de « Récap- » et suivi de « .jpg » ou «.bmp »."+chr$(13)
  a$=a$+"  La zone située en haut à gauche est destinée à y insérer, en plus du nom donné à la"+chr$(13)
  a$=a$+"clé, une description de cette clé et diverses autres indications utiles."+chr$(13)
  a$=a$+"  Le système de recherche scrute le contenu de toutes les clés enregistrées pour voir"+chr$(13)
  a$=a$+"si le mot ou l'expression recherché s'y trouve (cela peut être plutôt long si vous"+chr$(13)
  a$=a$+"possédez une infinité de clés). Pour faire disparaître le panneau de recherche,"+chr$(13)
  a$=a$+"cliquez une deuxième fois sur le bouton « Chercher »."+chr$(13)
  a$=a$+"  Le bouton « Récap » permet de faire la synthèse complète de la structuration"+chr$(13)
  a$=a$+"de la clé choisie et d'en faire apparaître le résultat dans la zone de texte centrale."+chr$(13)
  a$=a$+"Les répertoires et sous-répertoires sont récapitulés en premier, à la façon d'un"+chr$(13)
  a$=a$+"lexique structuré. Les petites flèches vers la droite désignent les dossiers situés"+chr$(13)
  a$=a$+"dans la racine. Suivent ensuite les dossiers numérotés contenus dans chacun des"+chr$(13)
  a$=a$+"répertoires et sous-répertoires du lexique."
  message a$
return

calc: : rem Ajoute des espaces au calcul des mégaoctets pour mieux voir
  for g=4 to 6
      w=0 : h=0 : k=0 : i$=""
      a=instr(item_read$(12,g),":")
      a$=right$(item_read$(12,g),len(item_read$(12,g))-a-1)
      j=instr(a$,".")
      if instr(left$(a$,j)," ")=0
        if j>0
            w=j
            h=1
        else
            w=len(a$)
            h=0
        end_if
        for i=w to 1 step -1
            k=k+1
            if k=3+h
              i$=" "+mid$(a$,i,1)+i$
              k=0+h
            else
              i$=mid$(a$,i,1)+i$
            end_if
        next i
        if j>0 then i$=i$+right$(a$,len(a$)-j)
        i$=trim$(i$)
        item_insert 12,g,left$(item_read$(12,g),a)+" "+i$
        item_delete 12,g+1
      end_if
  next g
return

clef: : rem Modifications faisant suite à l`appui sur le bouton d`une autre clé
  if im=1 then gosub enreg
  off_change 10
  off_change 12
  nu=val(caption$(number_click))
  for i=1 to int((screen_x-130)/61)-2
      font_size i+19,12
      font_bold_off i+19
  next i
  font_size number_click,16
  font_bold number_click
  if file_exists(item_read$(80,nu)+".txt")=1
      file_load 12,item_read$(80,nu)+".txt"
  else
      file_open_write 1,item_read$(80,nu)+".txt"
      file_close 1
  end_if
  if file_exists(item_read$(80,nu)+".tit")=1
      file_load 10,item_read$(80,nu)+".tit"
  else
      file_open_write 1,item_read$(80,nu)+".tit"
      file_close 1
  end_if
  if file_exists("Récap-blanc.bmp")=1
      file_load 11,"Récap-blanc.bmp"
  end_if
  if file_exists(item_read$(80,nu)+".bmp")=1
      file_load 11,item_read$(80,nu)+".bmp"
  end_if
  if file_exists(item_read$(80,nu)+".jpg")=1
      file_load 11,item_read$(80,nu)+".jpg"
  end_if
  caption 0,tp$+" - "+vp$+" --> "+right$(item_read$(80,nu),len(item_read$(80,nu))-6)
  for i=62 to 67
      active i
  next i
  active 10
  active 12
  on_change 10,modif
  on_change 12,modif
return

coller: : rem Copier une partie sélectionnée du texte
  clipboard_paste 12
return

copier: : rem Coller le contenu du presse-papier
  clipboard_copy 12
return

enreg: : rem Enregistrer le contenu des deux mémos
  a$="Enregistrer "+right$(item_read$(80,nu),len(item_read$(80,nu))-6)
  a$=a$+", confirmez-vous votre demande ?"
  a=message_confirmation_yes_no(a$)
  if a=1
      file_save 12,item_read$(80,nu)+".txt"
      file_save 10,item_read$(80,nu)+".tit"
  end_if
  im=0
return

fin: : rem Processus faisant suite à la fermeture radicale de la fenêtre
  if im=1 then gosub enreg
return

imago: : rem Changer le sens de la flèche en cliquant sur l`imago
  if val(caption$(20))>1
      caption int((screen_x-130)/61)+18,chr$(233)
  end_if
return

impr: : rem Imprimer le contenu de la clé
  a=message_confirmation_yes_no("Confirmez-vous votre demande d'imprimer le texte ?")
  if a=1
      if dir_exists("C:\Prowi")=0
        dir_make "C:\Prowi"
      end_if
      file_save 12,"C:\Prowi\Provi.txt"
      execute_wait "write.exe /p C:\Prowi\Provi.txt"
      file_delete "C:\Prowi\Provi.txt"
      dir_remove "C:\Prowi"
      dir_change rc$
  end_if
return

lancer: : rem Lancer la récapitulation du contenu d`une clé
  hide 90
  file_open_write 1,"Récap.txr"
      file_writeln 1,right$(item_read$(80,nu),len(item_read$(80,nu))-6)
      file_writeln 1,text$(92)+":"
  file_close 1
  execute_wait "Treeviewramic.exe"
  clear 12
  file_load 12,"Treeviewramic.txt"
  gosub calc
return

modif: : rem Conséquences d`une modification du contenu d`une clé
  im=1
return

new: : rem Ajout d`une nouvelle clé
  if im=1 then gosub enreg
  a$="Donnez le nom de cette nouvelle clé "+chr$(13)+"Exemple : Clé verte Toshiba"
  a$=message_input$("Créer un nouveau fichier",a$,"")
  if a$<>""
      a=0
      for i=1 to len(a$)
        if instr(a$,"\")>0 then a=1
        if instr(a$,"/")>0 then a=1
        if instr(a$,":")>0 then a=1
        if instr(a$,"*")>0 then a=1
        if instr(a$,"?")>0 then a=1
        if instr(a$,chr$(34))>0 then a=1
        if instr(a$,"<")>0 then a=1
        if instr(a$,">")>0 then a=1
        if instr(a$,"|")>0 then a=1
      next i
      if a=0
        item_add 80,"Récap-"+a$
        nc=nc+1
        nu=nc
        gosub affich
        file_open_write 1,"Récap-"+a$+".txt"
        file_close 1
        file_open_write 1,"Récap-"+a$+".tit"
            file_writeln 1,a$
            file_writeln 1,string$(10,"-")
        file_close 1
        if file_exists("Récap-"+a$+".bmp")=1
            file_load 11,"Récap-"+a$+".bmp"
        end_if
        if file_exists("Récap-"+a$+".jpg")=1
            file_load 11,"Récap-"+a$+".jpg"
        end_if
        clear 10
        clear 12
        clear 80
        item_add 10,"Description complète de la clé et diverses indications"
        for i=1 to int((screen_x-130)/61)-2
            font_size i+19,12
            font_bold_off i+19
        next i
        gosub recens
        for i=62 to 67
            inactive i
        next i
        if file_exists("Récap-blanc.bmp")=1
            file_load 11,"Récap-blanc.bmp"
        end_if
        caption 0,tp$+" - "+vp$
        im=0
      end_if
  end_if
return

recap: : rem Demande de confirmation de la récapitulation et du disque corresp
  a$="Obtenir le récapitulatif complet de "
  a$=a$+right$(item_read$(80,nu),len(item_read$(80,nu))-6)+chr$(13)
  a$=a$+"confirmez-vous votre demande ?"
  a=message_confirmation_yes_no(a$)
  if a=1
      clear 92
      for i=90 to 67 step -1
        if disk_exists(chr$(i))=1
            item_add 92,chr$(i)
        end_if
      next i
      show 90
  end_if
return

recens: : rem Recensement des clés déjà existantes
  nc=0
  a$=file_find_first$
  while a$<>"_"
      if a$<>"." and a$<>".."
        if left$(a$,6)="Récap-" and right$(a$,4)=".txt"
            item_add 80,left$(a$,len(a$)-4)
            nc=nc+1
        end_if
      end_if
      a$=file_find_next$
  end_while
  file_find_close
  gosub affich
return

rech: : rem Processus de recherche
  if ir=0
      a$="Quel mot ou expression voulez-vous chercher ?"
      a$=message_input$("Chercher une séquence",a$,"")
      if a$<>""
        h=0
        clear 100
        item_add 100,"Séquence cherchée : "+a$
        height 12,screen_y-int(screen_y/2)
        for i=100 to 102
            show i
        next i
        if count(80)>0
            for i=1 to count(80)
              k=0
              file_open_read 1,item_read$(80,i)+".txt"
                  while file_eof(1)<>1
                    file_readln 1,i$
                    if instr(i$,a$)>0
                        if k=0
                          item_add 100,item_read$(80,i)+" ("+str$(i)+") :"
                          k=1
                        end_if
                        item_add 100,"  "+i$
                        h=1
                    end_if
                  end_while
              file_close 1
            next i
            beep
            hide 102
        end_if
      end_if
      ir=1
      if h=0 then item_add 100,"Aucune clé USB ne contient cette séquence"
  else
      hide 100
      hide 101
      height 12,screen_y-177
      ir=0
  end_if
return

suppr: : rem Supprimer une clé
  a=message_confirmation_yes_no("Confirmez-vous votre demande de supprimer cette clé ?")
  if a=1
      file_delete item_read$(80,nu)+".txt"
      file_delete item_read$(80,nu)+".tit"
      clear 10
      clear 12
      clear 80
      item_add 10,"Description complète de la clé et diverses indications"
      for i=1 to int((screen_x-130)/61)-2
        font_size i+19,12
        font_bold_off i+19
      next i
      gosub recens
      for i=62 to 67
        inactive i
      next i
      if file_exists("Récap-blanc.bmp")=1
        file_load 11,"Récap-blanc.bmp"
      end_if
      caption 0,tp$+" - "+vp$
      im=0
  end_if
return

tiroir1: : rem Articulation des boutons verticaux
  if caption$(int((screen_x-130)/61)+19)=chr$(232)
      for i=2 to 85
        left 50,screen_x-115+i
        width 50,85-i
      next i
      hide 50
      caption int((screen_x-130)/61)+19,chr$(231)
      if val(caption$(20))>1
        caption int((screen_x-130)/61)+18,chr$(233)
      end_if
  else
      caption int((screen_x-130)/61)+19,chr$(232)
      caption int((screen_x-130)/61)+18,chr$(234)
      show 50
      for i=2 to 85
        left 50,screen_x-30-i
        width 50,i
      next i
  end_if
return

tiroir2: : rem Articulation des boutons horizontaux
  if im=1 then gosub enreg
  off_change 10
  clear 10 : inactive 10
  item_add 10,"Description complète de la clé et diverses indications"
  off_change 12
  clear 12 : inactive 12
  for i=1 to int((screen_x-130)/61)-2
      font_size i+19,12
      font_bold_off i+19
  next i
  if caption$(int((screen_x-130)/61)+18)=chr$(234)
      for i=1 to int((screen_x-130)/61)-2
        caption i+19,str$(val(caption$(i+19))+int((screen_x-130)/61)-2)
      next i
  else
      if val(caption$(20))>1
        for i=1 to int((screen_x-130)/61)-2
            caption i+19,str$(val(caption$(i+19))-int((screen_x-130)/61)+2)
        next i
      end_if
      if val(caption$(20))<2
        caption int((screen_x-130)/61)+18,chr$(234)
        if show(50)=0
            gosub tiroir1
        end_if
      end_if
  end_if
  gosub affich
  for i=62 to 67
      inactive i
  next i
  caption 0,tp$+" - "+vp$
  if file_exists("Récap-blanc.bmp")=1
      file_load 11,"Récap-blanc.bmp"
  end_if
return

zquit: : rem Quitter ce programme
terminate

rem ' Treeviewramic par jjn4 - Version 040713-0.2
  dim a$ , b$ , i$ : rem Variables provisoires alphanumériques
  dim g , h , i , j , v , w : rem Variables provisoires numériques
  dim rc$ : rem Répertoire Courant
  dim de$ : rem Disque exploré
  dim ds : rem Disk Size
  dim df : rem Disk Freee
  dim im : rem Indice de modification
  dim ip : rem Indice de Profondeur des sous-répertoires trouvés
  dim nc$ : rem Nom de la Clé USB explorée
  dim nd$ : rem Nom du Disque à explorer
  dim ns : rem Nombre d`anti-Slashs trouvés
  dim pe : rem Paramètre d`erreur
  dim xp : rem Positions de la pendule de progression
  xp=183 : rc$=dir_current$
  label erreur , go , repere1 , repere2 , repere3 , repere4
  on_error_goto erreur

rem Ouverture du fichier des coordonnées du fichier à explorer
  file_open_read 1,"Récap.txr"
      file_readln 1,nc$
      file_readln 1,nd$
  file_close 1

rem form0
  left 0,300
  top 0,50
  width 0,580
  height 0,140
  caption 0,"TREEVIEWRAMIC récapitule le contenu de votre clé USB"

dlist 10 : rem Contient tous les répertoires et ss-rep avec leur adresse
  sort_on 10

dlist 11 : rem Supplée au dliste 10 pour rechercher les ss-répertoires

dlist 12 : rem Contient le texte final résultant de l`analyse

alpha 15 : rem Zone où est affichée la pendule
  left 15,445
  font_name 15,"Wingdings"
  font_size 15,70
  hide 15
 
alpha 16 : rem Zone où est affiché l`inscription rouge
  left 16,35
  top 16,20
  font_size 16,16
  font_color 16,255,0,0
  caption 16,"ATTENDEZ - RÉCAPITULATIF  EN  COURS"
  hide 16

alpha 17 : rem Zone où est affiché le temps estimé
  left 17,75
  top 17,55
  font_size 17,16
  font_color 17,0,0,255
  hide 17

rem fonctionnement
  gosub go
  dir_change rc$
  file_save 12,"Treeviewramic.txt"
repere4:
  terminate

end : ' -----------------------------------------------------------------

erreur:
  select pe
      case 0 : goto repere4
      case 1 : goto repere1
      case 2 : goto repere2
  end_select
return

go: : rem Récapitulatif des répertoires et fichiers trouvés
  rem ' Là, il remplit la liste de gauche de la racine du disque
  show 15
  show 16
  show 17
  ds=disk_kilo_size(left$(nd$,1))
  df=disk_kilo_free(left$(nd$,1))
  h=int((ds-df)/5000000)+1
  a$=""
  if h>1 then a$="s"
  caption 17,"Temps estimé : "+str$(h)+" minute"+a$
  clear 10
  de$=nd$+"\"
  dir_change de$
  a$=file_find_first$
  while a$<>"_"
      if a$<>"." and a$<>".."
        if dir_exists(a$)=1
            item_add 10,de$+a$
        end_if
      end_if
      a$=file_find_next$
  end_while
  file_find_close
  im=0
  ip=2
  caption 15,chr$(xp)
  repeat : rem ' Là, il fait la même chose avec les sous-répertoires en second
      im=0 : pe=1
      if count(10)>0
        for i=1 to count(10)
            b$=item_read$(10,i)+"\"
            ns=0
            for j=1 to len(b$)
              if mid$(b$,j,1)="\"
                  ns=ns+1
              end_if
            next j
            if ns=ip
              dir_change b$
              a$=file_find_first$
              while a$<>"_"
                  if a$<>"." and a$<>".."
                    if dir_exists(a$)=1
                        item_add 11,b$+a$
                    end_if
                  end_if
                  a$=file_find_next$
              end_while
              file_find_close
            end_if
repere1: :  rem ' Cas où le programme tombe sur un fichier caché et gelé
        next i
      end_if
      rem ' Là, il inclut la liste de droite dans celle de gauche
      if count(11)>0
        im=1
        ip=ip+1
        for i=1 to count(11)
            item_add 10,item_read$(11,i)
        next i
      end_if
      clear 11
      xp=xp+1
      if xp>194 then xp=183
      caption 15,chr$(xp)
  until im=0
  beep
  rem ' Là, on crée le lexique du récapitulatif
  clear 12
  item_add 12,"Récapitulatif du contenu de la clé USB : "+nc$
  item_add 12,"Le "+date$+" à "+time$
  item_add 12,string$(35,"=")
  item_add 12,"Espace total  : "+str$(ds)+" Ko"
  item_add 12,"Espace occupé : "+str$(ds-df)+" Ko"
  item_add 12,"Espace libre  : "+str$(df)+" Ko"
  item_add 12,string$(35,"=")
  item_add 12,""
  item_add 12,""
  item_add 12,"Récapitulatif des répertoires contenus dans la clé :"
  item_add 12,string$(50,"-")
  b$="" : j=0
  if count(10)>0
      for i=1 to count(10)
        a$=right$(item_read$(10,i),len(item_read$(10,i))-3)
        w=0 : h=0
        for j=1 to len(a$)
            if mid$(a$,j,1)="\"
              h=h+1
              w=j
            end_if
        next j
        if h>0
            b$=right$(a$,len(a$)-w)
        else
            b$=a$
        end_if
        b$=string$(5*h+1," ")+b$
        i$=str$(i)
        i$=string$((6-len(i$))*2," ")+i$
        if h=0
            item_add 12,i$+";-->  "+b$
        else
            item_add 12,i$+";      "+b$
        end_if
      next i
  end_if
  xp=xp+1
  if xp>194 then xp=183
  caption 15,chr$(xp)
  rem ' Maintenant, on ajoute le récapitulatif des fichiers par répertoire
  item_add 12,string$(35,"=")
  item_add 12,""
  item_add 12,""
  item_add 12,"Récapitulatif des fichiers contenus dans chaque répertoire :"
  item_add 12,string$(50,"-")
  v=0 : pe=2
  if count(10)>0
      for i=1 to count(10)
        h=0 : w=0 : g=0
        de$=item_read$(10,i)
        b$=right$(de$,len(de$)-3)
        for j=len(b$) to 1 step -1
            if mid$(b$,j,1)="\"
              h=1
              exit_for
            end_if
        next j
        if h=1
            i$=right$(b$,len(b$)-j)
            xp=xp+1
            if xp>194 then xp=183
            caption 15,chr$(xp)
        else
            i$=b$
        end_if
        item_add 12,str$(i)+":    "+i$
        item_add 12,b$
        item_add 12,string$(35,"-")
        dir_change de$
        a$=file_find_first$
        while a$<>"_"
            if a$<>"." and a$<>".."
              if file_exists(a$)=1
                  item_add 12,str$(i)+";  "+a$
                  w=w+1
              end_if
            end_if
            a$=file_find_next$
        end_while
        file_find_close
        goto repere3
repere2: : rem ' Cas où le programme tombe sur un fichier caché et gelé
  item_add 12,"Fichiers indétectables"
repere3:
        item_add 12,string$(25,"-")
        item_add 12,"Total fichiers : "+str$(w)
        item_add 12,""
        item_add 12,""
        v=v+w
      next i
  end_if
  item_add 12,string$(30,"=")
  item_add 12,"Nombre total de fichiers :"
  item_add 12,v
return