VB.netでINIファイルから文字列を取得するには？ (ID:77531)

名前

ホームページ(ブログ、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 Long, ByVal iniFilename As String) As Long

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

Dim nFileName As String         'ファイル名称（フルパス）
        Dim Ret As Long                 '戻り値
        Dim strTemp As String           '一時格納変数
        Dim intLen As Long              '文字列長

'INIファイル名取得
        nFileName = GetAppPath()
        nFileName = nFileName & "\XXX.ini"

'バッファを確保
        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

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

戻る