mcisendstring 不支持长路径名， 可以用API装成8.3格式就好了

Question

这是什么意思，哪位可以说清楚点儿？

Answer 1

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long'获取短文件名
Public Function ShortPathName(ByVal strPathName As String) As String
Dim lngLen As Long
Dim strTemp As String * 255
lngLen = GetShortPathName(strPathName, strTemp, 255)
ShortPathName = Left$(strTemp, lngLen)
End Function