Вопрос по Vbs

  • Автор темы sergor2009
  • Дата начала
S

sergor2009

Гость
#1
Есть скрипт на VBS, который выполняет работу автообновления для одной программки: копирует новые файлы с фтп(+всякие проверки, например есть ли место на диске и т.п.), т.е. создает текстовый файл с кодом для исполнения и запускает ftp.exe -s:namescript.vbs(в котором список файлов для копирования)
Проблема: скрипт работает только в ХР, соотвественно в ранних версиях, типа win 98-2000, выдает различные ошибки, либо запускается, но ничего не происходит. Может ли быть проблема в том, что я сначало объвляю открытие файла на чтение, а потом на запись этого же файла или же проблема только в том, что нет поддержки новых команд, работающих в ХР?

Код:
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 fso7 = CreateObject("Scripting.FileSystemObject")
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?

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

Jumpy

Гость
#2
Есть скрипт на VBS, который выполняет работу автообновления для одной программки: копирует новые файлы с фтп(+всякие проверки, например есть ли место на диске и т.п.), т.е. создает текстовый файл с кодом для исполнения и запускает ftp.exe -s:namescript.vbs(в котором список файлов для копирования)
Проблема: скрипт работает только в ХР, соотвественно в ранних версиях, типа win 98-2000, выдает различные ошибки, либо запускается, но ничего не происходит. Может ли быть проблема в том, что я сначало объвляю открытие файла на чтение, а потом на запись этого же файла или же проблема только в том, что нет поддержки новых команд, работающих в ХР?

Код:
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 fso7 = CreateObject("Scripting.FileSystemObject")
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?

Заранее спасибо!
Не уверен, но скорее всего если не юзать fso - все получится.

VBS компилица VB но требуются косметические поправочки.