Массив в vbs

[moco]

День добрый.
Существует некий скриптик (не мой, я просто немного переделал ), отсылающий сообщения на комп пользователя, при обновлении подпапок заданной папки:

Код: Выделить всё

RunForFolder "E:\as\"

Function RunForFolder(folderspec)
   Dim fso, f, f1, fc

   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.SubFolders
   Set WshShell = WScript.CreateObject("WScript.Shell")
   

   For Each f1 in fc

      If CompareDate(folderspec & f1.name) = True Then WshShell.Run "net send  adf  " & "ïàïêà " &f1.name & " îáíîâëåíà"

   Next
End Function

'*************************************************************Function CompareDate(strFolderName)
   Dim fso, f, s, i
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(strFolderName)

   i = DateDiff("n", f.DateLastModified, Now)
   

   If i < 30 Then     
      CompareDate = True
   Else
      CompareDate = False
   End If
End Function


Нужно же следующее... Создать массив видимо двумерный, где первой строкой будет идти путь к папке, а второй имя компа(на каждый комп своя определенная папка ), и рассылать сообщения на те компы, в папке которых произошли изменения.
К сожалению сам я полный профан в этом. Если поможете буду очень признателен =)

[Хакер]

В чём возникают проблемы?

ЗЫ. Уважаемый moco, когда вы задаёте вопрос на этом форуме, никогда не пишите "Нужно...", пишите что не получается и спрашивайте, как это сделать.

[moco]

Уважаемый Хакер, "нужно" - это в данном контексте означает всего лишь поставленную предо мной задачу (вроде как дано - требуется).

Трудность же заключается в том, что с массивами ниразу не работал, и в общем-то непонятно с чего начать, с самого инициализирования данного массива и дальнейшего его использования. Как бы сказать - мысль есть, а как ее написать нипанимай )

[alibek]

Например, можно так:
Data = Array(Array("comp1","dir1"), Array("comp2","dir2"), Array("comp3","dir3"))
...
For I = LBound(Data, 0) To UBound(Data, 0)
WScript.Echo Data(I, 0) 'компьютер
WScript.Echo Data(I, 1) 'каталог
Next

[moco]

alibek

Индекс выходит за пределы допустимого диапазона 'Data'

Это если просто запустить предложенное вами (

[tyomitch]

Это потому что размерности нумеруются с 1, а не с 0.

[moco]

Код: Выделить всё

For I = LBound(Data, 1) To UBound(Data, 1)

исправил, здесь ошибки нет
ошибку дает здесь,

Код: Выделить всё

WScript.Echo Data(I, 0)

Индекс выходит за пределы допустимого диапазона 'Data'

[Viper]

Код: Выделить всё

For I = LBound(Data, 1) To UBound(Data, 1)

исправил, здесь ошибки нет
ошибку дает здесь,

Код: Выделить всё

WScript.Echo Data(I, 0)

Индекс выходит за пределы допустимого диапазона 'Data'

а не судьба и здесь 0 на 1 заменить?

[tyomitch]

Не судьба. Этот код вообще никак не поправить.
Верный:

Код: Выделить всё

Data = Array(Array("comp1","dir1"), Array("comp2","dir2"), Array("comp3","dir3"))
For I = LBound(Data) To UBound(Data)
WScript.Echo Data(I)(0) 'Є®¬ЇмовҐа
WScript.Echo Data(I)(1) 'Є в «®Ј
Next


[moco]

!Viper! менял =)
tyomitch, спасип, буим работать с ним )

[moco]

Всем, спасибо. Все получилось!

[HandKot]

внесу свою лепту

Код: Выделить всё

Private Type Comp2Send
    comp As String
    dir As String
End Type

Public Sub test()

    Dim toSend(3) As Comp2Send
   
    toSend(0).comp = "Comp1"
    toSend(0).dir = "Dir1"
   
    toSend(1).comp = "Comp2"
    toSend(1).dir = "Dir2"

    toSend(2).comp = "Comp3"
    toSend(2).dir = "Dir3"

    ''''
    Dim i As Integer
   
    For i = LBound(toSend) To UBound(toSend)
        Debug.Print toSend(i).comp
        Debug.Print toSend(i).dir
    Next i
End Sub