Подскажите пожалуйста, как задать поиск, чтобы получить
имя папки в папке DirIn ! (BCB6)
( Например в папке c:\my есть с:\my\proba1 ,с:\my\proba2... ,
как получить proba1,proba2...)


Задаёшь Mask=DirIn+"\\*.*" ;,
Mask=DirIn+"\\*" ;-находит. но вместо имени даёт sr.Name=".";
Текущая директория после поиска== DirIn.

При Mask=DirIn+"\\" ;- не находит
При Mask=DirIn ; -находит имя папки, в которой ищешь.



AnsiString Mask=DirIn+"\\*.*";
AnsiString FF;
TSearchRec sr;
/////////////
if (FindFirst(Mask, faDirectory, sr) == 0)
{
do
{
if ((sr.Attr & faDirectory) == faDirectory)
{FF=GetCurrentDir();
DirIn=DirIn+"\\"+sr.Name;
DirOut=DirOut+"\\"+sr.Name;
DirProcess(DirIn.c_str(),DirOut.c_str(),vmask,proc);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}