如 果 你 已 經 得 到 一 個 短 文 件 名 ， 用 下 面 的 程 序 你 可 以 獲 得 長 文 件 名 ： 
     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>