Как переиминовать все файлы в папке?

← →
dars73 © (2004-05-15 00:39) [0]

Как я могу поочередно просмотреть имена файлов в папке и переименовать из по своему усмотрению?
заранее благодарен за помощ.

← →
Style © (2004-05-15 00:43) [1]

FindFirst
FindNext
RenameFile - F1

← →
dars73 © (2004-05-15 00:54) [2]

Да но я совсем еще новичек. Где можно посмотреть пример???

Style
Ну разве ему так понятно будет? Ты этих АПИ параметры сказал хотябы.
//--------------- // Вставить в процу до "Begin" var H:THandle; F:TWin32FindData; //--------------- // Вставить в процу (здесь ищем файл) H:=FindFirstFile (Edit1.Text, F); // В Edit1.Text имя и путь к файлу // Здесь код переименования (думаю он в справке будет) FindClose(H); // После всей мороки, освободи память! //---------------
Не густо, но пригодится, надеюсь.
А пример в хелпе по ВинАПИ подглядеть можно :)

Как переиминовать все файлы в папке? Найти похожие ветки