[MARLON1]

hola a todos:

bueno mi problema es el siguiente, estoy tratando de subir un archivo a un directorio de mi servidor, pero hasta ahora no lo eh conseguido, lo unico que eh logrado hacer gracias a los ejemplos que eh encontrado en el foro es la conexion con el servidor, pero al momento de subir el archivo me sale el error: Project.exe raised exception class EIdReplyRFCError with message 'M01.01.S.txt': Access denied.

M01.01.S es el archivo que quiero subir.

estoy utilizando el componente idFTP1 con delphi 2010.
Aqui les dejo el codigo que tengo. Gracias por la ayuda que me puedan proporcionar.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTP1.Host := 'host';
idFTP1.DirectoryListing.DirectoryName:='host/carpeta/subcarpeta/';
idFTP1.Port := 21;
idFTP1.Username := 'user';
idFTP1.Password := 'password';
idFTP1.Connect;
ShowMessage('Conectado con el servidor.');

 if idFTP1.Connected then
  begin
      idFTP1.Put('C:\Documents and Settings\Administrador\Escritorio\M02.01.S.txt', ExtractFileName('C:\Documents and Settings\Administrador\Escritorio\M02.01.S.txt'));
      idFTP1.Disconnect;
      ShowMessage('Fichero subido.');
    end;

end;