SHLWAPI中 的 PathCompactPath函 數 提 供 了 一 種 簡 單 的 壓 縮 長 文 件 名 的 方 法 。 它 使 用 省 略 號 (...)代 替 部 分 文 件 名 。 這 個 函 數 的 聲 明 如 下 ： 
    Private Declare Function _ 
    PathCompactPath Lib "shlwapi"_ 
     Alias "PathCompactPathA" _ 
     (ByVal hDC As Long, ByVal _ 
     lpszPath As String, _ 
     ByVal dx As Long) As Long 
    如 你 所 見 ， PathCompactPath函 數 需 要 三 個 參 數 。 第 一 個 參 數 包 含 一 個 設 備 上 下 文 句 柄 。 第 二 個 參 數 包 含 你 要 使 用 的 路 徑 名 的 地 址 。 第 三 個 參 數 包 含 你 要 使 用 路 徑 名 的 地 方 的 寬 度 ， 以 點 為 單 位 。 這 樣 ， 放 置 一 個 壓 縮 的 文 件 名 在 名 為 lblEllipsis的 標 簽 中 ， 放 置 如 下 代 碼 在 按 鈕 的 Click()事 件 中 : 
    Private Sub Command1_Click() 
    Dim lhDC As Long, lCtlWidth As Long 
    Dim FileSpec As String 
     
    FileSpec = "C:\MyFolder\VisualBasic\MyReallyWayTooLongFolderName\" _ 
     & "ButWhoCares\IhaveTheAPI.doc" 
    Me.ScaleMode = vbPixels 
    lCtlWidth = lblEllipsis.Width - Me.DrawWidth 
    lhDC = Me.hDC 
    PathCompactPath lhDC, FileSpec, lCtlWidth 
    lblEllipsis.Caption = FileSpec 
    End Sub 
<END>