CreateFile 中的第四个参数lpSecurityAttributes要设置为何值

[gh111]

Public 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
中的第四个参数lpSecurityAttributes 要设置为何值,我调试时会出错

[gh111]

错误信息是:byref argument type mismatch

[僵哥]

Byval 0&

Public Function IsFileInUse(ByVal FileName As String) As Boolean
Dim FileHandle As Long
On Error GoTo ErrHandle

IsFileInUse = True

If Not FileExists(FileName) Then
IsFileInUse = True
Exit Function
End If

FileHandle = CreateFile(FileName, _
GENERIC_READ Or _
GENERIC_WRITE, _
0&, _
ByVal 0&, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_ARCHIVE Or _
FILE_ATTRIBUTE_HIDDEN Or _
FILE_ATTRIBUTE_NORMAL Or _
FILE_ATTRIBUTE_READONLY Or _
FILE_ATTRIBUTE_READONLY Or _
FILE_ATTRIBUTE_SYSTEM, _
0& _
)

If FileHandle = -1 Then Exit Function

IsFileInUse = False

Call CloseHandle(FileHandle)

Exit Function
ErrHandle:
Err.Raise Err.Number, "IsFileInUse", Err.Description
End Function

[僵哥]

Public Function FileExists(ByVal FileName As String) As Boolean
Dim FileHandle As Long
On Error GoTo ErrHandle
FileExists = False
FileHandle = CreateFile(FileName, _
0&, _
FILE_SHARE_READ Or _
FILE_SHARE_WRITE, _
ByVal 0&, _
OPEN_EXISTING, _
FILE_ATTRIBUTE_ARCHIVE Or _
FILE_ATTRIBUTE_HIDDEN Or _
FILE_ATTRIBUTE_NORMAL Or _
FILE_ATTRIBUTE_READONLY Or _
FILE_ATTRIBUTE_READONLY Or _
FILE_ATTRIBUTE_SYSTEM, _
0& _
)
If FileHandle = -1 Then Exit Function
FileExists = True
Call CloseHandle(FileHandle)
Exit Function
ErrHandle:
FileExists = False
End Function

[faysky2]

用 ByVal 关键字指定为传值

[faysky2]

自己看这改：
hNewFile = CreateFile(sTemp, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

[gh111]

各位大哥,为何还不行,错误提示和前面一样

[gh111]

错误提示变为:User-defined type may not be passed Byval

[gh111]

现在调试能通过,CreateFile运行了,但是为何还是打不开word 文档

[僵哥]

现在调试能通过,CreateFile运行了,但是为何还是打不开word 文档
-----------
打不开Word文档是什么意思？如果想使用Word去打开，建议使用shell

[gh111]

shell如何使用

[faysky2]

用ShellExecute 吧：

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
ShellExecute 0, "open", "c:\test.doc", "", "", 1
End Sub