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

3、lopen

　　作用：以二进制模式打开指定的文件

　　声明形式：

Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long

　　说明：此函数的返回值类型为Long，如执行成功，返回打开文件的句柄。HFILE_ERROR表示出错。会设置GetLastError

　　CreateFile函数在win32下提供了更多的功能：

　　参数说明：

参数	类型及说明
lpPathName	String，欲打开文件的名字
iReadWrite	Long，访问模式和共享模式常数的一个组合，如下所示：
	1、访问模式
	READ	打开文件，读取其中的内容
	READ_WRITE	打开文件，对其进行读写
	WRITE	打开文件，在其中写入内容
	2、共享模式（参考OpenFile函数的标志常数表）
	OF_SHARE_COMPAT， OF_SHARE_DENY_NONE， OF_SHARE_DENY_READ， OF_SHARE_DENY_WRITE， OF_SHARE_EXCLUSIVE

　　4、GetFileTime

　　作用：取得指定文件的时间信息

　　声明形式：

Declare Function GetFileTime Lib "kernel32" Alias "GetFileTime" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

　　说明：Long，非零表示成功，零表示失败。会设置GetLastError

　　如果不需要特定的信息，那么lpCreationTime，lpLastAccessTime，lpLastWriteTime都可以设置为零（用ByVal As Long）。这个函数返回的文件时间采用UTC格式

　　参数说明：

参数	类型及说明
hFile	Long，文件的句柄
lpCreationTime	FILETIME，用于装载文件的创建时间
lpLastAccessTime	FILETIME，用于装载文件上一次访问的时间（FAT文件系统不支持这一特性）
lpLastWriteTime	FILETIME，用于装载文件上一次修改的时间

　　示例代码如下：

‘函数声明 Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FileTime, lpLastAccessTime As FileTime, lpLastWriteTime As FileTime) As Long Private Declare Function lopen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long ‘定义变量 Dim file As Long Dim CreationTime As FileTime Dim lastaccesstime As FileTime Dim lastaccesstime As FileTime ‘定义结构 Private Type FileTime 　dwLowDateTime As Long 　dwHighDateTime As Long End Type Private Sub Form_Load() 　str1 = "c:\text.txt" 　file = lopen(str1, READ_WRITE) ‘打开文件 　temp = GetFileTime(file, CreationTime, lastaccesstime, lastwritetime)’得到文件相关信息 　MsgBox CreationTime ‘显示信息 End Sub

　　以上代码显示文件的创建时间

　　5、CopyFile

　　作用：复制文件。与vb的filecopy命令相似

　　声明形式：

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

　　说明：Long，非零表示成功，零表示失败。会设置GetLastError

　　参数说明：

参数	类型及说明
lpExistingFileName	String，源文件名
lpNewFileName	String，目标文件名
bFailIfExists	Long，如果设为TRUE（非零），那么一旦目标文件已经存在，则函数调用会失败。否则目标文件被改写

　　示例代码如下：

‘函数声明 Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Form_Load() 　CopyFile "c:\test1.txt", "c:\test2.txt", 1 End Sub

　　以上代码将c:\test1.txt 拷贝到c:\test2.txt

查看本文来源