当前位置: 主页 > 日志 > VB >

Windows长文件名转短名

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 

[日志信息]

该日志于 2011-05-10 11:26 由 redice 发表在 redice's Blog ,你除了可以发表评论外,还可以转载 “Windows长文件名转短名” 日志到你的网站或博客,但是请保留源地址及作者信息,谢谢!!    (尊重他人劳动,你我共同努力)
   
验证(必填):   点击我更换验证码

redice's Blog  is powered by DedeCms |  Theme by Monkeii.Lee |  网站地图 |  本服务器由西安鲲之鹏网络信息技术有限公司友情提供

返回顶部