Fórum Como criar uma pasta? #299100

11/10/2005

0

Delphi

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



[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

Neves777

Responder

Posts

11/10/2005

Zumbi

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;


Responder

Gostei + 0

11/10/2005

Neves777

Obrigado pela dica zumbi :!: :!: :!:


Responder

Gostei + 0

11/10/2005

Imoreira

Tem também a função Createdir()

Sintaxe: CreateDir(Edit1.Text);


Responder

Gostei + 0

11/10/2005

Steve_narancic

voce tambem pode utilizar a função:

[b:f46e957854]ForceDirectories()[/b:f46e957854][/code]


Responder

Gostei + 0

13/10/2005

Neves777

Obrigado pessoal!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar