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 ISSO:

Share on facebook
Facebook
Share on twitter
Twitter
Share on linkedin
LinkedIn
Share on pinterest
Pinterest
Share on tumblr
Tumblr
Share on whatsapp
WhatsApp
Share on reddit
Reddit
Share on email
Email

Comentários

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.