No declarations

'Taken from Microsoft Knowledgebase Article ID: Q163227 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