Fórum Criar diretorio na rede #293703

Boa tarde, marcelo-fabio.

[b:d248329478]Se for local use:[/b:d248329478]

var
Dir: string;
(...)
Dir := ´C:\Novo\APP\exemplo´;
ForceDirectories(Dir);
if DirectoryExists(Dir) then
Label1.Caption := Dir + ´ criado com sucesso.´

OBS: não esquece de adicionar a unit FileCtrl.

[b:d248329478]Se for remoto-ftp, use:[/b:d248329478]


procedure TMainForm.CriarDirBtnClick(Sender: TObject);
Var
S: String;
begin
S := InputBox(´Criar novo diretório´, ´Nome´, ´´);
if S <> ´´ then
try
SetFunctionButtons(false);
IdFTP1.MakeDir(S);
ChageDir(CurrentDirEdit.Text);
finally
SetFunctionButtons(true);
end;
end;

OBS: usando o componente IdFTP da paleta Indy

Se não servir, especifique sua necessidade :)

Boa programação,

Lucania salvatore

Não consegui usar seu código pois da erro no ´ SetFunctionButtons(false); ´
E quanto ao servidor vou tentar explicar melhor.

rodo minha aplicação na máquina 192.168.1.3 por exemplo e quero criar o diretório na 192.168.1.5. Entendeu?


Desde já agradeço a ajuda.

Sobe