fbpx

Obtendo o nome longo de um arquivo através de seu nome curto

Obtendo o nome longo de um arquivo através de seu nome curto

Com esta função pode se obter o nome longo de um arquivo.
Seu funcionamento é simples. Através da passagem de parâmetro do nome curto de arquivo nome é retornado seu nome longo.

Public Function GetLongName(ByVal psShortName As String) As String
Dim liPos As Integer
Dim lsLongName As String
Dim lsDirName As String

psShortName = psShortName & “\”
liPos = InStr(4, psShortName, “\”)

While liPos
lsDirName = Dir(Left$(psShortName, liPos – 1), _
vbNormal + vbHidden + vbSystem + vbDirectory)

If lsDirName = “” Then
GetLongName = “”
Exit Function
End If

lsLongName = lsLongName & “\” & lsDirName
liPos = InStr(liPos + 1, psShortName, “\”)
Wend

GetLongName = Left$(psShortName, 2) & lsLongName
End Function

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.