|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Obtendo o nome longo de um arquivo através de seu nome curto
|
 |
|
|
|
Postada em 13/9/2003 por ~Ð@®£@Ñ
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
|
|
|
|
|
