Création de répertoires multiples



Lors de la création de répertoires à multiples niveaux, il n'est pas évident que seul le dernier répertoire de la chaîne soit à créer. Or, la fonction CreateDir ne crée qu'un seul niveau de répertoire, si on lui donne plusieurs niveaux, elle échoue. On pourrait êcrire une fonction qui testerait si tous les répertoires requis existent, et, dans le cas contraire, les créer. Mais les ingénieurs de Delphi y ont déjà pensé et ont créé la fonction ForceDirectories, dissimulée dans l'unité FileCtrl.


Création de répertoire multiple

uses
  FileCtrl;

const
  mydir = 'C:\1\2\3\4\5\6';

begin
  if not DirectoryExists(mydir) then ForceDirectories(mydir);
end;




3 requête(s) SQL executée(s) en 0.008 Secs - Temps total de génération de la page : 0.014 Secs