Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

24 de agosto de 2013

VBA Tips - Retornando um Caminhos UNC




O que é o fenômeno chamado BIG DATA?




Através dos caminhos UNC podemos conectar servidores e outras estações de trabalho sem mapeamento de uma unidade.

A sintaxe de um caminho UNC é o seguinte: \\servername\\sharename\\directory\\

O código abaixo nos mostra um código que retorna um caminho UNC, dado um caminho de unidade mapeada.
Este código permite usar o Script Object Model host do Windows (WSHOM) para fazer a mesma coisa.

Function GetNetworkDrives() As String()
    Dim WshNetwork As Object ' WshNetwork
    Dim drivesList As Object ' WshCollection
    Dim i As Long
    Dim tempDrives() As String
    Dim numRows As Long
 
    Set WshNetwork = CreateObject("WScript.Network")
    Set drivesList = WshNetwork.EnumNetworkDrives
 
    ' number of network drives
    Let numRows = drivesList.count
 
    ' resize array
    ReDim tempDrives(1 To numRows / 2, 1 To 2)
 
    ' loop and grab each drive letter and corresponding UNC path
    For i = 0 To UBound(tempDrives) - 1
        Let tempDrives(i + 1, 1) = drivesList.item(i * 2)
        Let tempDrives(i + 1, 2) = drivesList.item((i * 2) + 1)
    Next i
 
    Let GetNetworkDrives = tempDrives
End Function


Tags: VBA, Ross McLean, UNC, WSHOM, 



Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine