Mystère sur file_find_first$ et compagnie

rem ' Exploration
  dim a$ : rem Variables provisoires
  dim d$ : rem Disque exploré
  label go
 
rem form0
  width 0,1300
  height 0,700

combo 5
  left 5,100
  top 5,620
  item_add 5,"C:"
  item_add 5,"F:"
  item_add 5,"G:"
  item_add 5,"H:"
  item_add 5,"I:"
  on_click 5,go

list 10
  width 10,1200
  height 10,600
  sort_on 10
 
alpha 20
  top 20,620

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

go: : rem Récapitulatif des répertoires et fichiers trouvés
  clear 10
  d$=item_index$(5)+"\"
  dir_change d$
  a$=file_find_first$
  while a$<>"_"
      item_add 10,a$
      a$=file_find_next$
  end_while
  file_find_close
  caption 20,count(10)
return

rem ' Exploration
  dim a$ : rem Variables provisoires
  dim d$ : rem Disque exploré
  dim i%, j%
 
  label go

rem form0
  height 0,900

combo 5
  left 5,100
  top 5,820
  item_add 5,"C:"
  item_add 5,"E:"
  item_add 5,"G:"
  item_add 5,"H:"
  item_add 5,"I:"
  on_click 5,go

list 10
  width 10,200: height 10,800

list 11
  left 11,width(10)+5: width 11,200: height 11,800

alpha 20: top 20,top(10)+height(10)
alpha 21: top 21,top(20): left 21,left(11)

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

go: : rem Récapitulatif des répertoires et fichiers trouvés
  clear 10: sort_on 10
  d$=item_index$(5)+"\"
  dir_change d$
  a$=file_find_first$
  while a$<>"_"
      item_add 10,a$
      a$=file_find_next$
  end_while
  file_find_close
  sort_off 10
  caption 20,count(10)

  clear 11
  EXECUTE_WAIT "Cmd.exe /C DIR /A /B /O:N "+d$+" >C:\TEMP\Dir"
  FILE_LOAD 11,"C:\TEMP\Dir": FILE_DELETE "C:\TEMP\Dir"
  caption 21,count(11)

  item_add 10,"": item_add 10,"====== Éléments manquants: ======="
  for i% = 1 to count(11)
      a$ = item_read$(11,i%)
      for j% = 1 to count(10)
          if item_read$(10,j%) = a$ then exit_for
      next j%
      if j%>count(10) then item_add 10, a$
  next i%
return

SUB Nomcourt(Path$)
' Conversion de Path long en Path court (sans espace) - rs_nc$
IF VARIABLE("rs_nc$") = 0 THEN DIM rs_nc$
DIM_LOCAL nc_fbat$,nc_tmp$,nc_court$
nc_fbat$ = "C:\Temp\Nomcourt.bat": nc_tmp$ = "C:\Temp\temp"
FILE_OPEN_WRITE 9, nc_fbat$
FILE_WRITELN 9, "@echo off"
FILE_WRITELN 9, "for %%A in ("+CHR$(34)+Path$+CHR$(34)+") do echo.%%~sfA >"+nc_tmp$
FILE_CLOSE 9
EXECUTE_WAIT nc_fbat$
FILE_OPEN_READ 9, nc_tmp$
FILE_READLN 9, rs_nc$
FILE_CLOSE 9: FILE_DELETE nc_tmp$: FILE_DELETE nc_fbat$
END_SUB

SUB Dir(rep$, arg$)
' Liste des fichiers du répertoire rep$, options arg$, résultat -> CLIPBOARD
' (à coller par exemple dans un Memo). Exécution sans fenêtre noire.
' Arguments optionnels:
'    /A:D répertoires, /A:-D fichiers, /B format abrégé"
'    /-C pas de séparateur de milliers, /-N fichiers à gauche (abrégés)
'    /O: (tri) N tri alpha, E tri par extension, G répertoires en tête,
'        S tri par taille, D tri par date croissante (-D date décroissante)
'    /S y compris sous-répertoires, /X avec noms abrégés.
DIM_LOCAL prg_a$, s_cr$, b_at$
prg_a$ = "CMD.exe /c DIR " + rep$ + " " + arg$ + " | clip"
s_cr$ = "C:\Vbscript.vbs": b_at$ = "C:\Bat.bat"
FILE_OPEN_WRITE 9, b_at$: FILE_WRITELN 9, prg_a$: FILE_CLOSE 9: ' Fichier .bat
prg_a$ = "CreateObject(" + CHR$(34) + "Wscript.Shell" + CHR$(34) + ").Run "
prg_a$ = prg_a$ + CHR$(34) + b_at$ + CHR$(34) + ",0,True"
FILE_OPEN_WRITE 9, s_cr$: FILE_WRITELN 9, prg_a$: FILE_CLOSE 9: ' script vbs
EXECUTE_WAIT "WSCRIPT.exe " + s_cr$: ' Exécution du script
FILE_DELETE b_at$: FILE_DELETE s_cr$
END_SUB