idFTP->List

[Baburek]

Привет. Пытаюсь рекурсивно получать список всех файлов(с выводом пути в мемо1), для дальнейших операций. И возникает проблема. Делаю следующим образом:

void TForm1::GetFolder(AnsiString CurFolder)
{
    idFTP->ChangeDir(CurFolder);
if (slDirs)
        delete slDirs;    
        slDirs = new TStringList;        
        idFTP->List(slDirs, ' ', False);  //получаю все файлы в папке
        Memo1->Lines->AddStrings(slDirs); // записываю в Мемо
        for (int i=0; i<=(Form1->Memo1->Lines->Count-1); i++)
        {
        sa = Memo1->Lines->Strings[i]; //по одной достаю из Мемо
        if (! strstr(sa.c_str(),"."))   //если не файл
        {
           char* a = sa.c_str();
           char* cf = CurFolder.c_str();
           strcat(cf,"//");          //меняем путь
           strcat(cf,a);
           GetFolder(cf); // -----------------------ОШИБКА: AccessViolation at address 00000000
           CurFolder[strlen(CurFolder.c_str())-strlen(strrchr(CurFolder.c_str(),'//'))]='\0' ;
       ...
       }
       else      {
       ...    //else
               }
        }
}

Стартует функция так:

GetFolder(".//MyFolder");

Очевидно накосячил. О чем мог забыть? Или не подумать.

[Baburek]

А если напрямую назначить существующую папку в цикле - говорит, что ее не существует:

void GetFolder(AnsiString CurFolder)
{
    slDirs->Clear();
    idFTP->ChangeDir(CurFolder);
    idFTP->List(slDirs, ' ', False);
    Memo1->Lines->AddStrings(slDirs);
        for (int i=0; i<=(Form1->Memo1->Lines->Count-1); i++)
        {
        sa = Memo1->Lines->Strings[i];
        if (! strstr(sa.c_str(),"."))
                         GetFolder("./MyFolder/img");
        }
}

Вызов:

GetFolder("./MyFolder");

Ошибка:

Project Project1.exe raised exception class EIdProtocolReplyError with message './MyFolder/img: No such file or directory.'. Process stopped. Use Step or Run to continue.

Если же написать в вызове функции:

GetFolder("./MyFolder/img");

то выведутся все файлы данной папки.

[Baburek]

Разобрался, тему можно закрыть