ファイル操作に関して、こんなことできますでしょうか (ID:121782)

名前

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

本文 >再現しないね。 一応自分も作ってみたけどさ Private Function Sample_Src() As Boolean Next_Proc: '使用可能なファイル番号を取得 intFileNo = FreeFile 'テキストファイルをオープン Open "c:\aaa.txt" For Input As #intFileNo ' ファイルの終端までループを繰り返します。 Do While Not EOF(intFileNo) '１ 行づつ変数に読み込みます。 Line Input #intFileNo, strTextLine MsgBox strTextLine Loop 'ファイルを閉じる Close #intFileNo GoTo Next_Proc: End Function 無限ループ注意