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
