ファイルの作成日時について
職場で簡単なファイルのバックアップPGをWSHで作っていますが
ファイルの作成日時が思うように入ってくれません。
WSHの流れは下記にしたいと考えています。
(1)前回分のファイルを作成日時を末尾に付けてリネーム
(2)WSHからバッチを呼び出して、ファイル作成
(2)でファイルが作成はされるのですが、(1)の処理でリネームした
ファイルの作成日時(実行時間より古い時間)が入って作成されてしまい、(2)が実行された
日付が入ってくれません。
ちなみに、更新日時アクセス日時は(2)の実行時間が入ります。
環境は以下になります。
OS:Windows7Pro SP1
→この先WindowsSV 2008R2で実行させたいと考えています。
Windowの仕様なのか、どうなのか、わからないのですが
どなたか何か回避策をご存じの方がみえれば、ご教授をお願いいたします。
テストで作成したWSHとBatのソースを下記に貼り付けます。
WSH ***************************************
option explicit
'変数定義
Dim objFso
Dim objFile
Dim objWShell
'オブジェクトの生成
Set objFso = Wscript.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.GetFile("C:\testDir\File-A.txt")
'ファイル名変更
objFso.GetFile("C:\testDir\File-A.txt").Name = "File-B.txt"
'オブジェクト解放
Set objFile = Nothing
'bat実行
Set objWShell = CreateObject("WScript.Shell")
objWShell.Run "C:\testDir\echo.bat", 0, True
'batで作成したFile-Aのオブジェクト生成
Set objFile = objFso.GetFile("C:\testDir\File-A.txt")
'オブジェクト解放
Set objWShell = Nothing
Set objFile = Nothing
Set objFso = Nothing
WSH ***************************************
Bat ****************************************
echo AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA > C:\testDir\File-A.txt
Bat ****************************************
以上、よろしくお願いします。
お礼
ありがとうございます。 勉強になりました。