Ошибка - "Предполагается наличие окончания инструкции"

@ruslan_fi · Регистрация: 29.10.2012

Author24 — интернет-сервис помощи студентам

Есть скрипт:

Visual Basic

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
LotusPath = "C:\Users\" & WshNetwork.UserName & "\Lotus\"
 
'Проверяем наличие папки Lotus в перемещаемом профиле, если такой папки не существует, то создаем ее
If FSO.FolderExists(LotusPath) = False Then
    FSO.CreateFolder(LotusPath)
    robocopy "C:\Program Files (x86)\Lotus" "C:\Users\%USERNAME%\Lotus" "notes.ini"
End If

При запуске ругается:
Строка:8
Символ:42
(это буква "L" после "(x86)\")
Ошибка:Предполагается наличие окончания инструкции

Если эту строчку скопировать и запустить в cmd под тем же пользователем, она без проблем отрабатывается.
Что ОНО хочет от меня?

Добавлено через 18 минут
Поправка!Строка:8
Символ:42
(это первый символ второго параметра: "C:\Users\%USERNAME%\Lotus")

@Eva Rosalene · 11.01.2014, 14:46

Сообщение от ruslan_fi

Если эту строчку скопировать и запустить в cmd под тем же пользователем, она без проблем отрабатывается.

WSH - не командная строка, там это не заработает. Надо так:

Visual Basic

Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WShell = CreateObject("WScript.Shell")
LotusPath = "C:\Users\" & WshNetwork.UserName & "\Lotus\"
 
'Проверяем наличие папки Lotus в перемещаемом профиле, если такой папки не существует, то создаем ее
If FSO.FolderExists(LotusPath) = False Then
    FSO.CreateFolder(LotusPath)
    WShell.Run("robocopy ""C:\Program Files (x86)\Lotus"" ""C:\Users\%USERNAME%\Lotus"" ""notes.ini""", 0)
End If

Dragokas · 11.01.2014, 22:00

Bash

1	FSO.CopyFile "C:\Program Files (x86)\Lotus\notes.ini",WShell.ExpandEnvironmentStrings("%userprofile%") & "\Lotus\",true

	11.01.2014, 22:00