VBScriptについて必死に話し合うスレ [転載禁止]©2ch.net

[424 デフォルトの名無しさん 2015/04/13(月) 22:10:22.00 ID:KVldb9bQ]

>>423
Dim strNewFilePath
Dim dtmMostNewTimeStamp
Dim objFile

'特定フォルダ内のファイルを列挙
For Each objFile In objFolder.Files
　　'最終更新日　　objFile.DateLastModified
　　If dtmMostNewTimeStamp < objFile.DateLastModified Then
　　　　dtmMostNewTimeStamp = objFile.DateLastModified
　　　　strNewFilePath = objFile.Path
　　End If
Next

'最新更新ファイル取得
WScript.Echo strNewFilePath

objFS.CopyFile strNewFilePath, "d:\copysaki\"

こうかな。