INIファイルから文字列を取得する

'GetPrivateProfileString ＝＞iniファイルから文字列を取得する

'＜引数＞
'lpAppName:           セクション名
'lpKeyName:           キー名
'lpDefault:           キーが見つからなかった場合のデフォルトの文字列
'lpReturnedString:    取得した文字列が入る
'nSize:               同､文字数
'inifilename:         INIファイル名

'＠戻り値＠
' 取得した文字列

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal inifilename As String) As Long


Private Sub Command1_Click()

  Dim Leng As Long
  Dim nName As String
  Dim Ret As Long
  Dim Default As String


'バッファを確保
    nName = String(256, Chr(0))
    Leng = Len(nName)
    
    Ret = GetPrivateProfileString(Text2.Text, Text3.Text, Default, nName, Leng, Text1.Text)
      
    
   If Ret <> 0 Then
      Text4.Text = nName
      MsgBox "文字列の取得成功しました"
   Else
      MsgBox "失敗しました。"
    
   End If
   
End Sub

Private Sub Form_Load()


Text1.Text = "Test.ini"

End Sub