iniファイルの読み込み (ID:114447)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

エラーが出てしまい原因が分かりません。
教えてください。
お願いします。

Public 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 Integer, ByVal iniFilename As String) As Integer
    Dim nFileName As String         'ファイル名称（フルパス）
    Dim Ret As Integer                 '戻り値
    Dim strTemp As String           '一時格納変数
    Dim intLen As Integer              '文字列長

Public Function GetIni(ByVal section As String, ByVal Key As String, ByVal DefaultString As String) As String

'INIファイル名取得
        'nFileName = GetAppPath()
        With OpenFileDialog1
            .FileName = ""
            .Filter = "iniファイルの読み込み|*.ini"
            .ShowDialog()
            nFileName = .FileName
        End With
        'バッファを確保
        strTemp = ""
        strTemp = strTemp.PadLeft(1024, Chr(0))
        intLen = Len(strTemp)

Ret = GetPrivateProfileString(section, Key, DefaultString, _
           strTemp, intLen, nFileName)
        Return Left(strTemp, InStr(strTemp, Chr(0)) - 1)  '←ここでエラーが発生します。

End Function

Private Function GetAppPath() As String
        Dim fi As New System.IO.FileInfo( _
            System.Reflection.Assembly.GetExecutingAssembly.Location)
        Return fi.DirectoryName
    End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetIni(1, "aaa", "sss")
    End Sub

================================================
iniファイルの中身

[aaa]
sss=実験

←解決時は質問者本人がここをチェックしてください。

戻る