[Free Pascal] Créer dossier

**zekiller3** · 08/12/2006, 18h11

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

**Alcatîz** · 08/12/2006, 20h12

Bonjour !

La procédure mkdir (const s : String) permet de créer un dossier.

**zekiller3** · 08/12/2006, 21h34

merci à toi

est-ce que tu sais s'il existe une façon de créer récursivement les dossiers?

ou il me faut analyser le chemin passé en paramètre?

**zekiller3** · 10/12/2006, 11h25

rebonjour,

je suis confronté à un autre problème :
j'ai réussi à créer les dossiers qui n'existeraient pas dans mon appel de fonction OPEN. Le problème c'est que le programme me plante si je tente de créer un dossier déjà existant.

exemple :
je créé les dossiers temp/file/test
je rappelle la fonction pour créer le dossier temp/toto
et forcément il me plante car temp existe déjà

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
28
29
30
31
32
33
34
35
36
37
38
39
function fileDir(var f:file;Const cible : String):boolean;
var cibleInd,j,k,tmp:integer;
	folder : string;
begin
	cibleInd:=1;
	if (cible[cibleInd]='/') then begin 
		writeln('Error : incorrect Path name');
		fileDir:=FALSE;
	end
	else begin
		folder:='';
		Assign(f,cible);
		FileMode:=2;
		while (cibleInd<length(cible)) do begin
			j:=cibleInd;
			k:=0;
			while (cible[j]<>'/') and (j<=length(cible)) do begin
				j:=j+1;
				k:=k+1;
			end{/while};
			folder:=folder+copy(cible,cibleInd,k);
			writeln(folder);
			if (cible[j]='/') then begin
			{a rajouter : exception d"erreur au cas ou le dossier existe deja}
				{$I-}mkdir(folder){$I+};
				//if tmp<>0 then begin
				folder:=folder+'/';
			end
			else rewrite(f,1);
			cibleInd:=j+1;
		end{/while};
		fileDir:=TRUE;
 
	end;
 
end;
 
 
end.

en fait ce programme me permet de créer un fichier au final dans des répertoires qui n'existeraient pas

**Alcatîz** · 10/12/2006, 12h41

Tu peux également récupérer le résultat de la tentative de création du dossier avec IOResult, ça devrait éviter une erreur d'exécution.

Question plus générale : travailles-tu avec des noms de chemins absolus ou relatifs ? Avec des chemins relatifs, si tu te trouves dans le dossier temp\file, tu ne pourras créer temp\toto qu'en l'appelant ..\toto (me semble-t-il).