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

名前

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

本文 > VB6を先月からやり始めました。 > CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*" > commondialog1.showopen CommonDialog1が、Microsoft コモン ダイアログ コントロール 6.0 なら、 > をして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 とりあえず、text1.Text = CommonDialog1.FileNameとしてみたらどうでしょ？