В сетевой папке лежит много файлов, нужно быстро построить список из их имен, размеров и дат изменения. FileInfo выдает правильную дату (которая отображается в проводнике), но работает чудовищно медленно. API работают гораздо быстрее:
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim ft As FILETIME, lt As FILETIME, st As SYSTEMTIME
For Each s In My.Computer.FileSystem.GetFiles(mFilesFolder)
lFileHnd = CreateFile(s, GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, 0, 0)
lo = GetFileSize(lFileHnd, ho)
lRet = GetFileTime(lFileHnd, 0, 0, ft)
lRet = FileTimeToLocalFileTime(ft, lt)
lRet = FileTimeToSystemTime(lt, st)
CloseHandle(lFileHnd)
Next
но выдают дату на час меньше для большинства файлов.
Самый быстрый способ это dir *.* /a /-c с выводом в текст, который потом раздирается на куски, 14тыс файлов выплевывает за секунду. Но тоже выдает неправильную дату.
Собственно, вопрос: как быстро получить список с правильной датой?
