Discussion :

[amiskhaled]

j'ai essayer de compiler ce code et ça ne marche pas car il s'arrête sur le mot forcedirecories et pourtant l'unité est déclare par défaut sysutils.
je sais pas c'est quoi le probleme.merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
  Dir: string;
begin
  Dir := 'C:\APPS\SALES\LOCAL';
  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' a été créé'
end;

[Charly910]

Bonjour,

chez moi cela fonctionne en D7 - d'ailleurs c'est l'exemple de l'aide

as tu bien déclaré :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Uses SysUtils ;

soit après Interface, soit après implementation

Sinon, montre tout ton code

@+

Charly

[amiskhaled]

cette unité est declaré automatiquement et j'ai verifier sa et malgré sa, sa marchait pas.je sais pas , s'il quelqu'un a une autre idee avec plaisir

[JustMe]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function MkDirMulti(sPath: string): boolean;
begin
  StringReplace(sPath, '\', '\\', [rfReplaceAll, rfIgnoreCase]);
  if sPath[Length(sPath)] = '\' then
    sPath := Copy(sPath, 1, Length(sPath) - 1);
  Result := True;
  if sPath[Length(sPath)] = '' then
    sPath := Copy(sPath, 1, Length(sPath) - 1);
  if (Length(sPath) < 3) or DirectoryExists(sPath) then
    Exit;
  MkDirMulti(SysUtils.ExtractFilePath(sPath));
 
  try
    MkDir(sPath);
  except
    Result := False;
    { Handle errors }
  end;
end;

[Rayek]

@JustMe : C'est bien mais bon il existe une fonction qui le fait directement dans delphi

@amiskhaled :

Je pense qu'il manque un \ à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dir := 'C:\APPS\SALES\LOCAL\'; // <-- ici

[alainvh]

Bonjour,

Je viens d'essayer ton code texto (j'ai fait un copier-coller) sous Delphi 7 : ça marche parfaitement !

[philnext]

Et si tu mettais le message d'erreur ?

[Jipété]

Salut,

@amiskhaled :

Je pense qu'il manque un \ à la fin

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dir := 'C:\APPS\SALES\LOCAL\'; // <-- ici

Bah non, comme l'a signalé Charly910, c'est exactement l'exemple de l'aide et chez moi (D7) ça a fonctionné sans souci : j'ai juste copié/collé l'exemple et zou !

D'ailleurs, un truc intéressant dans un Sysutils.pas de chez Koders :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
function ForceDirectories(Dir: string): Boolean;
  (...)
  Dir := ExcludeTrailingPathDelimiter(Dir);

et aussi (même source) :

The function can fail if the current user does not have sufficient file access rights to create directories in the given path.