stigmate101
Messages postés89Date d'inscriptionmardi 17 juin 2003StatutMembreDernière intervention30 avril 2020
-
30 juin 2003 à 10:50
_Moise_
Messages postés12Date d'inscriptiondimanche 30 novembre 2003StatutMembreDernière intervention27 juillet 2006
-
2 août 2004 à 16:54
Salut,
Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
A+ et encore merci
:shy)
stigmate101
Messages postés89Date d'inscriptionmardi 17 juin 2003StatutMembreDernière intervention30 avril 2020 1 juil. 2003 à 10:08
Je te remercie pour ta réponse cependant je souhaite faire un test d'existance de répertoire et si seulement selui-ci n'existe pas le créer. Mais surtout pas l'écraser s'il existe.
Petite précision j'utilise Delphi 5 Pro.
J'ai essayé avec FileExists mais j'ai un message d'erreur à la compil.
Mon code utilisé pour le test:
Procedure TForm2.ExistanceRepertoire();
{ Test l'existance d'un répertoire }
var Stg:string;
Chem:string;
begin
Chem:=ExtractFilePath(Application.ExeName); //Récupération de chemin de l'exécutable
Stg:= Form1.EditExistanceRepertoire.Text; //Concaténation du chemin contenu dans la variable Chem avec le nom du répertoire à créer.
Stg:= Chem+Stg+'\';
if DirectoryExists(Stg)then // !!!!! message d'erreur :Identificateur non déclaré !!!!!
begin
ShowMessage('oui');
end
else
begin
messagebeep(1);
ShowMessage('Non');
end;
end;
cs_ManChesTer
Messages postés374Date d'inscriptionvendredi 20 octobre 2000StatutModérateurDernière intervention15 janvier 2021 1 juil. 2003 à 17:13
Ajoute Windows dans Les Uses
Function DirectoryExists(Stg:string):Boolean;
var Hnd:Thandle;
Lpw:_WIN32_FIND_DATA;
begin
{$I-}
Result:=True;
Lpw.dwFileAttributes:=FILE_ATTRIBUTE_DIRECTORY;
Hnd:=Windows.FindFirstFile(Pchar(Directory),lpw);
If hnd=INVALID_HANDLE_VALUE then
Result:=False;
Windows.Findclose(Hnd);
{$I+}
end;