请问怎样调用API进行文件的读写操作？

Question

RT，包括读写文件，找到文件的位置等的信息，蛮急的，谢谢

Answer 1

读写文件 VB 内置语句还不够吗？除非你需要支持 NTFS 特性等等才需要用到API函数。

Answer 2

用FSO没法写一个N个G的文件出来的，顶

Answer 3

代码，调试通过：'读写ini文件的api
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long'读ini文件的函数
Public Function GetIniFile(ByVal AppName As String, ByVal KeyName As String) As String
    On Error GoTo GetIniFileErr
    
    Dim RetStr As String
    RetStr = String(255, Chr(0))
    GetIniFile = Trim((Left(RetStr, GetPrivateProfileString(AppName, KeyName, "", RetStr, Len(RetStr), FileName))))
    Exit Function
    
GetIniFileErr:
    MsgBox "读文件时发生错误！" & Chr(13) & "错误代码：" & Err.Number & Chr(13) & "错误描述：" & Err.Description, vbExclamation + vbOKOnly, "读文件错误"
End Function'写ini文件的函数
Public Function WriteIniFile(ByVal AppName As String, ByVal KeyName As String, ByVal Key As String) As Boolean
    Dim longWrite As Long
    On Error GoTo WriteIniFileErr
    
    longWrite = WritePrivateProfileString(AppName, KeyName, Key, FileName)
    Exit Function
    
WriteIniFileErr:
        MsgBox "写文件时发生错误！" & Chr(13) & "错误代码：" & Err.Number & Chr(13) & "错误描述：" & Err.Description, vbExclamation + vbOKOnly, "写文件错误"
End Function

Answer 4

用CreateFile打开文件，用ReadFile读文件，用CloseHandle关闭。