使用API进行文件读写——CreateFile,ReadFile,WriteFile等

最新推荐文章于 2025-06-20 20:51:10 发布

原创

最新推荐文章于 2025-06-20 20:51:10 发布 · 7.3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#api #function #file #attributes #buffer #string

这篇博客介绍了一个简单的VBA类，用于使用API函数CreateFile, ReadFile, WriteFile进行文件的读写操作。作者提供了详细的代码实现，包括枚举类型和声明的API函数，以及如何打开、读取、写入和关闭文件。此外，还包含了检查数组是否初始化的辅助函数。" 124046855,8416160,CentOS Docker实践：更新源、安装Python与Node.js,"['docker', 'docker安装nodejs', 'docker安装python3', 'yum换源', 'pip换源']

原文：

simple and easy——API文件读写类

http://www.vbgood.com/thread-102870-1-1.html

看了这个帖子： http://www.vbgood.com/thread-99249-1-1.html 就写了一个使用API读写文件的简单类，苦力活。演示代码在附件里。 '*********************************** 'Written by D.L. ' '2011/04/04 '*********************************** Option Explicit 'Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long 'Private Type SECURITY_ATTRIBUTES ' nLength As Long ' lpSecurityDescriptor As Long ' bInheritHandle As Long 'End Type Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long Private Declare Function WriteFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long Private Declare Function FlushFileBuffers Lib "kernel32" (ByVal hFile As Long) As Long 'Private Declare Function GetFileSize Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpFileSizeHigh As Long) As Long Private Declare Function GetFileSizeEx Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpFileSize As Currency) As Long Enum D