VBSで、日付をつけたログファイルを送信したい

Question

・実現したいこと
日々生成されていくログファイルをメール送信したい。

　＜例＞
c:\temp\2010-06-13_backup.log

・試してみたこと
既存VBSコードに、下記コードを追加して、ファイル送信ができるようになりました。

objMail.AddAttachment ”c:\temp\log.log”

　ただし、上記コードでは固定名のファイルのみが送信できるが、
日々生成されるファイルを指定することができませんでした。

当日日付がつけられたファイル名付を取得する方法はないでしょうか。

Comments

[otn]

質問ポイントは、今日の日付を求める方法を知りたいと言うこと？

[nobu12]

その通りです。内容を修正しました。

Answer 1

replace(Date,"/","-") & "_backup.log"

でしょうか。

Comments

[nobu12]

ご回答ありがとうございます。
当日日付をつけたファイル名を取得したいと思います。

Dim FName
FName = Dir("c:\temp\" & Format(Now, "yyyy-mm-dd") & "_a.txt")
objMail.AddAttachment FName

と追記してみましたが、うまくいきません・・・

[otn]

↑私の回答と何の関係が？？

回答の意味がわからないということでしょうか？
あと、VBAじゃなくてVBSですよね？？

[Daregada]

どうも、この人の以前の質問を見るとVBSではなくVBAではないかという疑惑。
前提が違えば一発回答が来るわけないよな。

[nobu12]

折角頂いた回答の意味が理解できませんでした。
変数のように利用できるかと考えたのですが、動作しませんでした。

objMail.AddAttachment 　”replace(Date,"/","-") & "_backup.log"”

という使い方ではないですよね。

前提についても正しくありませんでした。少々修正しました。

[Daregada]

objMail.AddAttachment( "C:/temp/" & replace(Date,"/","-") & "_backup.log")

[nobu12]

ありがとうございます。

Dim FName
FName = "c:\temp\" & replace(Date,"/","-") & "_Dbackup.log"
objMail.AddAttachment FName

などと書いていました。
こちらも一応動作はしましたが、お教えいただいたコードのほうがすごくスマートですね。
さっそく使わせていただきます。
ありがとうございました。

[Daregada]

うーん、この回答で提示されている情報で、「本来なら十分に解決方法になっている」ところ、適用のしかたがあなたの知識不足でわからないようなので、コメントで補足のアドバイスをしたら、最終的に自己解決したことにしちゃうのかい。

Answer 2

Dim FName
FName = "c:\temp" & replace(Date,"/","-") & "_Dbackup.log"
objMail.AddAttachment FName

も動作はしたが、今回教えていただいた

objMail.AddAttachment( "C:/temp/" & replace(Date,"/","-") & "_backup.log")

のほうがスマートでわかりやすい