Créer un répertoire

uses Dialogs;

begin
{$I-}
MkDir('c:windoof');
if IOResult <> 0 then
MessageDlg('Le répertoire n'a pu ętre crée ! / Error', mtWarning,
[mbOk], 0)
else
MessageDlg('Répertoire crée. / Okay', mtInformation, [mbOk], 0);
end;

Voir également ForceDirectories & CreateDir
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour16/11/2001
VisualisationVu 954 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur