VB6实现：
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function getshortname(p As String)
Dim tmp As String
tmp = Space(1024)
GetShortPathName p, tmp, 1024
getshortname = Trim(tmp)
End Function
测试：
Debug.Print getshortname("C:\Program Files\MySQL\MySQL Server 5.1\my.ini")
输出结果：C:\PROGRA~1\MySQL\MYSQLS~1.1\my.ini
呵呵，谢谢
VaTG790i.最好的<a href=http://www.kyfei.com>网站推广软件</a>,
非常好
....................
；ui；普i；uighur；ui；ui；个
在unix网络编程中看到了关于TCP/IP的一些内容，我感觉还是写的不够。正在下载中，一定
下载地址呢