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

びぃ 2005-05-06 06:47:39 No: 121455

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

oku URL 2005-05-06 07:21:50 No: 121456

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

びぃ 2005-05-06 08:17:59 No: 121457

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

さるべーじ 2005-05-06 11:49:53 No: 121458

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

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

oku URL 2005-05-07 09:06:01 No: 121459

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 20:24:49 No: 121460

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

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