- Код: Выделить всё
Set WshShell = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")
strDesktop = WshShell.SpecialFolders("Desktop")
IF Not objFSO.FileExists(strDesktop & "\Ярлычок1.lnk") THEN
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Ярлычок1.lnk")
oShellLink.TargetPath = "X:\Прекрасная папка\Какбыдляяфайлика\файлик1.doc"
oShellLink.IconLocation = "X:\Прекрасная папка\Какбыдляяфайлика\файлик1.ico"
oShellLink.WindowStyle = 1
oShellLink.Save
set oShellLink = NOTHING
END IF
...
IF Not objFSO.FileExists(strDesktop & "\Ярлычок5.lnk") THEN
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Ярлычок5.lnk")
oShellLink.TargetPath = "X:\Прекрасная папка\Какбыдляяфайлика\файлик5.doc"
oShellLink.IconLocation = "X:\Прекрасная папка\Какбыдляяфайлика\файлик5.ico"
oShellLink.WindowStyle = 1
oShellLink.Save
set oShellLink = NOTHING
END IF
Set WshShell = NOTHING
Set objFSO = NOTHING
Скрипт работает, но в 1 из 10 случаев TargetPath прописывается как:
"X:\Прекрасн\Какбыдля\файлик1.doc"
Притом IconLocation в 10 из 10 случаев прописывается нормально, т.е.:
"X:\Прекрасная папка\Какбыдляяфайлика\файлик1.ico"
Т.е. названия папок обрезаются до 8 символов.
Пробовал указывать их вот так:
oShellLink.TargetPath = """X:\Прекрасная папка\Какбыдляяфайлика\файлик.doc"""
Ничего не меняется.
В чем проблема и из-за чего это бывает?