利用Shell.Application对象批量改名
;~ 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
