如何对某个文件夹的修改时间进行多次对比【已解决】
本帖最后由 a000000 于 2022-8-15 15:44 编辑求助各位老师
我想每隔10分钟对某个文件夹的修改时间对比一次，如果修改时间有变动则不作任何处理，如果最近5次没变化运行123.exe
由于水平有限，获取到当前修改时间后后面的无法实现了，请老师帮忙。
$t =FileGetTime("C:\0", 0)
If Not @error Then
$YYYYMMDDHHMMSS = $t & "/" & $t & "/" & $t& "/" & $t& "/" & $t& "/" & $t
MsgBox(0, "notepad.exe 创建日期:", $YYYYMMDDHHMMSS)
EndIf
FileSetTime ( "C:\0","",0)
多谢各位老师。
要用个循环检测，比如while或者用AdlibRegister
不然如何30分钟来一次呢 #Region AutoIt3Wrapper 预编译参数(常用参数)
#AutoIt3Wrapper_Icon= ;图标,支持EXE,DLL,ICO
#AutoIt3Wrapper_OutFile= ;输出文件名
#AutoIt3Wrapper_OutFile_Type=exe ;文件类型
#AutoIt3Wrapper_Compression=4 ;压缩等级
#AutoIt3Wrapper_UseUpx=y ;使用压缩
#AutoIt3Wrapper_Res_Comment= ;注释
#AutoIt3Wrapper_Res_Description= ;详细信息
#AutoIt3Wrapper_Res_Fileversion= ;文件版本
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=p ;自动更新版本
#AutoIt3Wrapper_Res_LegalCopyright= ;版权
#AutoIt3Wrapper_Change2CUI=N ;修改输出的程序为CUI(控制台程序)
;#AutoIt3Wrapper_Res_Field=AutoIt Version|%AutoItVer% ;自定义资源段
;#AutoIt3Wrapper_Run_Tidy= ;脚本整理
;#AutoIt3Wrapper_Run_Obfuscator= ;代码迷惑
;#AutoIt3Wrapper_Run_AU3Check= ;语法检查
;#AutoIt3Wrapper_Run_Before= ;运行前
;#AutoIt3Wrapper_Run_After= ;运行后
#EndRegion AutoIt3Wrapper 预编译参数设置完成
#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Au3 版本:
脚本作者:
Email:
QQ/TM:
脚本版本:
脚本功能:
#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
#include <Date.au3>
$t =FileGetTime("C:\Users\Administrator\Desktop\234", 0);;;要判断的文件夹
Global $var1,$var2,$var3,$var4,$var5,$var6,$var7,$var8,$var9,$var10
If Not @error Then
$yyyymd = $t & "/" & $t & "/" & $t & " " & $t & ":" & $t & ":" & $t
$len = StringLen($yyyymd)
$var1 = StringMid($yyyymd,1,4)
$var2 = StringMid($yyyymd,6,2)
$var3 = StringMid($yyyymd,9,2)
$var4 = StringMid($yyyymd,12,2)
$var5 = StringMid($yyyymd,15,2)
EndIf
Global $pctime=_NowCalc()
$var6 = StringMid($pctime,1,4)
$var7 = StringMid($pctime,6,2)
$var8 = StringMid($pctime,9,2)
$var9 = StringMid($pctime,12,2)
$var10 = StringMid($pctime,15,2)
if $var1-$var6=0 And $var2-$var7=0 And $var3-$var8=0 And $var4-$var9=0 And $var10-$var5<=2 Then
MsgBox(0,"","有输出数据",3)
Else
MsgBox(0,"","没有输出数据啦",3)
EndIf
_test1()
;~ _test2()
Func _test1()
MsgBox(0,"","字符长度为:"&$len&@LF&""&@LF&"写入时间为:"&$yyyymd&@LF&""&@LF&"当前时间为:"&$pctime&@LF&""&@LF&"年: "&$var6&"-"&$var1&"="&$var6-$var1&@LF&""&@LF&"月: "&$var7&"-"&$var2&"="&$var7-$var2&@LF&""&@LF& "日: "&$var8&"-"&$var3&"="&$var8-$var3&@LF&""&@LF& "时: "&$var9&"-"&$var4&"="&$var9-$var4&@LF&""&@LF& "分: "&$var10&"-"&$var5&"="&$var10-$var5)
EndFunc
Func _test2()
MsgBox(0,"","字符串长度为:"&$len)
MsgBox(0,"","文件写入时间:"&$yyyymd)
MsgBox(0,"","当前系统时间:"&$pctime)
MsgBox(0,"","分解后字符为:"&$var1)
MsgBox(0,"","分解后字符为:"&$var2)
MsgBox(0,"","分解后字符为:"&$var3)
MsgBox(0,"","分解后字符为:"&$var4)
MsgBox(0,"","分解后字符为:"&$var5)
MsgBox(0,"","分解后字符为:"&$var6)
MsgBox(0,"","分解后字符为:"&$var7)
MsgBox(0,"","分解后字符为:"&$var8)
MsgBox(0,"","分解后字符为:"&$var9)
MsgBox(0,"","分解后字符为:"&$var10)
EndFunc txen548 发表于 2022-8-15 14:07
虽然跟我需求不一样，但是仍然十分感谢:face (22): Local $sDir = "C:\0" ;检测目录
Local $iCkIntervals = 10 * 60 * 1000 ;间隔时间 10 分钟
HotKeySet('{Esc}', '_Exit')
AdlibRegister('_CkTime', 1000)
While 1
Sleep(1000)
WEnd
Func _CkTime()
Local Static $iTs, $sInitialTime, $iCount
If Not $iTs Then
$iTs = TimerInit()
$sInitialTime = FileGetTime($sDir, 0, 1)
$iCount = 0
Return
EndIf
If TimerDiff($iTs) >= $iCkIntervals Then
$iTs = TimerInit()
Local $sNow = FileGetTime($sDir, 0, 1)
If $sNow <> $sInitialTime Then
$iCount = 0
$sInitialTime = $sNow
Else
$iCount += 1
If $iCount = 5 Then
MsgBox(0, '', 'Run("123.exe")')
$iTs = 0
EndIf
EndIf
EndIf
EndFunc ;==>_CkTime
Func _Exit()
Exit
EndFunc ;==>_Exit afan 发表于 2022-8-15 15:50
十分感谢afan超版，运行精准，代码精炼，获益良多，学习了。
页:
[1]