j'ai besoin d'aide avec dir_change

dim rep$,nouveau_dossier$
width 0,screen_x
rep$=dir_current$
nouveau_dossier$=rep$+"\test"
caption 0,nouveau_dossier$
wait 2000
dir_change nouveau_dossier$
caption 0,dir_current$

dim rep$,nouveau_dossier$
width 0,screen_x
rep$=dir_current$
nouveau_dossier$=rep$+"\test"
caption 0,nouveau_dossier$
wait 2000
if dir_exists(nouveau_dossier$)=0 then dir_make nouveau_dossier$
dir_change nouveau_dossier$
caption 0,dir_current$

dim rep$,nouveau_dossier$
width 0,screen_x
rep$=dir_current$
nouveau_dossier$=rep$+"\test"
caption 0,nouveau_dossier$
wait 2000
if dir_exists(nouveau_dossier$)=0 then dir_make nouveau_dossier$
dir_change nouveau_dossier$
caption 0,dir_current$
dir_remove dir_current$

dim initial$, dossier$

initial$ = dir_current$

width 0,700
memo 1 : top 1,10 : left 1,10
  width 1,700 : height 1,400 : bar_both 1

item_add 1,"Dossier actuel: "+initial$
message "Taper Return pour continuer"

dossier$ = initial$ + "\test"
if dir_exists(dossier$)=1
  item_add 1,"Dossier existant: "+dossier$
else
  item_add 1,"Dossier absent: "+dossier$
  message "Taper Return pour continuer"
  dir_make dossier$
  if dir_exists(dossier$)=1
    item_add 1,"Dossier créé: "+dossier$
    message "Taper Return pour continuer"
    dir_change dossier$
    item_add 1,"Dossier actuel: "+dir_current$
    message "Taper Return pour continuer"
    dir_change initial$
    item_add 1,"Dossier actuel: "+dir_current$
    message "Taper Return pour continuer"
    dir_remove dossier$
    if dir_exists(dossier$)=1
      item_add 1,"Erreur en suppression: "+dossier$
      message "Il y a un problème..."
    else
      item_add 1,"Dossier supprimé: "+dossier$
      message "Tout marche..."
    end_if
  else
    item_add 1,"Erreur en création de dossier: "+dossier$
    message "Dommage..."
  end_if

end_if

end

dim a$,rep$,r$,el$(2),Dlist_tri%
label suppression_utilisateur,SVD
el$(2)="Jean Claude"
rep$=dir_current$
width 0,900:height 0,60
Dlist_tri%=1:dlist Dlist_tri%
gosub suppression_utilisateur
END
' ==============================================================================
suppression_utilisateur:
a$=rep$+"\dossier_test_"+el$(2):dir_change a$:a$="":a$="dossier_test_"+el$(2)
Detruit_Dossier(rep$+"\"+a$,a$):if r$="N" then return
return

Sub Detruit_Dossier(Nom_Long_Dossier_Sup$,Nom_Court_Dossier_Sup$)
if dir_exists(Nom_Long_Dossier_Sup$)=0 then r$="N":Exit_Sub
' if dir_exists(Nom_Long_Dossier_Sup$)=0 then dir_make Nom_Long_Dossier_Sup$
dir_change Nom_Long_Dossier_Sup$

' caption 0,Nom_Long_Dossier_Sup$:end

r$="":dim_local m%,i%,fichier$
fichier$=""
SVD:
m%=message_confirmation_yes_no("ATTENTION: vous avez demandé la suppression du dossier "+Nom_Court_Dossier_Sup$+chr$(13)+chr$(13)+string$(3+len(Nom_Court_Dossier_Sup$)," ")+"Tous les fichiers qu'il contient seront détruits"+chr$(13)+chr$(13)+string$(14," ")+"Voulez-vous réellement supprimer "+Nom_Court_Dossier_Sup$+" ?")
if m%=0 then message "    *    Vous devez répondre à la question    *    ":goto SVD
if m%=2 then r$="N":Exit_Sub
clear Dlist_tri%
fichier$=file_find_first$
if fichier$="_"
  file_find_close    : ' <======= cette ligne manquait !
  dir_change rep$
  message "Suppression de "+Nom_Long_Dossier_Sup$
  if dir_exists(Nom_Long_Dossier_Sup$)=1 then dir_remove Nom_Long_Dossier_Sup$
  Exit_Sub
else
  while fichier$<>"_"
      item_add Dlist_tri%,fichier$
      fichier$=file_find_next$
  end_while
  file_find_close
    for i%=1 to count(Dlist_tri%)
        fichier$=item_read$(Dlist_tri%,i%)
        file_delete fichier$
    next i%
    dir_change rep$
    dir_remove Nom_Long_Dossier_Sup$
end_if
End_Sub

dim a$,rep$,r$,el$(2),Dlist_tri%
label suppression_utilisateur,SVD
el$(2)="Jean Claude"
rep$=dir_current$
width 0,900:height 0,60
Dlist_tri%=1:dlist Dlist_tri%
gosub suppression_utilisateur
END
' ==============================================================================
suppression_utilisateur:
a$=rep$+"\dossier_test_"+el$(2):dir_change a$:a$=""
  a$="dossier_test_"+el$(2)
Detruit_Dossier(rep$+"\"+a$,a$):if r$="N" then return
return

Sub Detruit_Dossier(Nom_Long_Dossier_Sup$,Nom_Court_Dossier_Sup$)
' if dir_exists(Nom_Long_Dossier_Sup$)=0 then r$="N":Exit_Sub

if dir_exists(Nom_Long_Dossier_Sup$)=0 then dir_make Nom_Long_Dossier_Sup$
dir_change Nom_Long_Dossier_Sup$

' caption 0,Nom_Long_Dossier_Sup$:end

r$="":dim_local m%,i%,fichier$
fichier$=""
SVD:
m%=message_confirmation_yes_no("ATTENTION: vous avez demandé la suppression du dossier "+Nom_Court_Dossier_Sup$+chr$(13)+chr$(13)+string$(3+len(Nom_Court_Dossier_Sup$)," ")+"Tous les fichiers qu'il contient seront détruits"+chr$(13)+chr$(13)+string$(14," ")+"Voulez-vous réellement supprimer "+Nom_Court_Dossier_Sup$+" ?")
if m%=0 then message "    *    Vous devez répondre à la question    *    ":goto SVD
if m%=2 then r$="N":Exit_Sub
clear Dlist_tri%
' fichier$=file_find_first$
fichier$ = "_"
if fichier$="_"
'  file_find_close    : ' <======= cette ligne manquait !
  dir_change rep$
  message "Suppression de "+Nom_Long_Dossier_Sup$
  if dir_exists(Nom_Long_Dossier_Sup$)=1 then dir_remove Nom_Long_Dossier_Sup$
  Exit_Sub
else
  while fichier$<>"_"
      item_add Dlist_tri%,fichier$
      fichier$=file_find_next$
  end_while
  file_find_close
    for i%=1 to count(Dlist_tri%)
        fichier$=item_read$(Dlist_tri%,i%)
        file_delete fichier$
    next i%
    dir_change rep$
    dir_remove Nom_Long_Dossier_Sup$
end_if
End_Sub