ファイルを読み込むには？ (ID:110192)

名前

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

本文 Private Sub Command1_Click() Dim sBuff$, sData As String Dim iFile As Integer iFile = FreeFile Open "テキストファイル名" For Input As #iFile Do Until (EOF(iFile)) Line Input #iFile, sBuff sData = sData & sBuff & vbCrLf Loop Close #iFile Label1.Caption = sData End Sub