- 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\"
こうかな。
|
|