TargetPath = _иногда_ обрезается до 8 символов. Почему?

Программирование на Active Server Pages и VBScript.
amfm
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 17.02.2007 (Сб) 12:28

TargetPath = _иногда_ обрезается до 8 символов. Почему?

Сообщение amfm » 17.02.2007 (Сб) 12:30

Создаю следующим скриптом ярлык на рабочем столе:

Код: Выделить всё
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"""

Ничего не меняется.
В чем проблема и из-за чего это бывает?

Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 5

    TopList