游戏数据更新检查

怼烎@ 2023-02-20 06:28 4阅读 0赞

类型|存放数据的文件夹（相对路径）

类型1|gameData\95vs\origin
    类型2|gameData\loude\origin
    类型3|gameData\trid\origin
    类型4|gameData\xway\origin

读取上面的数据，遍历每个类型对应的文件夹，检查最近更新的时间。并显示

Dim FSO, Folder, listFilePath, currentpath
    Set FSO = CreateObject("Scripting.FileSystemObject")
    currentpath = FSO.GetFile(Wscript.ScriptFullName).ParentFolder.Path & "\" '当前路径
    listFilePath = currentpath & "gameDataType.txt" '从此文件读要处理的目录,每行一条数据，格式为：类型|文件路径
    
    '--------------读取数据,返回二维数组-------------------
    function get_list(FilePath) 
    	On Error Resume Next 
    	Set objFSO = CreateObject("Scripting.FileSystemObject")
    	Set objTextFile = objFSO.OpenTextFile(FilePath , 1)
    	
    	Do Until objTextFile.AtEndOfStream
    		strNextLine = objTextFile.Readline
    		mylist = mylist & strNextLine & "$"
    	Loop
    	
    	Dim list ,arrLen
    	list = Split(mylist, "$") '
    	arrLen = ubound(list) - 1
    	
    	'声明动态数组
    	ReDim Preserve gameDateTypeArray(arrLen)
    
    	'遍历每条数据，切成数组
    	For i = 0 To arrLen
    		gameDateTypeArray(i) = Split(list(i), "|")
    	Next
    	
    	get_list = gameDateTypeArray
    end function 
    
    ' -------------- 遍历文件夹，返回最新文件的创建时间 --------------
    function checkdate(LogPath)
    	Dim myDate, fn '定义两个变量用于bai在遍du历时记录最新的创建时间和文件zhi名dao
    	myDate = "1990-01-01 00:00:00" '设定一个时间初始值用于后续比较
    	If FSO.FolderExists(LogPath) Then 
    	
    	    Set Folder = FSO.GetFolder(LogPath)
    	    For Each File In Folder.Files
    			' 以秒为单位。文件创建时间 - myDate 大于0，说明文件时间比较新
                If DateDiff("s", myDate, File.DateCreated) > 0 Then
                    myDate = File.DateCreated
                End If
    	    Next
    	    Set Folder = Nothing
    	    
    	End If
    
    	checkdate = myDate
    end Function
    
    
    '-------------------------- 游戏数据推送时间检查，拼接显示结果 ---------------------
    Function checkPathList(gameDateTypeArray)
    	Dim pathList, arrLen, tempArr
    	arrLen = UBound(gameDateTypeArray) ' 获取数组长度
    	ReDim Preserve resultArr(arrLen) '创建动态数组，用来装返回结果
    	
    	For i = 0 To arrLen 
    		tempArr = gameDateTypeArray(i)
    		resultArr(i) =  tempArr(0) & " ：【" & checkdate(currentpath & tempArr(1)) & "】 ：" & tempArr(1)
    	Next
    	
    	checkPathList = Join(resultArr, Chr(13)) '数组转字符串
    End Function
    
    msgbox checkPathList(get_list(listFilePath)), ,"游戏数据更新检查  jerryjin 20200623"