108.取得一个短文件名的长文件名

'###############################################################

'函数作用：取得一个短文件名的长文件名

'###############################################################

Public Function GetLongFilename (ByVal sShortName As String) As String

    Dim sLongName As String

    Dim sTemp As String

    Dim iSlashPos As Integer

    sShortName = sShortName & "\"

    iSlashPos = InStr(4, sShortName, "\")

    While iSlashPos

        sTemp = Dir(Left$(sShortName, iSlashPos ‐ 1), vbNormal + vbHidden + vbSystem + vbDirectory)

        If sTemp = "" Then

            GetLongFilename = ""

            Exit Function

        End If

        sLongName = sLongName & "\" & sTemp

        iSlashPos = InStr(iSlashPos + 1, sShortName, "\")

    Wend

    GetLongFilename = Left$(sShortName, 2) & sLongName

End Function