VBSで作成日が今日の物をコピーしたい

質問

VBSを作成しておりますが、ちょっと行き詰まり…

おわかりでしたら教えてください。

やりたい事は、日本語で言うと
「フォルダー1内のファイル作成日付が今日の物は、フォルダー2にコピーする」
です。

どなかたおわかりでしたら、教えて頂けたらと思います。

よろしくおねがいします＾＾

回答No.2

imogasi

３点あって１つぐらい勉強してないのかな。丸投げだな。
（１）１つのフォルダの全てのファイル（名）を捉える
（２）捉えたところでそのファイルの作成日付をチェエク
（３）指定フォルダへコピー
（１）
Sub test01()
Dim Fld As Object
Dim Fil As Object
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Path1 = CurDir
MsgBox Path1
Set Fld = FSO.GetFolder(CurDir & "\")
For Each Fil In Fld.Files
MsgBox Fil.Name 'Fil.Path ならフルパス
Next
End Sub
これでファイルを捉え、拡張子で絞るとか普通やるが。
（２）http://hanatyan.sakura.ne.jp/vbhlp/FSOflm.htm
（３）http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_090.html
のＦＳＯのところ
ーー
みなＧｏｏｇｌｅで照会で見つかるよ。

回答No.1

mitarashi

こちらがご参考になると思います。
http://www.happy2-island.com/vbs/cafe02/capter00201.shtml