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

名前

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

本文 Textプロパティに放り込むときに\0を処理してくれることを活かして、 手抜きするならたとえばこう。 Dim strKey As String strKey = "1" If Dir(App.Path & "\TEST.INI", vbNormal) <> "" Then strKey = Space(1024) Call GetPrivateProfileString("TEST", "Key", "1", strKey, 1024, App.Path & "\TEST.INI") Text1.Text = strKey strKey = Text1.Text End If MsgBox strKey