Discussion :

[Rigaux]

Bonjour tout le monde,

Je voulais savoir si quelqu'un savait comment je peux récupérer le path name d'un fichier ouvert avec GWindow.file_chooser_dialog.


En gros je veux pouvoir changer mon working directory au directory du fichier que je souhaite ouvrir ?

Ma fonction d'ouverture de fichier est la suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
module Aux =
struct
	let load file =
		let ich = open_in file in
		let len = in_channel_length ich in
		let buf = Buffer.create len in
		Buffer.add_channel buf ich len;
		close_in ich;
		print_endline (Buffer.contents buf);
		(*Fonction de chargement*)
end
 
(* GtkFileChooserDialog - Boîte de dialogue d'ouverture et d'enregistrement. *)
let action_button stock event action =
	let dlg = GWindow.file_chooser_dialog
		~action:`OPEN
		~parent:window
		~position:`CENTER_ON_PARENT
		~destroy_with_parent:true () in
	dlg#add_button_stock `CANCEL `CANCEL;
	dlg#add_select_button_stock stock event;
	let btn = GButton.button ~stock ~packing:bbox#add () in
	ignore (GMisc.image ~stock ~packing:btn#set_image ());
	ignore (btn#connect#clicked (fun () ->
	if dlg#run () = `OPEN then Gaux.may action dlg#filename;
	dlg#misc#hide ()));
 	btn;;

J'essaye d'utiliser le module Filename d'OCAML mais je ne sais pas comment l'utiliser... Savez vous comment je peux faire ?

Merci d'avance

Rigaux

[SpiceGuid]

Tu n'étais pourtant pas très loin de la réponse il me semble.
À moins que je ne fasse erreur.

Selon moi Filename.dirname permet d'extraire le nom du répertoire d'un dlg#filename et Sys.chdir change le répertoire de travail.
À charge pour toi de récupérer le dlg#filename, car à ma connaissance il n'est pas possible de récupérer le nom d'un channel ouvert.

[Rigaux]

Le problème c'est que je ne sais pas comment utiliser la commande Filename.dirname... Je ne trouve aucun exemple en plus ...

Saurais-tu comment l'utiliser ?

[Rigaux]

Je répond moi même à ma question, j'ai réussi

Merci quand meme pour ton aide !

Rigaux