ReDim Preserveについて。 (ID:106025)

名前

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

本文 サンプル.txtの中身を読み込んで、 そのテキストファイルの１行目だけをtext1に表示したいのですが、 たまに、サンプル.txtの中身が変更られているにもかかわらず、 text1には変更された内容ではなく、 前の読み込んだデータが表示されるのです。 原因が分からないので、何方か教えてください。 下記がプログラムです。 Private Sub sample() intFileNo = FreeFile Open "C:\WINDOWS\デスクトップ\サンプル.txt" For Input As #1 Do Until EOF(1) ReDim Preserve strArray(intIndex) Line Input #1, strArray(intIndex) intIndex = intIndex + 1 Loop Close #1 Text1 = strArray(Int(0)) End Sub