使用NtQueryDirectoryFile遍历文件/目录

最新推荐文章于 2023-10-18 11:05:23 发布

chenhui530

最新推荐文章于 2023-10-18 11:05:23 发布

阅读量6.4k

点赞数

分类专栏： VB文章 VB原创文章标签： integer attributes file string function byte

本文链接：https://blog.csdn.net/chenhui530/article/details/2692962

版权

本文提供了一段VB代码，利用NtQueryDirectoryFile API遍历指定目录下的文件和子目录，详细解释了代码中的数据结构和API调用，适合初学者学习NT系列函数和VB指针操作。

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

好久没写文章了，今天发个以前写的一个代码，本来是VC的今天专门转换成了VB，希望能给一些有用的人一些帮助。

是高手就没必要看了，初学者可以学习下VB的指针操作，和NT系列函数的使用方法。

代码下载地址是：https://p-blog.csdn.net/images/p_blog_csdn_net/chenhui530/EntryImages/20080722/FindFile.jpg

Option Explicit

Private Type LARGE_INTEGER
lowpart As Long
highpart As Long
End Type

Private Type UNICODE_STRING
    uLength As Integer
    uMaximumLength As Integer
    pBuffer As Long
End Type

Private Type IO_STATUS_BLOCK
Status As Long
uInformation As Long
End Type

Private Type OBJECT_ATTRIBUTES
    Length As Long
    RootDirectory As Long
    ObjectName As Long
    Attributes As Long
    SecurityDescriptor As Long
    SecurityQualityOfService As Long
End Type

Private Type FILE_BOTH_DIRECTORY_INFORMATION
    NextEntryOffset As Long
    FileIndex As Long
    CreationTime As LARGE_INTEGER
    LastAccessTime As LARGE_INTEGER
    LastWriteTime As LARGE_INTEGER
    ChangeTime As LARGE_INTEGER
    EndOfFile As LARGE_INTEGER
    AllocationSize As LARGE_INTEGER
    FileAttributes As Long
    FileNameLength As Long
    EaSize As Long
    ShortNameLength As Byte
    ShortName(23) As Byte
    FileName As Byte '这里为了对齐，其实不用这个VB也是按4个字节对齐
    FileName1 As Integer '(519) As Byte
End Type

Private Const FileBothDirectoryInformation = 3
Private Const SYNCHRONIZE = &H100000
Private Const FILE_ANY_ACCESS = 0
Private Const FILE_LIST_DIRECTORY = 1
Private Const FILE_DIRECTORY_FILE = 1
Private Const FILE_SYNCHRONOUS_IO_NONALERT = &H20
Private Const FILE_OPEN_FOR_BACKUP_INTENT = &a