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