VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 取得长文件名
发表评论(0)作者:, 平台:, 阅读:11513, 日期:2000-03-12
取得长文件名

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