ファイル名が日付のファイルの存在を確認する方法

質問

OK Waveにお世話になっております。
VB6でソフト製作している初心者ですが、ファイル名が日付の場合に、
そのファイルの存在を確認する方法がわかりません。
対象物に設定完了後にログ作成で、ファイル名を日付でTxtファイルを作成して2行書き込むのですが、再度違う対象物に設定完了時は同じファイル名が存在するなら（同じ日付なら）1行だけ書き込みたいのです。
（1日に10回くらい設定する予定ですので、全て一つのファイルにログを残したい。。。）

＜やりたいこと＞
１．設定完了
↓
２．ログ作成作業開始
↓
３．"C:\Log\"がなければフォルダを作成する
↓
４．同じファイル名がなければ2行書き込んで保存
↓
５．同じファイル名があれば1行だけ書き込んで保存
↓
６．以後繰り返し。

４～５がどうしても出来ません。
ファイル名が日付で流動的なので、存在の確認の方法がわかりません。

下記に現在の４～５のコードを書きます。
毎回毎回2行書き込んでしまいます・・・。

-----------------------------------------------------------------------------------
Dim fileNo As Integer
Dim FileName As String
Dim IDNumber As String

If Dir("C:\Log\", vbDirectory) = "" Then 'C:\Logフォルダがあるか確認
MkDir ("C:\Log\") 'なければフォルダ作成する
End If

'ファイル番号の取得
fileNo = FreeFile
'ファイルを追加モードで開く (ファイル名の生成)
Open "C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt" For Append As #fileNo
'txtファイルへ書き込む
Print #fileNo, "設定日時,対象番号,設定値"
Print #fileNo, Format(Now, "hh:mm:ss") + "," + Format(IDNumber) + "," + Format(check, "000000")
Close #fileNo 'ファイルを閉じる
-----------------------------------------------------------------------------------

ちなみに下記のようにやってみましたがDate.txtの存在を認識してくれません。。。
If Dir(Date.txt) = "" Then
Print #fileNo, "設定日時,対象番号,設定値"
Print #fileNo, Format(Now, "hh:mm:ss") + "," + Format(IDNumber) + "," + Format(check, "000000")
Close #fileNo
Else
Print #fileNo, Format(Now, "hh:mm:ss") + "," + Format(IDNumber) + "," + Format(check, "000000")
Close #fileNo
End If

あとここだけなんです。
6/13（月）納期なので、どなたかわかる方、助けてください！
よろしくお願いいたします！

回答No.3

uruz · ベストアンサー

1)
ファイル名が "C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt"　なのだから Dir()関数で存在をテェックする時も
Dir("C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt",vbNormal)
でないとテェックできません。

2)
ファイルをOpen後にDir()関数でテェックしていますがOpenした時点でファイルは作成されますのでかならず「有り」になってしまいます。したがってOpen前にテェックしなければなりません。

Dim FileName As String
Dim FileFlag As Boolean
-省略-
FileName="C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt"
FileFlag=iif(Dir(FileName,vbNormal<>"",True,False)
-省略-
Open FileName For Append As #fileNo
　if fileFlag=False Then
　　Print #fileNo, "設定日時,対象番号,設定値"
　end if
　Print #fileNo, Format(Now, "hh:mm:ss") + "," + Format(IDNumber) + "," + Format(check, "000000")
Close #fileNo 'ファイルを閉じる

参考：
文字列の連結には「+」ではなく「&」を使用する方が望ましいです。
"C:\Log\" & Format(Date, "yyyy年mm月dd日") & ".txt"

お礼

ありがとうございます！
Dir("C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt",vbNormal)
で認識するんですね！
ファイルオープン前にチェックするのは頭にありませんでした。
VB環境が今日はないので、月曜朝確認してみます。

文字列の連結には「+」ではなく「&」が望ましいのは何ででしょうか？
よりよいプログラムにするために知りたいです！

回答No.2

imogasi

Open "C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt"でこの名前で開くのに
＞If Dir(Date.txt) = "" Then
でチェックできるのかな。
Ｄｉｒ
（１）関数の(）内は文字列で在るべきでしょう。
（２）またフルパスで在るべきでしょう
（３）存在しないときは、空白が返る（ヌルストリング）
この点に違反してませんか。
＞C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt"んおような名前になるべきなのでは？
ーーー
ファイルの存在を調べるのに
ＦＳＯで.FileＥｘｉｓｔｓというのも在ります。
興味があれば、Ｇｏｏｇｌｅででも「ＦＳＯ　.FileＥｘｉｓｔｓ」で照会のこと。

お礼

ありがとうございます！
C:\Log\" + Format(Date, "yyyy年mm月dd日") + ".txt"で明日やってみます。

FileＥｘｉｓｔｓも調べてやってみます。

回答No.1

bin-chan

DATE.txtはどこで宣言してどこで値を設定してますか？見あたらないようですが。
DATEは予約語じゃないですかね。

FileSystemObjectを利用したほうが楽だと思います。
キーワード「filesystemobject vb6」でgoogle検索してみてください。
先頭に出てくるページにサンプルたくさんありますよ。
ファイル、ディレクトリの存在確認のサンプルもあり。

お礼

ありがとうございます。
(Date, "yyyy年mm月dd日") + ".txt"をDATE.txtと勝手に置き換えました。。。

FileSystemObjectを調べて試してみます！