rename all text files in a folder Topic is solved

[crypter]

i have 1 million text files (.txt) that i have to replace extension to .ahk

i have

Code: Select all

FileMove, C:\Folder1\*.txt, D:\New Folder\*.ahk

and i need to add as a file name "Program" + number from 1 to 1 million replacing names and extension by alphabetical order (ascending) in the entire folder

[Smile_]

Code: Select all

WD := A_ScriptDir
Loop, Files, % WD "\*.txt"
   FileMove, % WD "\" A_LoopFileName, % "Program" A_Index ".ahk", 0