你还要声明这个类型。
SECURITY_ATTRIBUTES

解决方案 »

  1.   

    Public Type SECURITY_ATTRIBUTES
            nLength As Long
            lpSecurityDescriptor As Long
            bInheritHandle As Long 
    End Type
      

  2.   

    Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
    把SECURITY_ATTRIBUTES型声明为Long型,传递ByVal 0&就行了