こんばんは。
今、チャットログファイルのhtmlを
読み込むだけの簡易Webブラウザを作っているんですが
開くの処理でつまずいています。。

ほとんど知識なくていろいろネットで調べてやっとここまで作った
のですがうまく行かずです><
症状としては"パス名が無効です"とでて困っています><

よろしければどこが不備なのかご教授お願いします><


Private Sub hiraku_Click()
Dim FileName As String
Const ExcelFileName = "C:\Program Files\Internet Explorer\iexplore.exe"

With CommonDialog1
.DialogTitle = "読み込みテスト"
.Filter = "Chat_LOG(.html)|*.html"
.Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames Or cdlOFNNoChangeDir
.ShowOpen

Open FileName For Output As #1
Print #1, ab
Close #1
End With
End Sub

開発環境は
・VB6 sp6
・WinVista sp1
です。

> Private Sub hiraku_Click()
> Dim FileName As String
> Const ExcelFileName = "C:\Program Files\Internet Explorer\iexplore.exe"
>
> With CommonDialog1
> .DialogTitle = "読み込みテスト"
> .Filter = "Chat_LOG(.html)|*.html"
> .Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames Or cdlOFNNoChangeDir
> .ShowOpen
>
> Open FileName For Output As #1
> Print #1, ab
> Close #1
> End With
> End Sub

FileName はどこで取得しているのですか？
Open FileName For Output As #1　この時のFileName には何が入っていますか？

今回のエラーとは関係ありませんが、ファイル番号の設定は、#1 のように決め打ちを
しないで、 FreeFile 関数で取得するようにして下さい。
又、ファイルを扱う場合は、ファイルの有無を含めてエラーチェックをするようにして
下さい。

こんにちは。　回答ありがとうございます^^

ネットでいろいろと参考になる構文をコピペしていってたのであまり理解を
していません。お許しを。。

ただOpen FileName For Output As #1この構文に関しては、
以前見たとき自分の持っているVB6のテキストにも"開く"処理の項目に載ってた記憶が・・
・・・言い訳になっちゃいました<(_ _)>

ファイル番号はFreeFile関数で取得ですか。。なるほどです。
またプログラム書き換えて再度チャレンジしようと思います。
本当に、回答ありがとうございました^^