1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| // Chemin complet à créer.
FullPathToCreate <-
Do
// Récupérer le premier nom de répertoire, limité par un "\".
PathToCreate <- GetFirstPath(FullPathToCreate)
// Retirer l'élément venant d'être créé du chemin complet, inclus un éventuel "\" initial.
RemoveFirstPath(FullPathToCreate)
// Créer le répertoire partiel.
ErrorCode <- CreateDirectoryEx(PathToCreate)
// L'erreur "Le répertoire existe déjà" n'en est pas une, ici, donc on la supprime.
if (ErrorCode == ERROR_ALREADY_EXISTS)
ErrorCode <- NO_ERROR
end if
// Et on continue tant qu'il n'y a pas de vraie erreur et qu'il reste des chemins à créer.
While ((Error == NO_ERROR) AND (Length(FullPathToCreate) != 0)) |
Partager