Como criar uma pasta?
Boa Tarde,
Desculpe a ignorancia, mas alguem ai pode me mostrar o código para se criar uma simples pasta no Windows?
Pesquisei aqui no forum mas nao encontrei
Obrigado
Desculpe a ignorancia, mas alguem ai pode me mostrar o código para se criar uma simples pasta no Windows?
Pesquisei aqui no forum mas nao encontrei
Obrigado
[b:ce26cce085][color=blue:ce26cce085]Título do tópico editado por Vinicius2K:[/color:ce26cce085][/b:ce26cce085]
[b:ce26cce085][color=red:ce26cce085][list:ce26cce085][*:ce26cce085]Falta de clareza. Removido: ´Pequena ajuda´[/list:u:ce26cce085][/color:ce26cce085][/b:ce26cce085]
Peço que leia atentamente as [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] e se algum esclarecimento sobre o funcionamento do fórum ou sobre as Regras de Conduta for necessário, envie-me uma [url=http://forum.clubedelphi.net/privmsg.php?mode=post&u=2796]Mensagem Particular[/url].
Neves777
Curtidas 0
Respostas
Zumbi
11/10/2005
uses Dialogs;
begin
{$I-}
{ Get directory name from TEdit control }
MkDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg(´Cannot create directory´, mtWarning, [mbOk], 0, mbOk)
else
MessageDlg(´New directory created´, mtInformation, [mbOk], 0, mbOk);
end;
begin
{$I-}
{ Get directory name from TEdit control }
MkDir(Edit1.Text);
if IOResult <> 0 then
MessageDlg(´Cannot create directory´, mtWarning, [mbOk], 0, mbOk)
else
MessageDlg(´New directory created´, mtInformation, [mbOk], 0, mbOk);
end;
GOSTEI 0
Neves777
11/10/2005
Obrigado pela dica zumbi :!: :!: :!:
GOSTEI 0
Imoreira
11/10/2005
Tem também a função Createdir()
Sintaxe: CreateDir(Edit1.Text);
Sintaxe: CreateDir(Edit1.Text);
GOSTEI 0
Steve_narancic
11/10/2005
voce tambem pode utilizar a função:
[b:f46e957854]ForceDirectories()[/b:f46e957854][/code]
[b:f46e957854]ForceDirectories()[/b:f46e957854][/code]
GOSTEI 0
Neves777
11/10/2005
Obrigado pessoal!
GOSTEI 0