Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

j ai un petit soucis avec ce code
le createdir ne marche pas dans le 1er cas, alors qu il marche dans le second
de plus il ne m'affiche pas l'erreur

merci de votre aide

1er cas

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
        i := LastDelimiter('\', s);
        sDirExport := _Context.PathImages + '\ExportGedcom';
 
        if RightStr(sDirExport, 1) = '\' then
          sDirExport := Copy(sDirExport, 0, Length(sDirExport) - 1);
 
        sDirExport := sDirExport + '\dossier_' + IntToStr(dm.NumDossier);
 
        if not DirectoryExists(sDirExport) then
          try
            CreateDir(sDirExport)
          except
            on E: Exception do
              showmessage(E.Message);
          end;

2eme cas

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
       i := LastDelimiter('\', s);
        sDirExport := _Context.PathImages + '\ExportGedcom';
 
//        if RightStr(sDirExport, 1) = '\' then
//          sDirExport := Copy(sDirExport, 0, Length(sDirExport) - 1);
//
//        sDirExport := sDirExport + '\dossier_' + IntToStr(dm.NumDossier);
 
        if not DirectoryExists(sDirExport) then
          try
            CreateDir(sDirExport)
          except
            on E: Exception do
              showmessage(E.Message);
          end;

[Okaryn]

Si le dossier "\ExportGedcom" n'existe pas, tu ne peux pas appeler CreateDir pour lui ajouter un sous-dossier, il faut utiliser ForceDirectories pour créer plus d'un répertoire en 1 seule fois.

[Cazaux-Moutou-Philippe]

Merci

cetait bien ca le pb

merci

[zizo89]

C'est : ForcesDirectories(Chemin:string);
ça permet de creer un arboressence de repertoir