ファイル操作について (ID:85077)

名前

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

本文 nanashiさんありがとうございます。 初心者なので無駄な部分が多いかと思いますが コードを載せさせて頂きます。 メイン画面起動時 Private Sub Form_Load() Dim FileNum As Integer 'ファイル番号を変数に格納 FileNum = FreeFile Dim MyDir As String '実行ファイル名を宣言 MyDir = App.Path '実行ファイルを変数に格納 Dim temp As String '読み込んだデータを変数に格納 Dim ReadData(99) As String '配列の変数を指定 Dim i As Integer '繰り返し命令の変数を指定 'iniファイルを開いて1行ずつ読み込み配列に格納 i = 0 Open MyDir & "\SvAliveCK.ini" For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, temp ReadData(i) = temp i = i + 1 Loop Close #FileNum 終了時（メイン画面） Open MyDir & "\SvAliveCk.ini" For Output As #FileNum Print #FileNum, "[" & "Setting" & "]" & vbCrLf & "hostname = " & _ svalu & vbCrLf & "ip=" & _ Mid(lblHost.Caption, 11, 12) & vbCrLf & "MODE=" & K & vbCrLf & _ "IntTimer=" & frmSettei.txtInterval.Text For i = 1 To l Step 1 Print #FileNum, "[" & lstv.ListItems.Item(i).Text & "]" Print #FileNum, "IP_ADR=" & lstv.ListItems.Item(i).SubItems(1) Next i Close #FileNum End サブ画面起動時（iniファイルから表示したいデータがあるため） 終了時に”すでにファイルが開かれています”とエラーが出た時に デバッグすると この画面のOpen MyDir & "\SvAliveCk.ini" For Input As #FileNumが 黄色く表示されます。 Private Sub Form_Load() Dim FileNum As Integer 'ファイル番号を変数に格納 FileNum = FreeFile Dim MyDir As String MyDir = App.Path Dim temp As String '読み込んだデータを変数に格納 Dim ReadData(99) As String '配列の変数を指定 Dim i As Integer '繰り返し命令の変数を指定 'iniファイルを開いて1行ずつ読み込み配列に格納 i = 0 Open MyDir & "\SvAliveCk.ini" For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, temp ReadData(i) = temp i = i + 1 Loop Close #FileNum 長くてもうしわけありません。 きちんとCloseでファイルを閉じているつもりなのですが・・・