TSearchRec Search;
AnsiString Path = "C:\\Windows";
if (FindFirst(Path + "\\*", faDirectory, Search) == 0) {
do {
if
(Search.Name == "." || Search.Name == ".." )
continue;
if (Search.FindData.dwFileAttributes &
FILE_ATTRIBUTE_DIRECTORY) {
// Если это папка
//
}
else {
//копируем файл с новым именем
CopyFile((Path+"\\"+Search.Name).t_str(),(Path+"\\"+newName).t_str(), 0);
//Удаляем файл со старым именем
//Запоминаем путь к файлу, который нужно удалить и после того как освободим Search удаляем.
};
}
while (FindNext(Search) == 0);
FindClose(Search);
};