16,554
社区成员
发帖
与我相关
我的任务
分享
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Object) As Long
Public Structure SECURITY_ATTRIBUTES
Public nLength As Long
Public lpSecurityDescriptor As IntPtr
Public bInheritHandle As Boolean
End Structure
hFile = CreateFile(strFileName, GENERIC_READ, FILE_SHARE_READ, secattr, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, DBNull.Value) '打开文件