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
