[Free Pascal] Créer dossier

Version imprimable

Rebonjour à tous,
mon problème est le suivant :
à l'aide de la commande OPEN(f);

Code:

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

08/12/2006, 20h12
Alcatîz

Bonjour !

La procédure mkdir (const s : String) permet de créer un dossier.
08/12/2006, 21h34
zekiller3

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?

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:

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

10/12/2006, 12h41
Alcatîz

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).
10/12/2006, 13h00
inoussa

Salut
Cette fonction fait exactement ce que vous essayez de faire. Elle est décalrée dans SysUtils
A+
10/12/2006, 13h13
zekiller3

grand merci à vous
forcedirectories me facilite la tâche ^^
et je créée les dossiers en relatif