VB DIR 提取长度超过256字节的文件名

来源：百度知道 编辑：UC知道 时间：2024/06/09 05:44:40
VB6 用dir提取文件名

长度超过256字节后会报错

请问如何才能提取到？
一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七八九十一二三四五六七

这个文件名超过256字节吧?

使用FindFirstFile这个API函数可以解决此类问题。。。

以下是测试代码，花了半个小时，得加点分。。。

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long

Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long

'最大路径长度和文件属性常量的定义

Private Const MAX_PATH = 260

Private Const FILE_ATTRIBUTE_ARCHIVE = &H20

   Const FILE_ATTRIBUTE_COMPRESSED = &H800

   Const&n