VB中利用Windows API实现文件操作

1、CreateFile

　　作用：这是一个全功能的例程，可打开和创建文件、管道、邮槽、通信服务、设备以及控制台

　　声明形式：

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

　　说明：

　　此函数的返回值类型为Long，如执行成功，则返回文件句柄。INVALID_HANDLE_VALUE表示出错，会设置GetLastError。即使函数成功，但若文件存在，且指定了CREATE_ALWAYS 或 OPEN_ALWAYS，GetLastError也会设为ERROR_ALREADY_EXISTS

　　打开一个通信端口时（如COM1），无论如何都要设置成 OPEN_EXISTING。

　　这个函数代替了lOpen 和 lCreate函数，应该是我们的首选

　　参数说明：

参数	类型及说明
lpFileName	String，要打开的文件的名字
dwDesiredAccess	Long，如果为 GENERIC_READ 表示允许对设备进行读访问；如果为 GENERIC_WRITE 表示允许对设备进行写访问（可组合使用）；如果为零，表示只允许获取与一个设备有关的信息
dwShareMode	Long，零表示不共享； FILE_SHARE_READ 和/或 FILE_SHARE_WRITE 表示允许对文件进行共享访问
lpSecurityAttributes	SECURITY_ATTRIBUTES，指向一个SECURITY_ATTRIBUTES结构的指针，定义了文件的安全特性（如果操作系统支持的话）
dwCreationDisposition	Long，下述常数之一：
	CREATE_NEW	创建文件；如文件存在则会出错
	CREATE_ALWAYS	创建文件，会改写前一个文件
	OPEN_EXISTING	文件必须已经存在。由设备提出要求
	OPEN_ALWAYS	如文件不存在则创建它
	TRUNCATE_EXISTING	讲现有文件缩短为零长度
dwFlagsAndAttributes	Long，一个或多个下述常数
	FILE_ATTRIBUTE_ARCHIVE	标记归档属性
	FILE_ATTRIBUTE_COMPRESSED	将文件标记为已压缩，或者标记为文件在目录中的默认压缩方式
	FILE_ATTRIBUTE_NORMAL	默认属性
	FILE_ATTRIBUTE_HIDDEN	隐藏文件或目录
	FILE_ATTRIBUTE_READONLY	文件为只读
	FILE_ATTRIBUTE_SYSTEM	文件为系统文件
	FILE_FLAG_WRITE_THROUGH	操作系统不得推迟对文件的写操作
	FILE_FLAG_OVERLAPPED	允许对文件进行重叠操作
	FILE_FLAG_NO_BUFFERING	禁止对文件进行缓冲处理。文件只能写入磁盘卷的扇区块
	FILE_FLAG_RANDOM_ACCESS	针对随机访问对文件缓冲进行优化
	FILE_FLAG_SEQUENTIAL_SCAN	针对连续访问对文件缓冲进行优化
	FILE_FLAG_DELETE_ON_CLOSE	关闭了上一次打开的句柄后，将文件删除。特别适合临时文件
	也可在Windows NT下组合使用下述常数标记：
	SECURITY_ANONYMOUS， SECURITY_IDENTIFICATION， SECURITY_IMPERSONATION， SECURITY_DELEGATION， SECURITY_CONTEXT_TRACKING， SECURITY_EFFECTIVE_ONLY
hTemplateFile	Long，如果不为零，则指定一个文件句柄。新文件将从这个文件中复制扩展属性

　　示例如下:

long hfile= CreateFile(“c:\\test.txt”,GENERIC_READ, FILE_SHARE_READ|FILE_SHARE_WRITE,NULL, OPEN_EXISTING,FILE_ELAG_OVERLAPPED,NULL)

　　2、lcreat

　　作用：创建一个文件。如文件已经存在，就会将其缩短成零长度，并将其打开，以便读写

　　声明形式：

Declare Function lcreat Lib "kernel32" Alias "_lcreat" (ByVal lpPathName As String, ByVal iAttribute As Long) As Long

　　说明：此函数的返回值类型为Long，如执行成功，返回打开文件的句柄。如果出错，则返回HFILE_ERROR

　　该函数会打开已由其他应用程序打开的文件，所以使用它时要小心。win32的CreateFile函数已取代了这个函数。这个函数与vb的open语句作用相同

　　参数说明：

参数	类型及说明
lpPathName	String，欲创建的文件的名字
iAttribute	Long，下述值之一： 　0——文件能够读写 　1——创建只读文件 　2——创建隐藏文件 　3——创建系统文件

　　例如下面的语句打开c：\test.txt文件

lcreat “c:\test.txt”,0