查找文件夹下修改时间不一致的CSV文件

rocklyman

原始数据文件夹里有多个子文件夹，每个子文件夹里的csv文件，查找出时间不一致的文件


有大神帮忙看看吗 数据.zip (166.59 KB, 下载次数: 4)

2024-1-11 08:25 上传

点击文件名下载附件

wanghan519

不知道理解的对不对：
列出每个文件夹
对每个文件夹里的文件，按修改日期分组
如果分组里只有一个
列出这单独对应一个日期的文件

ykcbf1100

应该是这意思吧。


不过，如果文件多，应该设定一个基准日期为宜。

limonet

关键字：递归+字典

limonet

Dim Dic As Object
Sub Limonet()
    Dim Arr As Variant
    Path$ = ThisWorkbook.Path & "\"
    Set Dic = CreateObject("scripting.dictionary")
    Call AllListFSO(Path)
    Arr = Filter(Dic.items(), 1, True)
    Range("A2").Resize(1, 2) = Split(Arr(0), "￥")
End Sub
Function AllListFSO(Path) As String
    Dim Fld As Object, Fd As Object, F As Object, ObjTable As Object
    Set Fld = CreateObject("scripting.filesystemobject").getfolder(Path)
    For Each F In Fld.Files
        If F.Name Like "*.csv" Then
            If Dic.exists(Int(F.DateCreated)) Then
                Dic(Int(F.DateCreated)) = 1 + Left(Dic(Int(F.DateCreated)), InStr(Dic(Int(F.DateCreated)), "￥") - 1) & "￥" & F.Path
            Else
                Dic(Int(F.DateCreated)) = 1 & "￥" & F.Path
            End If
        End If
    Next F
    For Each Fd In Fld.subfolders
        AllListFSO (Fd.Path)
    Next Fd
End Function

rocklyman

ykcbf1100 发表于 2024-1-11 09:54
应该是这意思吧。

大神，如果还需要判断文件夹内所有CSV文件的时间是否超过12小时，这个代码怎么写呢

ykcbf1100

rocklyman 发表于 2024-1-12 10:51
大神，如果还需要判断文件夹内所有CSV文件的时间是否超过12小时，这个代码怎么写呢

超过12小时的标准时间是哪个？

rocklyman

ykcbf1100 发表于 2024-1-12 10:54
超过12小时的标准时间是哪个？

最早的日期跟最晚的日期相比

ykcbf1100

rocklyman 发表于 2024-1-12 11:15
最早的日期跟最晚的日期相比

有点麻烦的。

rocklyman

ykcbf1100 发表于 2024-1-12 13:08
有点麻烦的。

非常感谢大神，辛苦您了