Функция FileGetShortName не работает должным образом
- Автор темы lastangel
- Дата начала
CreatoR
А почему тогда папка "ПК" сократилась? там всего 2 символа
Хм, действительно, если папка "разное" будет больше 6 символов, то она сократиться...Можно сделать как-то что б и до 6 символов сокращалась?
Или может есть альтернативы FileGetShortName()?
Задача в том, что б пути не было кириллицы
А почему тогда папка "ПК" сократилась? там всего 2 символа
Хм, действительно, если папка "разное" будет больше 6 символов, то она сократиться...Можно сделать как-то что б и до 6 символов сокращалась?
Или может есть альтернативы FileGetShortName()?
Задача в том, что б пути не было кириллицы
CreatoR
Что батник понимал что ему делать, пробовал "", но все-равно не хочет воспринимать кириллицу
Что батник понимал что ему делать, пробовал "", но все-равно не хочет воспринимать кириллицу
Код:
Func _DownloadNewVerion($fileurl)
$FileInTempDir = @TempDir & '\service.exe'
Local $hInet = InetGet($fileurl,$FileInTempDir,1)
If @error Then
MsgBox(16,"Ошибка","На сервере не найден файл с новой версией программы!")
InetClose($hInet)
Return
EndIf
InetClose($hInet)
$sTemp = @TempDir & '\2s06w\sys.bat'
DirCreate(@TempDir & '\2s06w')
FileDelete($sTemp)
$sPath = FileGetShortName(@ScriptFullPath)
FileWriteLine($sTemp, 'ping -n 3 127.0.0.1 > nul ' &@CRLF _
& 'move /y "'&$FileInTempDir&'" "'&$sPath&'"' &@CRLF _
& '"'&$sPath&'"' &@CRLF _
& 'rd /s /q "'& @TempDir & '2s06w' &'"')
Run($sTemp, '', @SW_HIDE)
Exit
EndFunc
