IDFTP - RemoveDir
22/11/2005
0
Não consigo de forma alguma apagar um diretório no FTP. O que será que estou fazendo errado?
Codigo:
strlArquivos := TStringList.Create;
with DataModule.IdFTP do
begin
Host := ´TERRA´;
Port := ´5010´;
Username := ´1´;
Password := ´1´;
if not Connected then
Connect;
ChangeDir(copy(prNrContr,1,8));
ChangeDir(copy(prNrContr,9,4));
ChangeDir(copy(prNrContr,13,10));
List(strlArquivos,´´,false);
// Remove os arquivos
for i:=0 to strlArquivos.Count -3 do
begin
sNomeArq := strlArquivos[i+2];
Delete(sNomeArq);
end;
sDir := trim(copy(prNrContr,13,10));
// Remove o diretório
DataModule.IdFTP.RemoveDir(sDir);
Esse removeDir nao funciona. Pq será?
Codigo:
strlArquivos := TStringList.Create;
with DataModule.IdFTP do
begin
Host := ´TERRA´;
Port := ´5010´;
Username := ´1´;
Password := ´1´;
if not Connected then
Connect;
ChangeDir(copy(prNrContr,1,8));
ChangeDir(copy(prNrContr,9,4));
ChangeDir(copy(prNrContr,13,10));
List(strlArquivos,´´,false);
// Remove os arquivos
for i:=0 to strlArquivos.Count -3 do
begin
sNomeArq := strlArquivos[i+2];
Delete(sNomeArq);
end;
sDir := trim(copy(prNrContr,13,10));
// Remove o diretório
DataModule.IdFTP.RemoveDir(sDir);
Esse removeDir nao funciona. Pq será?
Foxcyber
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)