Автор Тема: Вопрос по VBS  (Прочитано 1904 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн sergor2009

  • Коллежский регистратор
  • *
  • Сообщений: 1
  • Репутация: 0
Вопрос по VBS
« : јРав 31, 2009, 11:11:17 pm »
Есть скрипт на VBS, который выполняет работу автообновления для одной программки: копирует новые файлы с фтп(+всякие проверки, например есть ли место на диске и т.п.), т.е. создает текстовый файл с кодом для исполнения и запускает ftp.exe -s:namescript.vbs(в котором список файлов для копирования)
Проблема: скрипт работает только в ХР, соотвественно в ранних версиях, типа win 98-2000, выдает различные ошибки, либо запускается, но ничего не происходит. Может ли быть проблема в том, что я сначало объвляю открытие файла на чтение, а потом на запись этого же файла?

Set fso7 = CreateObject("Scripting.FileSystemObject")
Set fso9 = CreateObject("Scripting.FileSystemObject")
set f = fso9.GetFile(pathtoupdate + "update_list.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(pathtoupdate + "update_list.txt", 1, true)
Set fso2 = CreateObject("Scripting.FileSystemObject")
Set file2 = fso2.OpenTextFile(pathtoupdate + "update_list.txt", 1, true)
Set file7 = fso7.OpenTextFile(pathtoupdate + "update_list.txt", 8, true)
.
.
.
file.Close
fill.Close
file1.Close
file2.Close
file3.Close
file4.Close
file5.Close
file6.Close
file7.Close
Могу выложить код целиком=)

Что нужно сделать, что бы все работало и на остальных версиях винды без установки каких-либо доп. программ для запуска скрипта?
И еще вопрос: можно ли скомпилировать код VBS на обычном VB?

Заранее спасибо!

Оффлайн бравый

  • Коллежский регистратор
  • *
  • Сообщений: 4
  • Репутация: 0
Re: Вопрос по VBS
« Ответ #1 : ёоЭм 08, 2009, 04:47:48 pm »
не думаю, что есть проблема с этим кодом. для обычного VB он подходит вполне.
декларировать переменные типа Variant и вперёд.