Rebonjour à tous,
mon problème est le suivant :
à l'aide de la commande OPEN(f);
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
function OPEN(var f : file):boolean;
{Description : OPEN ouvre un fichier}
Const CHEMIN='Dico.dcm';
var tmp:integer;
 
Begin
	Assign(f,CHEMIN);
	FileMode:=2;
	{$I-}reset(f,1);{$I+}
	tmp:=IOResult;
	if (tmp<>0) then begin
		writeln('Probleme lors de l"ouverture du fichier');
		if (tmp=2) then	begin
			writeln('Fichier introuvable! creation du fichier ',CHEMIN);
			rewrite(f,1);
			{ajout gestion d'erreurs de rewrite, le repertoire n"existe pas..}
		end;
	end;
	OPEN:=TRUE;
end{/OPEN};
j'aimerais pouvoir créer des dossiers qui n'existeraient pas dans 'CHEMIN'
ex: CHEMIN='\file\dico.dcm';
ici 'file' n'existe pas

Merci