DOS の BAT処理について

質問

お世話になります。

下記のようなBATを見よう見まねで作りました。

私が作りたいのは、「製品情報.xls」と言うファイルの更新日を見て
更新日が今日であったら、メッセージ「同じ日付です。」を表示したい
だけなのです。

現状では、ファイルの更新日と今日の日付が同じなのに、何故か
メッセージが出てこないのでしょうか?

お忙しいとは思いますが宜しくお願い致します。

Option Explicit

Dim objFileSys
Dim strScriptPath
Dim strFilePath
Dim objFile
Dim strDate
Dim hizuke2
dim hizuke

'ファイルコピー用------------------------------------
Dim fso, TargetFolder, MyFile, filename
Set fso = CreateObject("Scripting.FileSystemObject")
'ファイルコピー用------------------------------------

Set objFileSys = CreateObject("Scripting.FileSystemObject")

Set objFile = objFileSys.GetFile("\\10.20.32.21\共有\製品情報.xls")

hizuke = Date
hizuke2 = Left(objFile.DateLastModified,10)
WScript.echo "最終アクセス日:" & hizuke2 & " " & "今日:" & hizuke

if hizuke = hizuke2 then WScript.echo "同じ日付です。"

回答No.3

kichi8000 · ベストアンサー

BATはコマンドプロンプトのDOSコマンドシーケンスです。
VBSはスクリプトと言います。wscript.exe（コマンド＝実行ファイル）の指定ファイルとして実行します。

Left(objFile.DateLastModified,10)
そのまま使うとWindowsのシステム設定値（和暦や漢字、長い形式や短い形式）で帰ってきます。
結果の長さが不明なので１０文字には出来ません。
http://officetanaka.net/excel/vba/tips/tips59.htm

関数で表示形式を確定しましょう。
http://msdn.microsoft.com/ja-jp/library/cc410230.aspx

hizuke = FormatDateTime(Date, 1)
hizuke2 = FormatDateTime(objFile.DateLastModified, 1)

最後の行でファイルを必ず開放します。

Set objFile = Nothing
Set objFileSys = Nothing
Set fso = Nothing

お礼

ありがとうございました。

やりたい事が解決しました。

回答No.2

kimamaoyaji

DOS（ディスク・オペレーティング・システム）でWindows98以降のWindowsではDOSは搭載されていないので動きません。
BAT（バッチファイル）はWindowsでのコマンドプロンプト（シェル）に行わせたい命令列をテキストファイルに記述したもの。
貴方の書かれている構文にコマンドが含まれていないので、バッチファイルは動かないと思いますが？何かのスクリプトなんでしょうけど
Set命令にしても
例
SET /A 式
変数の代入時に数式を利用できるようにします。
%PATH:文字列1=文字列2%
変数の文字列1を文字列2に置換して表示します。 文字列1は大文字小文字を区別しません。
%PATH:~n1,n2%
変数のn1番目の文字（オフセット）からn2個の文字列を取り出します。
　と言う形でしかDOSでバッチを使えませんよ。？？

お礼

大変失礼しました。

DOSではなく、VBS でした。

VBSだと、こちらで質問しては問題でしょうか

ご指導を頂けると幸いです。

宜しくお願い致します。

回答No.1

lupin-333333

まず、タイトルが違う。

お礼

タイトルは、何と書けばよかったでしょうか
イメージがつかなく書いてしまったのです。
ご指導頂けないでしょうか