ReadIniFile有这个函数吗，怎么用和申明啊

Question

?

Answer 1

调用API函数GetPrivateProfileString

Answer 2

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

Answer 3

'逍遥浪子编程
'网志：http://blog.csdn.net/xiaoyaolz
'交个朋友，一起编程，学习，一生的朋友
Public Function ReadIniFile(ByVal strIniFile As String, ByVal strSection As String, ByVal strKey As String, Optional ByVal strKeyDefault As String = vbNullString) As String
Public Function ReadIniFile(ByVal strIniFile As String, ByVal strSection As String, ByVal strKey As String, Optional ByVal strKeyDefault As String = vbNullString) As String　Dim strBuffer As String
　strBuffer = Space$(gintMAX_SIZE)
　If GetPrivateProfileString(strSection, strKey, strKeyDefault, strBuffer, gintMAX_SIZE, strIniFile) Then
　　ReadIniFile = StringFromBuffer(strBuffer)
　End If
End Function
测试参考:http://www.yesky.com/56/1800056.shtml

Answer 4

用 Scripting.FileSystemObject 好了。
在 VB -> 工程 -> 引用 -> Microsoft Scripting Control 加载
用
Dim fso As Scripting.FileSystemObject
Set fos = New Scripting.FileSystemObject
调用，具体看 MSDN 的 FileSystemObject 对象的部分。