GetShortPathName 使用问题

哈利路亚1231 哈利路亚1231 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
声明
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
使用
dim p as string=""
Dim sbtemp1 As String = p
Dim n As Long = GetShortPathName(p, sbtemp1, 255)
p = Left(sbtemp1, n)


调试执行方法前 p的值:C:\Users\huanghaic\Desktop\1111\GenDoUtil\DEComPressTemp\1700_0_TFTM_3_AH_2015081801.zip
执行方法后sbtemp1的值:C:\Users\HUANGH~1\Desktop\1111\GENDOU~1\DECOMP~1\1700_0~1.ZIP 0_TFTM_3_AH_2015081801.zip
执行方法后n的值:816043786301
然后在执行到 Left(sbtemp1, n)时抛出异常:算术运算导致溢出。
这是为什么?我怀疑是返回值n不正确。
请大神亲们帮忙指点
...全文

相关推荐

评论 1
收藏 已收藏
分享
返回顶部
哈利路亚1231
VB 16,718 成员 110,520 内容