VB 将长路径转为短路径 & 获取剪粘板中的文件的列表

最新推荐文章于 2019-08-21 01:02:02 发布

camforg2010

最新推荐文章于 2019-08-21 01:02:02 发布

阅读量1.7k

点赞数

文章标签： vb function string user byte file

本文链接：https://blog.csdn.net/camforg2010/article/details/5383795

版权

这段VB代码演示了如何将长路径转换为短路径，并展示了如何获取剪贴板中图片文件的列表。通过`GetShortPathName`函数实现长路径转短路径，通过处理CF_HDROP格式的剪贴板数据来获取文件列表。

摘要由CSDN通过智能技术生成

将长路径转为短路径

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFunc:
S = String(255, " ")
GetShortPathName FileName, S, 255
ShortPath = Left(S, InStr(S, Chr(0)) - 1)
exitFunc:
End Function

获取剪粘板中的图片文件的列表

Private Const CF_HDROP = 15

Private Type POINT
          x   As Long
          y   As Long
End Type

Private Type DROPFILES
          pFiles   As Long
          pt   As POINT
          fNC   As Long
          fWide   As Long
End Type

Private Declare Function GlobalSize Lib "kernel32" _
        (ByVal hMem As Long) As Lon