Propósito

✔ Programação GLOBAL® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog devem ser tratados como consultoria freelance. Queiram contatar-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.

.: Vitrine

Carregando artigos...

Views

Mostrando postagens com marcador UNC. Mostrar todas as postagens
Mostrando postagens com marcador UNC. Mostrar todas as postagens

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

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, 


Nenhum comentário:
Tags: , , ,

VBA Tips - Retornando um Caminhos UNC




Baixe o Calendário Compacto para 2014 em Excel



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:
Tags: , , ,
Assinar: Postagens (Atom)
diHITT - Notícias