VBA Tips - Retornando um Caminhos UNC

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES

Contate desenvolvedores VBA

Perguntas, Questões e Esclarecimentos

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

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,