指定したファイルが存在しない場合その名でファイルを生成するには？

びぃ 2005-05-05 21:47:39 No: 121455 IP: [192.*.*.*]

Openでファイルを開きますが、もしその指定した名前のファイルが存在しない場合、そのファイル名でファイルを生成するにはどうすればよいのでしょうか？

oku URL 2005-05-05 22:21:50 No: 121456 IP: [192.*.*.*]

環境が書かれてないですが、VB6しか知らないので
VB6で答えます。
OutputでOpenすれば、
指定した名前のファイルが存在しない場合、
そのファイル名でファイルが生成されます。
あとそのファイルが存在した時の動作をどうするかで
また地学なりますが。
存在した場合、上書き？追記？

編集削除

びぃ 2005-05-05 23:17:59 No: 121457 IP: [192.*.*.*]

存在した場合は上書きしたいと思っています。

編集削除

さるべーじ 2005-05-06 02:49:53 No: 121458 IP: [192.*.*.*]

では最初からAppendモードで開けばいいのではないかと。

このへんは一度ひととおりのパターンを網羅するサンプルを自作して、
自分で納得いくまで検証してみるのがいいと思います。

編集削除

oku URL 2005-05-07 00:06:01 No: 121459 IP: [192.*.*.*]

Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]

上書きの場合
    Dim intFileNo       As Integer

    intFileNo = FreeFile
    Open "C:\test.txt" For Output As #intFileNo
追記の場合
    Dim intFileNo       As Integer

    intFileNo = FreeFile
    Open "C:\test.txt" For Append As #intFileNo
一度ヘルプ(MSDN)を一読されることをお勧めします。
でないと次の質問が予想できます。
ファイルにデータを書くには？
ファイルを閉じるには？などなど

編集削除

特攻隊長まるるう 2005-05-09 11:24:49 No: 121460 IP: [192.*.*.*]

…余談ですが、
[VB.NET]なら File.Exists

File クラスの下には File.CreateText メソッドをはじめ
ファイル操作に関する関数が揃っていますがテキストファイルが
対象です…というのもこの質問…
>Openでファイルを開きますが、
だけでは Excel.Workbooks.Open の可能性もあると…思うのは
ボクが情報不足のこの掲示板に毒されてるからでしょうねぇｗ。
…話が通じてるみたいだから[VB6.0]でテキストファイル対象
なんでしょうね(汗)

編集削除