Cria sub pastas no delphi

Question

Oi galera estou com um problema, preciso criar uma rotina que cria diretorios e subdiretorio, acontece que o comando

�createdir(�C:\casa\MinhaPasta�);�

nao funciona quando colocamos subdiretorios, so funciona quando colocamos do o diretorio princial

�createdir(�C:\casa�);�

que sober uma solu�ao vou ficar grato

Joilson_gouveia · Answer

Use o help...This example uses a label and a button on a form. When the user clicks the button, all the directories along the specified path that don�t exist are created. The results are reported in the caption of the label:procedure TForm1.Button1Click(Sender: TObject);var  Dir: string;begin  Dir := �C:APPSSALESLOCAL�;  if DirectoryExists(Dir) then    Label1.Caption := Dir + � was created�end;...

Keliniciante · Answer

// Declare  FileCtrl  na se��o USES.function MkSubDir(sPath : string): Boolean;beginif(�� = sPath[Length(sPath)])thenbeginsPath := Copy(sPath, 1,Length(sPath)-1);end;if((Length(sPath) < 3) or FileCtrl.DirectoryExists(sPath))thenbeginExit; end;MkDirMulti(SysUtils.ExtractFilePath(sPath));trySystem.MkDir( sPath );  Result := true;except  Result := False;end; end;...

Keliniciante · Answer

Para criar um diret�rio voc� precisa usar a fun��o ForceDirectories, o exemplo a baixo testa se n�o existe um diret�rio e cria o diret�rio apartir de uma vari�vel string testando se o diret�rio j� existe
Unit
FileCtrl
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := �C:\APPS\SALES\LOCAL�;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
Label1.Caption := Dir + � foi criado�;
end;

Bacalhau · Answer

Eeeeena que complica��o. Arranjando problemas para cada solu��o! eheheheh

Tenta:

Mkdir(�c:\casa�); // pasta principal
CHDir(�Casa�); // colocas-te na pasta criada
MkDir(�OutraPasta�) // j� est�!!

Abra�o do bacalhau

F�rum Cria sub pastas no delphi #176034