admin管理员组文章数量:1516870
类型|存放数据的文件夹（相对路径）
类型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 ErrorResumeNextSet objFSO = CreateObject("Scripting.FileSystemObject")Set objTextFile = objFSO.OpenTextFile(FilePath ,1)DoUntil objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
mylist = mylist & strNextLine &"$"LoopDim list ,arrLen
list = Split(mylist,"$")'
arrLen =ubound(list)-1'声明动态数组ReDim Preserve gameDateTypeArray(arrLen)'遍历每条数据，切成数组For i =0To arrLen
gameDateTypeArray(i)= Split(list(i), "|")Next
get_list = gameDateTypeArray
endfunction' -------------- 遍历文件夹，返回最新文件的创建时间 --------------function checkdate(LogPath)Dim myDate, fn '定义两个变量用于bai在遍du历时记录最新的创建时间和文件zhi名dao
myDate ="1990-01-01 00:00:00"'设定一个时间初始值用于后续比较If FSO.FolderExists(LogPath)ThenSet Folder = FSO.GetFolder(LogPath)For Each File In Folder.Files' 以秒为单位。文件创建时间 - myDate 大于0，说明文件时间比较新If DateDiff("s", myDate, File.DateCreated)>0Then
myDate = File.DateCreated
EndIfNextSet Folder =NothingEndIf
checkdate = myDate
endFunction'-------------------------- 游戏数据推送时间检查，拼接显示结果 ---------------------Function checkPathList(gameDateTypeArray)Dim pathList, arrLen, tempArr
arrLen =UBound(gameDateTypeArray)' 获取数组长度ReDim Preserve resultArr(arrLen)'创建动态数组，用来装返回结果For i =0To arrLen
tempArr = gameDateTypeArray(i)
resultArr(i)= tempArr(0)& " ：【" & checkdate(currentpath & tempArr(1)) & "】 ：" & tempArr(1)Next
checkPathList = Join(resultArr,Chr(13))'数组转字符串EndFunction
msgbox checkPathList(get_list(listFilePath)),,"游戏数据更新检查 jerryjin 20200623"
版权声明：本文标题：Adobe Flash Player的最新更新，游戏玩得更爽！ 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.betaflare.com/web/1773221546a3277016.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论