怎样获得一个短文件名的长文件名.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 你 已 经 得 到 一 个 短 文 件 名 ， 用 下 面 的 程 序 你 可 以 获 得 长 文 件 名 ： 
     Dim sLongName As String 
     Dim sTemp As String 
     Dim iSlashPos As Integer 
     Dim sShortName As String 
     
     'Add \ to short name to prevent Instr from failing 
     sShortName = sFilename & "\" 
     
     '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 
     LongFilename = "" 
     Exit Property 
     End If 
     sLongName = sLongName & "\" & sTemp 
     iSlashPos = InStr(iSlashPos + 1, sShortName, "\") 
     Wend 
     
     'Prefix with the drive letter 
     LongFilename = Left$(sShortName, 2) & sLongName 
    另 外 ， QA000823 “如何用VB在资源管理器的快捷菜单上添加自己的选项”介 绍 了 利 用 Shell Extension编 写 IContextMenu外 壳 扩 展 ， 如 果 你 编 写 了 外 壳 扩 展 获 得 的 文 件 名 是 长 文 件 名 ， 而 且 可 以 同 时 获 得 多 个 选 中 的 文 件 。 
<END>     
GetLongPathName 就 可 以 呀 ， 呵 呵 。 （ 主 持 人 注 ： Win98/2000可 以 使 用 ， Win95/NT不 能 使 用 该 函 数 。 ） 
<END>