返回长文件名的短文件名函数
时 间:2004-11-18 00:00:00
作 者:黄海 ID:32 城市:苏州
摘 要:返回长文件名的短文件名函数
正 文:
如我们在使用REGSVR32.exe注册控件时,如果这个控件的路径中有空格或者文件名太长,就会注册不成功,因为REGSVR32.exe不支持长文件名,下面的函数就是解决这样的类似的问题
' 例如
' ? getShortPath("C:\Documents and Settings\Administrator\桌面\")
' C:\DOCUME~1\ADMINI~1\桌面\
'------------------------------------------------------------
Option Compare Database
Option Explicit
Private Declare Function GetShortPathName32 Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Public Function getShortPath(ByVal strFullPath As String) As String
Dim strShortPath As String
strShortPath = Space(256)
GetShortPathName32 strFullPath, strShortPath, 256
strShortPath = Left(strShortPath, InStr(strShortPath, Chr(0)) - 1)
getShortPath = strShortPath
End Function
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)
- 显示文件夹中所有文件的修改时间(04.11)
- 铁路工程管理系统;铁路工程管理小程...(04.10)
- 【Access查询示例】怎么将两个...(04.09)
- 【Access窗体导出PDF】Ac...(04.08)
- 【Access窗体导出PDF】给A...(04.07)