iniファイルから文字列（実行ファイルのパス)を取得するには？ (ID:76957)

名前

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

本文

masat21です。
先ほどは言葉が足りなくて失礼しました。
実際に実行したときの宣言文、ソース、test.iniの内容を以下に示します。
よろしくお願いします。

[宣言文(Module1.vb)]
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 Long, _
                        ByVal lpFileName As String) As Long

[ソース(Module1.vb)]
    Function INI_DBPATH_READ(ByVal sFilePath As String) As String
        Dim linebuf As String
        linebuf = New String(CChar(" "), 256)
        Dim buf As String
        buf = New String(CChar(" "), 256)
        Dim ret As Long
        'linebuf = Space(256)
        'buf = Space(256)
        ret = GetPrivateProfileString("section", "entry", "", 
                                      linebuf, 256, sFilePath)
        If ret > 0 Then
            buf = Left(linebuf, InStr(linebuf, Chr(0)) - 1)
            INI_DBPATH_READ = buf
        End If
    End Function

[test.iniの内容]
    [section]
    entry="c:\work\test.ini"

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

戻る