Переименование группы файлов по определенному шаблону

[Dimmak]

Помогите, пожалуйста, решить задачку...

Нужно переименовать все файлы в папке, которые начинаются с "_"
Пример:
_Filename.htm >>> Filename.htm

 

[Yashied]

#Include <File.au3>

$List = _FileListToArray(@ScriptDir & '\Test', '*', 1)
For $i = 1 To UBound($List) - 1
	If StringLeft($List[$i], 1) = '_' Then
		FileMove($Dir & '\' & $List[$i], $Dir & '\' & StringRegExpReplace($List[$i], '\A_+', ''), 1)
	EndIf
Next

 

[Dimmak]

Yashied
Спасибо! :IL_AutoIt_1: