Happy Codings - Programming Code Examples
Html Css Web Design Sample Codes CPlusPlus Programming Sample Codes JavaScript Programming Sample Codes C Programming Sample Codes CSharp Programming Sample Codes Java Programming Sample Codes Php Programming Sample Codes Visual Basic Programming Sample Codes


Visual Basic Programming Code Examples

Visual Basic > Files Directories Drives Code Examples

Getting the Long Filename

Getting the Long Filename Public Function GetLongFilename(ByVal sShortName As String) As String 'Dimension Some Variables. 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