批量改名

;~ COM Object: Shell.Application [Folder Object]
;~ Purpose: Access/Manipulate Folders
;~ System Requirements: General
;~ Documentation Link: Shell Object, Folder Object
;~ Code Example: Rename Folders/Files without using FileCopy(Dir)

;// Create an example directory
dir :=   A_Desktop "Example_Dir"
FileCreateDir, %dir%Temp
Loop 9
   FileAppend, , %dir%_%A_Index%.txt
Run %dir%
MsgBox, 262144, , Press OK to add Prefix to files...

;// Loop through the folder items. Add a Prefix to the files.
objFolder :=   ComObjCreate("Shell.Application").NameSpace(dir)
for item in objFolder.items
   if   Not item.isFolder
      item.name :=   "File" item.name

;// Delete example directory
MsgBox Deleting Directory...
FileRemoveDir, %dir%, 1