VBでのファイル作成日の比較

質問

VB2010でファイルの置き換えについてご相談させてください。

ファイルが2つあります。
・C:\MyFile.txt
・D:\YourFile.txt(このYourFile.txtは日々、ファイル作成日が更新されるものとします）

この2つはファイル作成日が違います。
それを利用して、

MyFile.txtとYourFile.txtのファイル作成日を比較。
YourFile.txtのファイル作成日が新しければ、MyFile.txtと置換え。

といった事をしたいと思っています。そこで、FileInfo.CopyToメソッドを利用しました。
そうすると、YourFile.txtがMyFile.txtより新しい日付でも中身をコピーするだけで作成日はかわりませんでした。

次に、FileInfo.Replaceメソッドを利用しようと思いましたが、これはバックアップファイルを作成するみたいなので、それは不要のため利用するのはやめました。

後は、もしYourFile.txtのファイル作成日が新しければ、MyFile.txtを削除。
その後、CopyToメソッドを使用してファイルをコピーするといった方法が思いつきました。

他に何かスマートな方法はないでしょうか？

回答No.1

米沢 栄蔵（@YON56） · ベストアンサー

こんな感じでいかがです。

Sub XXX()

Dim A, B
Dim AA, BB, CC, DD
Dim AAA, BBB, CCC, DDD

AA = "C:\MyFile.txt"
BB = "D:\YourFile.txt"
Set AAA = CreateObject("Scripting.FileSystemObject")
Set BBB = AAA.GetFile(AA)
Set CCC = AAA.GetFile(BB)
A = BBB.DateLastModified
B = CCC.DateLastModified
If B > A Then
Kill AA
CC = Left(AA, InStrRev(AA, "\"))
DD = Right(BB, Len(BB) - InStrRev(BB, "\"))
AAA.MoveFile BB, CC
Set DDD = AAA.GetFile(CC & DD)
DDD.Name = Right(AA, Len(AA) - InStrRev(AA, "\"))
End If

End Sub

InStrRevの意味は、AA,BB の値に"\"が増えた場合の措置です。
また、AA,BB の値がどこに記述されているかによって、
AA=Sheets("ZZZ").Range("C2").Value
BB=Sheets("AAA").Range("D3").Value
のような記述OK

お礼

ありがとうございます、コードまで書いて頂き助かりました！