Перейти к содержимому

Bog_dan

Регистрация: 12 окт 2006
Offline Активность: 26 окт 2011 11:38
-----

Мои сообщения

В теме: Совместное Использование Файла.

17 сентября 2007 - 09:34

Что-то не понятно какой вопрос для вас первый =)

Вообщем, если еще актуально, чтобы открыть файл для в режиме добавления надо:

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(filePath, 8)
...
file.Close

В теме: Совместное Использование Файла.

17 сентября 2007 - 07:35

Могу предложить 2 варианта:

1. Можно использовать WSH. Его метод Run позволяет указать через параметр ждать или не ждать заверщения запущенной программы.
Тогда так:
Set WshShell = CreateObject("WScript.Shell")
commandLine =  "..."
intReturn = WshShell.Run(commandLine, 1 , true)

Третий параметр и отвечает за ожидание.

2. Если нет возможности ждать завершения работы программы (например вы запускаете черезTestedApp.Run), то поставьте цикл с условием на существование процесса вашей программы
while(p.Exists)
Sys.Delay(...)
wend

В теме: Отправка Переменных В Процедуру

14 сентября 2007 - 05:55

Здравствуйте.

Добавьте "call" перед вызовом процедуры - должно заработать

В теме: Работа С Excel

13 сентября 2007 - 07:06

Вот на скорую руку сделал, может как-то так =)

[codebox] Set ExcelApp = CreateObject("Excel.Application")
pathFile = "C:\..\.xls"
ExcelApp.Workbooks.Open(pathFile)
Set Ran = ExcelApp.Sheets(1).Range("F9:G12")
ReDim arr(Ran.Cells.Count)
For nRow = 1 To Ran.Rows.Count
Set Row = Ran.Rows(nRow)
For nCell = 1 To Row.Cells.Count
arr((nRow - 1) * Row.Cells.Count + nCell - 1) = Row.Cells(nCell).value
Next
Next[/codebox]

В теме: Курсор Мыши Не Двигается При Работе Скриптов Под Vmware

22 августа 2007 - 15:58

Проблема решилась =))

Добавляем в .vmx файл строчку:

vmmause.present = "FALSE"

и курсор мыши перемещается туда, куда кликает. Работает с VMWare Tools.