在VB6中读取带重音的文件名

Option Explicit

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Form_Load()
    Dim strFileName As String
    Dim strShortFileName As String
    Dim lngResult As Long
    
    ' 设置带重音的文件名
    strFileName = "C:\Temp\Tést.txt"
    
    ' 获取短路径名
    strShortFileName = String(255, Chr(0))
    lngResult = GetShortPathName(strFileName, strShortFileName, 255)
    strShortFileName = Left(strShortFileName, lngResult)
    
    ' 读取文件内容
    Open strShortFileName For Input As #1
    MsgBox Input(LOF(1), 1)
    Close #1
End Sub