Открыть папку, а не файл

       ZipForge1->FileName="c:\\Отдел Кадров - архивация.zip";
       ZipForge1->OpenArchive(fmCreate);
       ZipForge1->BaseDir = "C:\\Users\\Владислав\\Desktop\\Диплом";
       ZipForge1->AddFiles("C:\\Users\\Владислав\\Desktop\\Диплом\\*.*");
       ZipForge1->CloseArchive();
       ShowMessage("Архивация выполнена");

       const SELDIRHELP = 1000;
       TSearchRec sr;
       String Dir = "C:\\";
       int iAttributes = faAnyFile;
       int done = FindFirst(Dir, iAttributes,sr);
       ZipForge1->FileName="c:\\Отдел Кадров - архивация.zip";
       ZipForge1->OpenArchive(fmCreate);
       if(SelectDirectory(Dir,TSelectDirOpts() << sdAllowCreate << sdPerformCreate << sdPrompt,SELDIRHELP)){
       while(!done){
             ZipForge1->BaseDir = Dir;
             ZipForge1->AddFiles(Dir);
             done = FindNext(sr);
       }
       FindClose(sr);
       ZipForge1->CloseArchive();
       ShowMessage("Архивация выполнена");
    }

void __fastcall TForm1::Button1Click(TObject *Sender)
{      /* #include <FileCtrl.hpp> */
    String dir;
    SelectDirectory("Выбор каталога","",dir);
    Caption = dir;
}

done = FindNext(sr);
ZipForge1->AddFiles(sr);

String dir,path;
path = SelectDirectory("Выбор каталога","",dir);
ZipForge1->AddFiles(path+"*.*");

String dir,path;
path = SelectDirectory("Выбор каталога","",dir);
ZipForge1->BaseDir = path;
ZipForge1->AddFiles("*.*");