IdFTP1.Connect(true);
   try
      IdFTP1.MakeDir('資料夾名稱');
   except
      showmessage('資料夾已存在');
      exit;  //程式到此就離開了
   end;
   //---如果沒有資料夾(建立資料夾成功)--底下就可以寫複製檔案的程式