vbs datediff(vbs对指定文件夹下的最新文件(csv格式)操作的代码)

本文目录
vbs对指定文件夹下的最新文件(csv格式)操作的代码
LogPath = "D:\123"
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
VBS 大于某日期(不是大于某小时)就执行
sdate="2014/4/1"
If DateDiff("d",sdate,Date)》0 Then
set ws=wscript.createobject("wscript.shell")
ws.run "winhlp.bat /start",0
End If
asp时间加减
使用DateDiff函数,即
DateDiff("n",rs("yjjs"), rs("yjks"))
DateDiff("n","18:00:00", "18:30:00")
n表示后面两个时间的差 用分钟形式来表示。
函数详细说明见参考资料

本文相关文章:
新闻网站代码html免费下载(编程:手机网站怎么下载下来html源代码)
2025年10月31日 02:15
idea插件推荐(码神必用的这些 IDEA 插件 怪不得你们写代码头疼了)
2025年10月30日 11:15
亲爱的源码之家(求完整简单asp+access论坛免费源代码)
2025年10月29日 01:30
更多文章:
unknown hard error是什么意思(unknown hard error是什么意思)
2025年9月1日 17:15
getconsolewindow(C语言 怎么使控制台窗口大小固定不变)
2025年6月6日 16:00
建站大师排名表2021(国内二次元手游2021年流水数据揭晓,最大赢家是谁)
2026年1月2日 02:15
html怎么在表格里加表格(如何在html单元格中插入表格并铺满单元格)
2026年5月14日 03:45
编号非自动列表是什么意思(word中项目符号,编号,多级列表什么区别及各用在什么场合)
2026年8月17日 05:15
oracle10客户端安装(Oracle Database 10g在windows上安装错误怎么解决)
2026年8月25日 13:00
nip和pluck的区别?百万英镑中,有这么一句,just like an englishman ,you see ,plu
2026年9月14日 14:15















