ファイルの読み込みについて (ID:90024)

名前

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

本文 VB6を先月からやり始めました。 CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*" commondialog1.showopen をしてDXFファイル形式をtext1.textに表示したいのですがうまく読み込んで出力されません。どのようにしたらいいですか？ Sub DXFver(selFn As String) Dim strFilename As String Dim Read_Data As String Dim Tmp_Data As String Dim FileNum As Integer FileNum = FreeFile Read_Data = "" On Error GoTo file_read_err Open "c:\" For Input As #FileNum Text1.Text = "" Do Until EOF(FileNum) Line Input #FileNum, Tmp_Data Read_Data = Read_Data & Tmp_Data & vbCrLf Loop Close #FileNum Text1.Text = Read_Data Exit Sub file_read_err: MsgBox "ファイルの読み込みエラー", , "エラーメッセージ" End Sub