Найти самый старый и самый новый файл в директории.

[kibernetics]

Подскажите, как грамотно организовать поиск самого раннего файла по дате, и самого позднего. Суть такая, есть диск, на нём обновления с такого-то периода по такой-то. Папок много(в папках есть также папки), около 15-20. Нужно: найти в папках самый ранний файл, и самый поздний.

[August]

Подскажите, как грамотно организовать поиск самого раннего файла по дате, и самого позднего. Суть такая, есть диск, на нём обновления с такого-то периода по такой-то. Папок много(в папках есть также папки), около 15-20. Нужно: найти в папках самый ранний файл, и самый поздний.

А в поиск что не смотрел, первое что выдало

http://bbs.vbstreets.ru/viewtopic.php?p=6578640&sid=7460aaa574bbc417dea11c8cb8e130f8

вот и проверяй по все иерархии файлы и сравнивай...

GetFileTime(hFile, CreationTime, LastAccessTime, LastWriteTime)

[alibek]

От твоего имени что-нибудь написать что-ли, чтобы ты в следующий раз SID не оставлял?

[kibernetics]

alibek
а что такое SID ?

[alibek]

&sid=7460aaa574bbc417dea11c8cb8e130f8

[August]

&sid=7460aaa574bbc417dea11c8cb8e130f8

Ну бывает, не бейте больно

[kibernetics]

а как сделать, чтоб имена всех файлов(с путями) со всех директорий копировались в отдельный файл из которого и будет выполнятся сравнение по дате?
Т.е. как я понял нужно:
1. Собрать все пути к файлам в одном файле
2. Берем первый из списка, запоминаем его дату создания
3. Берем следующий и сравниваем его дату с предыдущим, если она сделана раньше, то оставляем её для последущего сравения.

Или есть что-то более оптимизированнее?

[alibek]

dir /o:d /a:-d /b

Берешь первую и последнюю строчку.

[kibernetics]

dir /o:d /a:-d /b

Берешь первую и последнюю строчку.

ничего не понятно.
можно ли подробнее?

[kibernetics]

как получить список каталогов и список файлов в каталоге?

[August]

Dim D As System.IO.Directory
Dim Dirs as String()=D.GetDirectories("C:\Windows")

вот тебе "рыба" по файлам, разбирайся...

[kibernetics]

Dim D As System.IO.Directory
Dim Dirs as String()=D.GetDirectories("C:\Windows")

вот тебе "рыба" по файлам, разбирайся...

а это для какого бейсика? .NET чтоли?
мне нужно для VB6.0

[kibernetics]

не мог бы ктонить написать примерчик поиска самого старого файла и самого нового по дате создания, со всех папок в директории?

[kibernetics]

а не так-то просто

[Antonariy]

Хосспади... Если ничего не делать, то и правый ботинок отличить от левого не так-то просто.

Код: Выделить всё

Sub FindOldNewFile(StartDir As Folder, OldFile As String, NewFile As String, Optional OldDate As Date, Optional NewDate As Date)
Dim dr As Scripting.Folder
Dim fl As Scripting.File
    For Each fl In StartDir.Files
        If fl.DateCreated < OldDate Or OldDate = 0 Then
            OldDate = fl.DateCreated
            OldFile = fl.Path & "\" & fl.Name
        End If
        If fl.DateCreated > NewDate Or NewDate = 0 Then
            NewDate = fl.DateCreated
            NewFile = fl.Path & "\" & fl.Name
        End If
    Next fl
    For Each dr In StartDir.SubFolders
        FindOldNewFile dr, OldFile, NewFile, OldDate, NewDate
    Next dr
End Sub

Private Sub Form_Load()
Dim fso As New Scripting.FileSystemObject
Dim nf As String, of As String
Dim od As Date, nd As Date
    FindOldNewFile fso.GetFolder("C:\GAMES"), of, nf, od, nd
    Debug.Print nf, nd
    Debug.Print of, od
End Sub

[kibernetics]

работает!
только медленно
размер папок около 4 гигов. файлов в папке около 8.000

[Konst_One]

вот заготовочка, надо доработать напильником

[kibernetics]

Antonariy
благодарствую. очень помог мне этот пример разобраться с FSO

Konst_One
скачал. сегодня поковыряю. попробую разобраться.
спасибо