Compilateur : version de travail disponible

dim vid_dir$,dir_select$,f$,destination$,disque_dest$,x%,nf%,f_dest$
label init,Contenu_dossier,Selection,Clear_selection,Copy_to_SD,Quitter

vid_dir$="C:\Users\Yannick\Video MP4\"
destination$="J:\Video\"
disque_dest$="J"

width 0,650 :height 0,400 :top 0,(screen_y-400)/2 :left 0,(screen_x-650)/2
caption 0,"Vidéothèque MP4" :font_name 0,"arial"

alpha 1:top 1,10:left 1,10:font_bold 1:caption 1,"Catégories"
font_color 1,0,0,230
list 2:top 2,top(1)+15:left 2,left(1):width 2,200 :height 2,150 :cursor_point 2
on_click 2,Contenu_dossier


alpha 3:top 3,top(2)+160:left 3,left(1):font_bold 3:caption 3,"Films"
font_color 3,0,0,230
list 4: top 4,top(3)+15 :left 4,left(1):width 4,200:height 4,150:cursor_point 4
on_click 4,Selection

alpha 5:top 5,top(1):left 5,left(1)+210 :font_bold 5:caption 5,"Sélection"
font_color 5,0,0,230
list 6:top 6,top(1)+15:left 6,left(5):width 6,410 :height 6,300 :cursor_point 6
on_click 6,Clear_selection

progress_bar 8 :hide 8:top 8,top(6)+310:left 8,left(6)+20:width 8,200

button 7:top 7,top(6)+305:left 7,width(0)-175:caption 7,"Copy to SD"
on_click 7,Copy_to_SD :inactive 7

button 10 :top 10,top(7):left 10,width(0)-95:caption 10,"Quitter"
on_click 10,Quitter

dlist 9

gosub init
end

init:
   if disk_exists(disque_dest$)=0
      if message_warning_ok("Carte SD non détecté !")=1:end_if
   end_if
   dir_change vid_dir$
   f$=file_find_first$
   f$=file_find_next$
   while f$<>"_"
      if file_extract_extension$(f$)="" then item_add 2,f$
      f$=file_find_next$
   end_while
   file_find_close
return

Contenu_dossier:
   clear 4
   dir_select$=Vid_dir$+item_index$(2)+"\"
   dir_change dir_select$
   f$=file_find_first$
   f$=file_find_next$
   while f$<>"_"
      if left$(f$,1)<>"."
         item_add 4,f$
      end_if
      f$=file_find_next$
   end_while
   file_find_close
return

Selection:
   f$=dir_select$+item_index$(4)
   item_add 6,f$
   item_add 9,f$
   active 7
return

Clear_selection:
   x%=item_index(6)
   item_delete 6,x%
   item_delete 9,x%
   if count(9)=0 :inactive 7:end_if
return

Copy_to_SD:
  inactive 10
  if disk_exists(disque_dest$)=0
     if message_warning_ok("Veuillez insérer une carte SD !")=1:end_if
     active 10
     return
  else
     if dir_exists(destination$)=0
        caption 0,"Création du dossier de destination..."
        dir_make destination$
        wait 1000
        caption 0,"Vidéothèque MP4"
     end_if
  end_if
  inactive 7
  nf%=count(9)
  show 8:min 8,0:max 8,nf%
  for x%=1 to count(9)
     f$=item_read$(9,x%)
     f_dest$=destination$+file_extract_name$(f$)
     if file_exists(f_dest$)=0
        file_copy f$,f_dest$
     else
        if message_warning_yes_no(f_dest$+chr$(13)+"existe déjà"+chr$(13)+"Voulez vous écraser le fichier existant ?")=1
           file_delete f_dest$
           file_copy f$,f_dest$
        end_if
     end_if
     position 8,position(8)+1
     wait 1000
     item_delete 6,1
  next x%
  clear 9
  hide 8:position 8,0
  message "Copie Terminée!"
  active 10
return

Quitter:
   Terminate
return