Descrição:
Como percorrer todos os tags de um Driver se ele possuir diversas subpastas?
Solução:
Para isso, deve-se escrever um script usando recursividade.
Exemplo de script sendo executado no evento Click de um botão:
Sub CommandButton1_Click()
Set Driver = Application.GetObject("DriverModbus")
FuncRecursiv(Driver)
End Sub
Sub FuncRecursiv(pasta)
For Each obj in pasta
If typename(obj) = "IOFolder" then
FuncRecursiv(obj)
Else
' Aqui você coloca seu script para acessar os tags (obj é um tag)
msgbox obj.Name
End if
Next
End Sub
