dépannage ouverture fichier

Invité

J'ai eu un problème en voulant ouvrir à différents endroits des fichiers dans des disques différents.
Je ne sais pas où on en ait avec DIR_CHANGE, mais j'ai pas réussi à imposer un dossier différent selon l'endroit du programme. Peut-être que je me suis mal pris. Mais comme je n'ai pas le temps de chercher et rechercher pour que ça marche, j'ai préférer faire un programme 'rapidos' pour m'en sortir.

Déjà je vais mettre la partie qui ne marchait pas comme je le voulais, car l'open-dialog ne me donnait pas le bon dossier:

Code:: case 2 :' OUVRIR
current$ = dir_current$
Dir_change Rich_Fichier$ :message rich_fichier$+chr$(13)+dir_current$

FILTER MemoOuvrir,"Ouverture d'un fichier texte ou rtf|*.txt;*.rtf"

MemoFichier$ = FILE_NAME$(MemoOuvrir)

if MemoFichier$ <>"_"
item_add MemoEdit,"Rich:Ouvrir:"+MemoFichier$
wait 100
end_if
Dir_change current$

Et j'ai réagi de cette façon:

Code:: dim a$ , Rich_Fichier$
label choisir_fichier , ouvrir_fichier , annuler_fichier , montre_5000
rich_fichier$ = "C:\MAPt\apprenti\" :' à adapter
container 5000:parent 5000,0:left 5000,width(0)/2-200+left(0) :top 5000,height(0)/2-160 +top(0) :width 5000,400:height 5000,330:hide 5000
list 5001:parent 5001,5000:font_size 5001,12:left 5001,10:top 5001,40:width 5001,360:height 5001,230
on_click 5001,choisir_fichier

alpha 5002:parent 5002,5000:left 5002,10:top 5002, 10 :caption 5002,"Ouvrir":font_size 5002,12:font_bold 5002
edit 5003:parent 5003,5000:left 5003,10:top 5003,250 :width 5003,380 :font_size 5003,12
button 5004:parent 5004,5000:top 5004,290:left 5004,110 :caption 5004,"Ouvrir":font_size 5004,12
on_click 5004,ouvrir_fichier

button 5005:parent 5005,5000:top 5005,290:left 5005,210 :caption 5005,"Annulez":font_size 5005,12
on_click 5005,annuler_fichier

button 5006: top 5006,10:left 5006,10:caption 5006,"Lire fichier":font_size 5006,12:width 5006,100
on_click 5006,montre_5000

end
' =============
montre_5000:
inactive 5006
show 5000 :clear 5001
Dir_change Rich_Fichier$
a$ = file_find_first$
item_add 5001,a$
a$=file_find_next$
while a$<>"_"
item_add 5001, a$
a$=file_find_next$
end_while
file_find_close
return
' -------------------
choisir_fichier:
text 5003,item_index$(5001)
return
' -------------------
ouvrir_fichier:
caption 0,text$(5003) :hide 5000 : active 5006
return
' -------------------
annuler_fichier:
hide 5000 : active 5006
return

Ceci est un code de départ, et on peut l'améliorer, mais pour moi il est très bien pour l'instant. Il faut que je reprenne ce qui est de coté.

Au lieu de DIR_CHANGE, utilise DIR_DIALOG avant l'appel à FILE_NAME$. Cette commande change spécifiquement le dossier pour le OPEN_DIALOG ou CLOSE_DIALOG.

Invité

Merci Klaus.
J'avais complètement 'zappé' cette commande. Il me semblait bien qu'il y avait une possibilité d'être sur plusieurs dossiers.
Bon tout est changé et en ordre, donc ce sera pour la prochaine fois.

» [BDR] Fichier ciblé à l'ouverture
» ouverture d'un fichier excel
» Ouverture READ/WRITE d'un fichier binaire
» [Résolu] Ouverture fichier PDF ou CHM dans FORM Panoramic
» Comment reconvertir un fichier exe Panoramic en fichier BAS