[AHK]利用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