Répertoire: Création & test d'existance

Salut,

Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
A+ et encore merci

Uses SysUtils;

if ForceDirectories('C:\MyDir\Dir1\Dir2') then
Showmessage('Directory crayè ou existant dèja...');

Bon Coding ....

ManChesTer.


-------------------------------
Réponse au message :
-------------------------------

> Salut,
>
> Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> A+ et encore merci
>
>

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;



-------------------------------
Réponse au message :
-------------------------------

> Uses SysUtils;
>
> if ForceDirectories('C:\MyDir\Dir1\Dir2') then
> Showmessage('Directory crayè ou existant dèja...');
>
> Bon Coding ....
>
> ManChesTer.
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Salut,
> >
> > Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> > A+ et encore merci
> >
> >
>

As-tu ajouté Uses SysUtils; ?

RMD

www.Logiciels-RMD.com


-------------------------------
Réponse au message :
-------------------------------

> 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;
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Uses SysUtils;
> >
> > if ForceDirectories('C:\MyDir\Dir1\Dir2') then
> > Showmessage('Directory crayè ou existant dèja...');
> >
> > Bon Coding ....
> >
> > ManChesTer.
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Salut,
> > >
> > > Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> > > A+ et encore merci
> > >
> > >
> >
>

Oui
Voir si dessous
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;


-------------------------------
Réponse au message :
-------------------------------

> As-tu ajouté Uses SysUtils; ?
>
> RMD
>
> www.Logiciels-RMD.com
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > 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;
> >
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > Uses SysUtils;
> > >
> > > if ForceDirectories('C:\MyDir\Dir1\Dir2') then
> > > Showmessage('Directory crayè ou existant dèja...');
> > >
> > > Bon Coding ....
> > >
> > > ManChesTer.
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Salut,
> > > >
> > > > Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> > > > A+ et encore merci
> > > >
> > > >
> > >
> >
>

Heu, je voulais dire : FileCtrl !
Désolé.

RMD

www.Logiciels-RMD.com


-------------------------------
Réponse au message :
-------------------------------

> Oui
> Voir si dessous
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > As-tu ajouté Uses SysUtils; ?
> >
> > RMD
> >
> > www.Logiciels-RMD.com
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > 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;
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Uses SysUtils;
> > > >
> > > > if ForceDirectories('C:\MyDir\Dir1\Dir2') then
> > > > Showmessage('Directory crayè ou existant dèja...');
> > > >
> > > > Bon Coding ....
> > > >
> > > > ManChesTer.
> > > >
> > > >
> > > > -------------------------------
> > > > Réponse au message :
> > > > -------------------------------
> > > >
> > > > > Salut,
> > > > >
> > > > > Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> > > > > A+ et encore merci
> > > > >
> > > > >
> > > >
> > >
> >
>

Je voulais dire FileCtrl et non SysUtils, désolé !

RMD

www.Logiciels-RMD.com


-------------------------------
Réponse au message :
-------------------------------

> Oui
> Voir si dessous
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > As-tu ajouté Uses SysUtils; ?
> >
> > RMD
> >
> > www.Logiciels-RMD.com
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > 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;
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > Uses SysUtils;
> > > >
> > > > if ForceDirectories('C:\MyDir\Dir1\Dir2') then
> > > > Showmessage('Directory crayè ou existant dèja...');
> > > >
> > > > Bon Coding ....
> > > >
> > > > ManChesTer.
> > > >
> > > >
> > > > -------------------------------
> > > > Réponse au message :
> > > > -------------------------------
> > > >
> > > > > Salut,
> > > > >
> > > > > Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> > > > > A+ et encore merci
> > > > >
> > > > >
> > > >
> > >
> >
>

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;

Bon Coding ....

ManChesTer.

Ca marche,
Merci
A+



-------------------------------
Réponse au message :
-------------------------------

> Heu, je voulais dire : FileCtrl !
> Désolé.
>
> RMD
>
> www.Logiciels-RMD.com
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Oui
> > Voir si dessous
> > uses
> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > As-tu ajouté Uses SysUtils; ?
> > >
> > > RMD
> > >
> > > www.Logiciels-RMD.com
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > > 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;
> > > >
> > > >
> > > >
> > > > -------------------------------
> > > > Réponse au message :
> > > > -------------------------------
> > > >
> > > > > Uses SysUtils;
> > > > >
> > > > > if ForceDirectories('C:\MyDir\Dir1\Dir2') then
> > > > > Showmessage('Directory crayè ou existant dèja...');
> > > > >
> > > > > Bon Coding ....
> > > > >
> > > > > ManChesTer.
> > > > >
> > > > >
> > > > > -------------------------------
> > > > > Réponse au message :
> > > > > -------------------------------
> > > > >
> > > > > > Salut,
> > > > > >
> > > > > > Je suis à la recherche des commandes permettant de créer et de tester l'existance d'un pépertoire.
> > > > > > A+ et encore merci
> > > > > >
> > > > > >
> > > > >
> > > >
> > >
> >
>

L'utilisation de DirectoryExist aurrais fonctionné si tu n'aurais pas ajouté un '\' à la fin du chemin

Stg:= Chem+Stg;

au lieu de

Stg:= Chem+Stg+'\';


if DirectoryExists(Stg) then //Tout devrais fonctionner normalement