首页 相关文章 转换长短文件名

转换长短文件名

OptionExplicit
  PrivateDeclareFunctionOSGetLongPathNameLib"VB5STKIT.DLL"Alias"GetLongPathName"(ByVallpszLongPathAsString,ByVallpszShortPathAsString,ByValcchBufferAsLong)AsLong
  PublicDeclareFunctionOSGetShortPathNameLib"kernel32"Alias"GetShortPathNameA"(ByVallpszLongPathAsString,ByVallpszShortPathAsString,ByValcchBufferAsLong)AsLong
  FunctionGetLongPathName(ByValstrShortPathAsString)AsString
  ConstcchBuffer=300
  DimstrLongPathAsString
  DimlResultAsLong
  OnErrorGoTo0
  strLongPath=String(cchBuffer,Chr$(0))
  lRe...[ 查看全文 ]

2016-02-19 标签:

转换长短文件名的相关文章

手机页面
收藏网站 回到头部