Текущий архив: 2004.05.30;
Скачать: CL | DM;
Вниз
Как переиминовать все файлы в папке? Найти похожие ветки
← →
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]Да но я совсем еще новичек. Где можно посмотреть пример???
← →
AlexZ_CRC © (2004-05-15 12:44) [3]Style
Ну разве ему так понятно будет? Ты этих АПИ параметры сказал хотябы.
//---------------
// Вставить в процу до "Begin"
var H:THandle;
F:TWin32FindData;
//---------------
// Вставить в процу (здесь ищем файл)
H:=FindFirstFile (Edit1.Text, F);
// В Edit1.Text имя и путь к файлу
// Здесь код переименования (думаю он в справке будет)
FindClose(H); // После всей мороки, освободи память!
//---------------
Не густо, но пригодится, надеюсь.
А пример в хелпе по ВинАПИ подглядеть можно :)
Страницы: 1 вся ветка
Текущий архив: 2004.05.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.054 c
