• Home
 · 
• Files/File Controls/Input/Output
 · 
• Get a long file name from a short file name

Get a long file name from a short file name

Get a long file name from a short file name

Rate Get a long file name from a short file name

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Public Function GetLongFilename(ByVal sShortName As String) As String

Dim sLongName As String
Dim sTemp As String
Dim iSlashPos As Integer

'Add \ to short name to prevent Instr from failing
sShortName = sShortName & "\"
'Start from 4 to ignore the "[Drive Letter]:\" characters
iSlashPos = InStr(4, sShortName, "\")
'Pull out each string between \ character for conversion
While iSlashPos
    sTemp = Dir(Left$(sShortName, iSlashPos - 1), vbNormal + vbHidden + vbSystem + vbDirectory)
    If sTemp = "" Then            'Error 52 - Bad File Name or Number
        GetLongFilename = ""
        Exit Function
    End If
    sLongName = sLongName & "\" & sTemp
    iSlashPos = InStr(iSlashPos + 1, sShortName, "\")
Wend
'Prefix with the drive letter
GetLongFilename = Left$(sShortName, 2) & sLongName

End Function