vb api函数openfile第二个参数怎么用

Question

vb api函数openfile第二个参数怎么用
lpReOpenBuff OFSTRUCT，该结构填充的数据包括与文件和操作结果有关的信息
这个参数怎么用
举个例子

Answer 1

这个参数是返回值，用来读取其中的打开的文件的一些属性.

举个例子

假设你当前的应用程序所在的路劲下有个文件名为"abc"的文件

则可以用这个以下代码获取这个文件的路劲，并且返回这个文件的句柄。具体还有很多参数参考MSDN文件。

Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Private Const OFS_MAXPATHNAME = 128
Private Type OFSTRUCT
        cBytes As Byte
        fFixedDisk As Byte
        nErrCode As Integer
        Reserved1 As Integer
        Reserved2 As Integer
        szPathName(OFS_MAXPATHNAME) As Byte
End Type
Private Const OF_READ = &H0
Private Const OF_WRITE = &H1
Private Const OF_READWRITE = &H2
Private Const OF_SHARE_COMPAT = &H0
Private Const OF_SHARE_EXCLUSIVE = &H10
Private Const OF_SHARE_DENY_WRITE = &H20
Private Const OF_SHARE_DENY_READ = &H30
Private Const OF_SHARE_DENY_NONE = &H40
Private Const OF_PARSE = &H100
Private Const OF_DELETE = &H200
Private Const OF_VERIFY = &H400
Private Const OF_CANCEL = &H800
Private Const OF_CREATE = &H1000
Private Const OF_PROMPT = &H2000
Private Const OF_EXIST = &H4000
Private Const OF_REOPEN = &H8000
Sub xyf()
    Dim obj As OFSTRUCT
    Dim arr(0 To 128)
    OpenFile "abc", obj, OF_DELETE
    For i = 0 To UBound(obj.szPathName)
        arr(i) = VBA.Chr(obj.szPathName(i))
    Next
    MsgBox Join(arr, "")
End Sub

Answer 2

鹅鹅鹅鹅鹅鹅二二恶