VB API函数createfile怎么用？

Question

我想在D:\haha下创建一个只读的纯文本文件，用createfile来实现,但lpSecurityAttributes参数不知道怎么设置，高手帮帮啊。最好解释一下为什么，别让我换别的，我是在学习怎么用这个。我用过null和byval 0&,都不行。 我要的不是这个函数的参数列表……而且这个对我问题没帮助……

Answer 1

Private 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

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

Const GENERIC_WRITE = &H40000000
Const CREATE_NEW = 1
Const FILE_ATTRIBUTE_READONLY = &H1

Private Sub Form_Load()
Dim temp As SECURITY_ATTRIBUTES
MsgBox (CreateFile("C:\abc.txt", GENERIC_WRITE, 0, temp, CREATE_NEW, FILE_ATTRIBUTE_READONLY, 0))
End Sub

Answer 2

试着参考下面的代码

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102

Public Const GENERIC_WRITE = &H40000000      Public Const GENERIC_READ = &H80000000      Const FILE_ATTRIBUTE_NORMAL = &H80      Const CREATE_ALWAYS = 2      Const OPEN_ALWAYS = 4      Const INVALID_HANDLE_VALUE= -1      Const FILE_NAME = "TEST.DAT"     'This can be any file that does not                                       'currently exist.       Type MyType         value As Integer      End Type       Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _         lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, _         lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long       Private Declare Function CloseHandle Lib "kernel32" ( _        ByVal hObject As Long) As Long       Private Declare Function WriteFile Lib "kernel32" ( _        ByVal hFile As Long, lpBuffer As Any, _        ByVal nNumberOfBytesToWrite As Long, _        lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long       Private Declare Function CreateFile Lib "kernel32" _        Alias "CreateFileA" (ByVal lpFileName As String, _        ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _        ByVal lpSecurityAttributes As Long,  _        ByVal dwCreationDisposition As Long, _        ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) _        As Long       Declare Function FlushFileBuffers Lib "kernel32" ( _        ByVal hFile As Long) As Long       Sub fillArray(anArray() As MyType)         Dim x As Integer          For x = 0 To UBound(anArray)            anArray(x).value = x         Next x      End Sub       Sub Main()         Dim fHandle As Integer         Dim T(1000) As MyType            'Define a large array of data         Dim S(1000) As MyType            'Define another large array          fillArray T                      'Fill the array with some values         writearray FILE_NAME, T          'Write the entire array to disk         readArray FILE_NAME, S           'Read into a different array      End Sub       Sub readArray(Fname As String, anArray() As MyType)         Dim fHandle As Long         Dim fSuccess As Long         Dim sTest As String         Dim lBytesRead As Long         Dim BytesToRead As Long          'Get size of data to write         BytesToRead = (UBound(anArray) + 1) * LenB(anArray(0))         'Get a handle to a file Fname.         fHandle = CreateFile(Fname, GENERIC_WRITE Or GENERIC_READ, _                              0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)         'Here you should test to see if you get a file handle or not.         'CreateFile returns INVALID_HANDLE_VALUE if it fails.         If fhandle <> INVALID_HANDLE_VALUE Then            fSuccess = ReadFile(fHandle, anArray(LBound(anArray)), _                                BytesToRead, lBytesRead, 0)            'ReadFile returns a non-zero value if it is successful.            'Now you just close the file.            fSuccess = CloseHandle(fHandle)         End If      End Sub       Sub writearray(Fname As String, anArray() As MyType)         Dim fHandle As Long         Dim fSuccess As Long         Dim sTest As String         Dim lBytesWritten As Long         Dim BytesToWrite As Long         'Get the length of data to write         BytesToWrite = (UBound(anArray) + 1) * LenB(anArray(0))         'Get a handle to a file Fname.         fHandle = CreateFile(Fname, GENERIC_WRITE Or GENERIC_READ, _                              0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)         'Here you should test to see if you get a file handle or not.         'CreateFile returns INVALID_HANDLE_VALUE if it fails.         If fhandle <> INVALID_HANDLE_VALUE Then            fSuccess = WriteFile(fHandle, anArray(LBound(anArray)), _                                 BytesToWrite, lBytesWritten, 0)            'Check to see if you were successful writing the data            If fSuccess <> 0 Then               'Flush the file buffers to force writing of the data.               fSuccess = FlushFileBuffers(fHandle)               'Close the file.               fSuccess = CloseHandle(fHandle)            End If         End If      End Sub