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.
Function GetNetworkDrives() As String()Dim WshNetwork As Object ' WshNetworkDim drivesList As Object ' WshCollectionDim i As LongDim tempDrives() As StringDim numRows As LongSet WshNetwork = CreateObject("WScript.Network")Set drivesList = WshNetwork.EnumNetworkDrives' number of network drivesLet numRows = drivesList.count' resize arrayReDim tempDrives(1 To numRows / 2, 1 To 2)' loop and grab each drive letter and corresponding UNC pathFor i = 0 To UBound(tempDrives) - 1Let tempDrives(i + 1, 1) = drivesList.item(i * 2)Let tempDrives(i + 1, 2) = drivesList.item((i * 2) + 1)Next iLet GetNetworkDrives = tempDrivesEnd Function
Tags: VBA, Ross McLean, UNC, WSHOM,
Nenhum comentário:
Postar um comentário