当前位置: 源码素材网 » VB教程 » 详情页

VB根据长文件名生成短文件名

  •   时间:2020-04-18
  • 概述:文件名 短文件名 文件名转换

VB自定义函数,根据长文件名给出短文件名,或才说是转换长文件名为短文件名,这个函数可修改,在Windows7不知怎么搞的,操作的时候不起效果,需要修正,代码如下:

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
'转换长文件名为短文件名
Private Sub Command1_Click()
Dim Length As Long
Dim Short_path As String
Dim File_name As String
    File_name = Text1.Text
    Short_path = Space$(1024)
    Length = GetShortPathName( _
        File_name, Short_path, _
        Len(Short_path))
    Short_path = Left$(Short_path, Length)
    Text2.Text = Short_path
End Sub

    相关声明:

      若“VB根据长文件名生成短文件名”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。