Закачка по FTP на сервер Опции

[++Norton++]

Помогите пожалуйста разобраться.
Нужно загрузить содержимое директории на сервер по фтп. Делал так:

    QDir dir;
    QByteArray fln;
    QStringList uploadDir;
    QFtp *session = new QFtp();

    dir.cd("dir/");
    uploadDir = dir.entryList();

    session->connectToHost(m_ui->siteEdit->text(), m_ui->portEdit->text().toInt());
    session->login(m_ui->loginEdit->text(), m_ui->passwordEdit->text());
    session->cd(m_ui->directoryEdit->text());

for(int i=0; i<uploadDir.length(); i++) {

    fln.append(uploadDir.at(i));                                                             
    session->put(fln, uploadDir.at(i), QFtp::Binary);
    m_ui->processMonitor->append("Success "+uploadDir.at(i));
        
}

    session->close();

Компилируется без ошибок, однако ничего на сервер не загружает
Что я делаю не так?

[++Norton++]

Убрал session->close, но результат тот-же.
Такое чувство, что в этом цикле все строки кроме вывода в TextEdit вообще игнорируются (т.к. уж очень быстро они выводятся). Как будто никакого соединения не происходит вовсе.