Como criar nova pasta via programação?

Delphi

09/05/2003

Estou fazendo um programa de instalação sem o installshield, e parei nesta parte que preciso criar as pastas antes de copiar os arquivos do programa.

se alguém souber, Valeu!!!


Tiocassio

Tiocassio

Curtidas 0

Respostas

Vanius

Vanius

09/05/2003

Boa tarde.

eu utilizo a seguinte instrução:

CreateDir(Edit1.Text);

CreateDir(String);

Nao se esqueça de declarar uses Sysutils;


Espero ter ajudado.
Abraços,


Vanius Girodo
vanius@bol.com.br


GOSTEI 0
Charlesjungbeck

Charlesjungbeck

09/05/2003

Criando diretório

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;



:D :) :lol:


GOSTEI 0
POSTAR