Explorateur

label actualiser,quit,executer,demarrer,no,yes
label non,oui,go,contenu,disquesdurs,suppr
dim a$,i
dir_change "c:\"

left 0,100
top 0,100
width 0,500
height 0,240
caption 0,"Explorateur"
command_target_is 0

edit 2
left 2,87
top 2,10
width 2,400
text 2,"c:\"

alpha 3
left 3,5
top 3,12
caption 3,"Nom du Fichier :"

option 4
left 4,20
top 4,40
caption 4,"Référence"
mark_on 4
on_click 4,oui

option 5
left 5,200
top 5,40
caption 5,"Aucune Référence"
on_click 5,non

list 6
left 6,15
top 6,60
width 6,170
height 6,140
dir_change text$(2)
item_add 6,file_find_first$
a$=file_find_next$
while a$<>"_"
  item_add 6,a$
  a$=file_find_next$
end_while
file_find_close
on_click 6,go

button 7
left 7,200
top 7,175
caption 7,"Actualiser"
on_click 7,actualiser

button 8
left 8,280
top 8,175
caption 8,"Exécuter..."
on_click 8,executer

button 9
left 9,360
top 9,175
caption 9,"Quitter"
on_click 9,quit

button 10
top 10,145
left 10,200
width 10,110
caption 10,"Contenu en texte..."
on_click 10,contenu

button 13
left 13,315
width 13,53
top 13,145
caption 13,"C:\"
on_click 13,disquesdurs

button 14
left 14,373
width 14,61
top 14,145
caption 14,"D:\"
on_click 14,disquesdurs

button 15
left 15,200
top 15,115
width 15,234
caption 15,"Exécuter et attendre la fin..."
on_click 15,demarrer

button 16
left 16,200
width 16,100
top 16,85
caption 16,"Recommencer"
on_click 16,disquesdurs

button 17
left 17,305
width 17,129
top 17,85
caption 17,"Supprimer le Fichier..."
on_click 17,suppr

' invisibles ----------------------------------

form 11
hide 11
command_target_is 11
caption 11,"Contenu du Fichier en texte"

memo 12
hide 12
bar_both 12
font_size 12,8
font_name 12,"Courier New"
full_space 12

' ------------------------

form 18
hide 18
left 18,50
top 18,50
height 18,120
width 18,255
caption 18,"Info - Explorateur"
command_target_is 18

alpha 19
left 19,10
top 19,10
font_size 19,10
caption 19,"Êtes-vous sûr de supprimer ce fichier ?"

button 20
left 20,20
top 20,50
caption 20,"Oui"
on_click 20,yes

button 21
left 21,100
top 21,50
caption 21,"Non"
on_click 21,no

end

actualiser:
clear 6
dir_change text$(2)
item_add 6,file_find_first$
a$=file_find_next$
while a$<>"_"
  item_add 6,a$
  a$=file_find_next$
end_while
file_find_close
on_click 6,go
return

executer:
execute text$(2)
return

non:
inactive 6
return

oui:
active 6
return

go:
if text$(2)="a:\" or text$(2)="A:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="b:\" or text$(2)="B:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="c:\" or text$(2)="C:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="d:\" or text$(2)="D:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="e:\" or text$(2)="E:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="f:\" or text$(2)="F:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="g:\" or text$(2)="G:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="h:\" or text$(2)="H:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="i:\" or text$(2)="I:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="j:\" or text$(2)="J:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="k:\" or text$(2)="K:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="l:\" or text$(2)="L:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="m:\" or text$(2)="M:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="n:\" or text$(2)="N:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="o:\" or text$(2)="O:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="p:\" or text$(2)="P:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="q:\" or text$(2)="Q:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="r:\" or text$(2)="R:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="s:\" or text$(2)="S:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="t:\" or text$(2)="T:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="u:\" or text$(2)="U:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="v:\" or text$(2)="V:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="w:\" or text$(2)="W:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="x:\" or text$(2)="X:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="y:\" or text$(2)="Y:\" then text 2,text$(2)+item_index$(6):off_click 6:return
if text$(2)="z:\" or text$(2)="Z:\" then text 2,text$(2)+item_index$(6):off_click 6:return
text 2,text$(2)+"\"+item_index$(6)
off_click 6
return

contenu:
show 12:show 11
file_load 12,text$(2)
return

disquesdurs:
if clicked(13)=1 then text 2,"c:\":on_click 6,go
if clicked(14)=1 then text 2,"d:\":on_click 6,go
if clicked(16)=1
  text 2,"c:\":on_click 6,go
  clear 6
  dir_change text$(2)
  item_add 6,file_find_first$
  a$=file_find_next$
  while a$<>"_"
    item_add 6,a$
    a$=file_find_next$
  end_while
  file_find_close
end_if
return

demarrer:
execute_wait text$(2)
return

suppr:
show 18
return

no:
hide 18
return

yes:
file_delete text$(2)
message "Fichier supprimer !"
return

quit:
terminate