Что нового

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

magros

Новичок
Сообщения
20
Репутация
1
Добрый час!

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

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Код:
$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

Must AutoIt!
Команда форума
Администратор
Сообщения
8 470
Репутация
2 401
Так разве не проще:
Код:
$path = @ScriptDir & '\test.txt' ;Путь до файла
$newname = 'test2.txt' ;Новое название файла
_FileRename($path, $newname) ;Переименование

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

:whistle:
 
Верх