iniファイルの読み込みを行うには？ (ID:120169)

名前

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

本文 iniファイルの読み込みを行いたいのですが、 下記ソースでGetPrivateProfileStringを実行すると 下記エラーが発生してしまいます。 どのように記述したら良いのでしょうか？ 私の環境はＶＢ６です。 よろしくお願いします。 vb6.exe - アプリケーションエラー "0x77f883ca"の命令が"0x00000000"のメモリを参照しました。メモリが"written"になることはできませんでした。 Private Sub Test() Dim lng_ret As Long Dim strKey As String Dim iniFileName1 As String iniFileName1 = App.Path & "\TEST.INI" If Dir(iniFileName1, vbNormal) <> "" Then lng_ret = GetPrivateProfileString("TEST", "Key", "1", strKey, 1, iniFileName1) Else strKey = 1 End If End Sub TEST.INIの内容です [TEST] Key=5