Lav en mappe

Brug ForceDirectories

Jens B

I delphi 6 ligger den i SysUtils. Delphi 4-5 ligger den i FileCtrl.

eksempel :
procedure TForm1.Button1Click(Sender: TObject);

var
  Dir: string;
begin

  Dir := 'C:\APPS\SALES\LOCAL';

  if ForceDirectories(Dir) then
    Label1.Caption := Dir + ' was created'

end;

Jens B

borrisholt> kan ikke bruge det men hvir du lavet et lille program men en memo edit og en button hvor man i edit skriver fx 5 og trykker på knappen så skriver den til memo

MkDir('C:\snyp\mapper\1');
MkDir('C:\snyp\mapper\2');
MkDir('C:\snyp\mapper\3');
MkDir('C:\snyp\mapper\4');
MkDir('C:\snyp\mapper\5');

function AddTalingSlash(const Path : String) : String;
begin
  Result := Path;
  if Result[Length(Result)] <> #92 then
    Result := Result + #92;
end;

Procedure DoMakeDirs(Root : String = ''; NumberOfDirs : Integer = 10);
var
  i : Integer;
begin

  if Root = '' then
    Root := AddTalingSlash(GetCurrentDir());
  ForceDirectories(Root);
  SetCurrentDir(Root);
  for i := 1 to NumberOfDirs do
    CreateDir(IntToStr(i));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoMakeDirs('C:\Hest');
end;

Jens B

borrisholt> kan du ikke sende programmet så jeg selv kan lave vidre på det

voodoofx@ofir.dk

JB >> IncludeTrallingPathDelimiter();

når nu den er lavet ikk' :-)

Jeg plejer ellers bare at bruge IncludeTrailingBackslash...

Den er lidt lang at skrive, men den virker fint for mig! ;)

martin hvor er du altså klog .... :-)

Jens B

dr.blaster lukker du så ikke spørgsmålet ?

Jens B

hermandsen >> Den er Platform afhængig det er den jeg foreslog IKKE ( win/linux )

Hmmm... Er det kun til D6, eller ligger den i en unit jeg ikke har lagt under uses? Jeg bruger kun D5 Prof, og der findes den ikke! :(

Hvorfor gør du ikke bare sådan her:
var i : integer;
begin
  i := strtoint(memo1.text);
  i+1;
  MkDir('C:\snyp\mapper\'+i);
  memo1.text := inttostr(i);
end;