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

名前

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

本文 Private Sub Command1_Click() Dim sBuff() As Byte Dim iFile As Integer iFile = FreeFile Open "テキストファイル名" For binary As #iFile ReDim sBuff(1 to Lof(1)) Get #iFile,1,sBuff Close #iFile Label1.Caption = StrConv(sBuff,vbUnicode) End Sub も、よろしく。