VBA Tips - Convertendo Drives Mapeados para 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\\

A função a seguir, a partir de um caminho mapeado, retorna o caminho UNC. Ao evocarmos essa função, a mesma percorre a matriz resultante até a letra correspondente ser encontrada.

Uma vez encontrada, o caminho traçado é trocado pelo caminho UNC correspondente.

Function GetUNCPath(filePath As String) As String

 

Dim result() As String

Dim i As Long

Dim driveLetter As String

Dim found As Boolean

 

  ' check for valid path

  If Len(Dir(filePath)) = 0 Then

    Exit Function

  End If

 

  ' get drive letter

  Let driveLetter = Left$(filePath, 2)

 

  ' get UNC paths

  Let result = GetNetworkDrives

 

  ' look for matching drive letter in array

  For i = LBound(result) To UBound(result)

    Let found = (result(i, 1) = driveLetter)

 

      If found Then ' swap drive letter for matching UNC path

        Let GetUNCPath = Replace(filePath, driveLetter, result(i, 2))

        Exit Function

      End If

  Next i

 

End Function

Como usar:

Sub TestGetUNCPath()

 

Debug.Print GetUNCPath("T:\MyA&ACompanyDrive\Specific\Company Secrets\")

 

End Sub

Tags: VBA, UNC, Drive, mapeado,