Как переименовать 10 миллионов файлов в одной папке win 7 64?
Необходимо переименовать файлы вида афыф.jpg фыва.jpg в файлы вида 1.jpg 2.jpg 3.jpg
Тотал умирает. Софта перерыл с паблика столько же сколько файлов нужно переименовать.
i = 1
set FSO = CreateObject( "Scripting.FileSystemObject" )
for each f in FSO.GetFolder( "." ).Files
ext = Mid (f, InStrRev(f,".") + 1)
fso.MoveFile f, cint(i) & "." & ext
i = i + 1
next
Сохраняете этот файл в текстовый файл, переимновываете его расширение на vbs, запускаете. Все файлы превращаются в имена 1.txt, 2.jpg и так далее 123.exe
Большущее спасибо. Все работает. Есть один значительный минус метода, скрипт нужно положить в папку с файлами, а это очень проблематично с таким количеством файлов внутри. Можно как то сделать чтобы от запускался из вне.