Set?FSO?=?CreateObject("Scripting.FileSystemObject")
Dim?dt,?fn?'定義兩個變量用於在遍歷時記錄最新的創建時間和文件名
dt?=?"1990-1-1"?'設定壹個時間初始值用於後續比較
If?FSO.FolderExists(LogPath)?Then
Set?Folder?=?FSO.GetFolder(LogPath)
For?Each?File?In?Folder.Files
If?LCase(Right(File.Name,?3))?=?"csv"?Then?'判斷文件後綴
If?DateDiff("s",?dt,?File.DateCreated)?>?0?Then?'比較創建時間
'間隔時間以秒(s)為單位,返回兩個時間間隔的秒數
'若?dt?>?File.DateCreated,DateDiff返回負數
'若?dt?<?File.DateCreated,則更新dt和fn
dt?=?File.DateCreated
fn?=?File.Name
End?If
End?If
Next
Set?Folder?=?Nothing
Else
'若文件夾路徑不存在,給出錯誤提示並退出腳本運行
MsgBox?"Folder?"?&?LogPath?&?"?not?found!",?vbExclamation
WScript.Quit
End?If
'MsgBox?fn?'顯示創建時間最新的文件名(不含路徑),調試時可放開註釋
'至此,得到文件名,下面讀文件並判斷第1行第1列的值是否符合要求
Const?ForReading?=?1
Set?f?=?FSO.OpenTextFile(LogPath?&?"\"?&?fn,?ForReading)
'MsgBox?f.ReadLine?'顯示第1行文本內容,調試時可放開註釋
ret?=?Split(f.ReadLine)?'默認是空格分隔,若是TAB分隔,split要加第二個參數vbTab
'MsgBox?ret(0)?'顯示第1行第1列的值,調試時可放開註釋
f.Close
Set?f?=?Nothing
Set?FSO?=?Nothing
If?ret(0)?>?1.55?And?ret(0)?<?10.85?Then
MsgBox?"對",?vbInformation
Else
MsgBox?"錯",?vbExclamation
End?If