wangjianfei,快来帮我，1个api

Question

其中自定义部分为：
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

Answer 1

TO liujianjun_(流星尔)：最近在做什么呀，老是研究API.
DECLARE INTEGER OpenFile IN kernel32; 
    STRING   lpFileName,; 
    STRING @ lpReOpenBuff,; 
    INTEGER  wStyle 
DECLARE INTEGER CloseHandle IN kernel32;
    INTEGER hObject LOCAL lpFileName, lpReOpenBuff, FileHandle 
lpFileName = "C:\Test.TXT" 
lpReOpenBuff = REPLICATE(Chr(0), 250) 
FileHandle = OpenFile(lpFileName, @lpReOpenBuff,0 ) 
IF FileHandle <> -1
MessageBox('Open File Success')
    =CloseHandle (FileHandle) 
ENDIF 

Answer 2

to wangjianfei:
不是项目上的要求，随便玩玩，觉得挺有意思的。