フォルダ内の一番古いファイル、新しいファイルを探す

指定したフォルダ内で一番新しいファイル、一番古いファイルを調べるサンプルコードです。

VBS

指定したフォルダで一番最初に更新されたファイル(要するに一番古いファイル）を調べる

サンプル： 


Set objFSo = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder("C:\temp")  
  
Set cFiles = objFolder.Files  
  
oldestDate = Now  
oldestFile = ""  
   
For Each objFile in cFiles  
    If objFile.datelastmodified < oldestDate Then  
        oldestDate = objFile.datelastmodified
        oldestFile = objFile.Path 

       
    End If  
Next  

wscript.echo oldestDate
wscript.echo oldestFile

一番最後に更新されたファイル（要するに一番新しいファイル）を表示します。

サンプル： 


Set objFSo = CreateObject("Scripting.FileSystemObject")  
Set objFolder = objFSO.GetFolder("C:\temp")  
  
Set cFiles = objFolder.Files  
  
newestDate = cdate("1975/01/01 00:00:00")
newestFile = ""  
   
For Each objFile in cFiles  
    If objFile.datelastmodified > newestDate Then  
        newestDate = objFile.datelastmodified
        newestFile = objFile.Path 
    End If  
Next  

wscript.echo newestDate
wscript.echo newestFile


コマンドサンプル一覧