[Автоматизация] Переименование

[magros]

Добрый час!

:laugh: искал нигде не нашел может конечно и ослеп
вопрос в следующем
можно ли как то переименовать файл будь то текст или архив или офисный документ.
метод пересохранения не годится ..

 

[kaster]

$sFile = 'path to the file'; Путь до файла
$newname = 'test2.exe'; Новое название файла
;$path = @ScriptDir & '\test.txt'
_FileRename($path, $newname); Переименование
Func _FileRename($sPath, $sNewFileName)
	$aPath = StringSplit($sPath, '\'); 
	$sFileName = $aPath[$aPath[0]]; Нахождение названия файла
	$iLen = StringLen($sFileName); Вычисление длины названия файла
	$sFileFolder = StringTrimRight($sPath, $iLen); Нахождение папки, которая содержит файл
	$sPath_new = $sFileFolder & $sNewFileName; Задание нового пути файла (та же папка, но другое название)
	FileMove($sPath, $sPath_new); Перемещение файла внутри одной папки = переименование файла
EndFunc

 

[CreatoR]

Так разве не проще:

$path = @ScriptDir & '\test.txt' ;Путь до файла
$newname = 'test2.txt' ;Новое название файла
_FileRename($path, $newname) ;Переименование

Func _FileRename($sPath, $sFileName)
	FileMove($sPath, StringRegExpReplace($sPath, "\\[^\\]*$", "\\") & $sFileName)
EndFunc

:whistle: