VB.NETでiniファイルのデータを取得するには？ (ID:80949)

名前

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

本文 VB.NETでiniファイルの取得ができません。 Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer Public INI_FILE As String Public BUFFER1 = New String(CChar(" "), 256) Public Function PRE_INIFILE() As String INI_FILE = CurDir() & "\PLシート作成システム.INI" End Function Public Function READ_INIFILE(ByVal ApplicationName As String, ByVal KeyName As String, ByVal FILENAME As String) As String If GetPrivateProfileString(ApplicationName, KeyName, "", BUFFER1, 128, FILENAME) = 0 Then READ_INIFILE = "" Else READ_INIFILE = Left(BUFFER1, InStr(BUFFER1, Chr(0)) - 1) End If End Function というような関数を作成しました。 If GetPrivateProfileString(ApplicationName, KeyName, "", BUFFER1, 128, FILENAME) = 0 Then で、ここをデバッグで過ぎるとKeyNameとFILENAMEの文字列が３分の１ぐらい削れてしまい READ_INIFILE = Left(BUFFER1, InStr(BUFFER1, Chr(0)) - 1) でエラーが発生してしまいます。 解決方法を教えてください。