| Вопрос: vb6. поиск файла по дате и копирование | Добавлено: 05.08.11 10:26 |
Автор вопроса:  giguka
|
|
Всем привет!
Помогите пож со следующей задачей. Есть куча файлов в папке, но нужно найти и скопировать все файлы с одинаковой датой, независимо от имени, например 05.08.2011. Спасибо! |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: giguka Вопросов: 2 Ответов: 4 |
Профиль | | #1 | Добавлено: 05.08.11 11:01 |
|
Все, разобрался. Если кому надо - вот код
' поиск самого последнего модифицированного файла Dim FileName$, LastFile$, ThisDate As Date, LastDate As Date Dim PathName$, Template$ PathName = "c:\" ' поиск в корневом каталоге C: Template = PathName & "*.*" ' все файлы FileName = Dir(Template) ' инициализация LastDate = #1/1/80# ' просмотр файлов в заданном каталоге Do While FileName <> "" ThisDate = FileDateTime(PathName & FileName) ' дата и время ' поиск макс. даты (последней) If ThisDate > LastDate Then ' нашли более поздний LastDate = ThisDate LastFile = PathName & FileName End If FileName = Dir ' выборка следующего Loop If LastFile <> "" Then 'что-то найдено MsgBox "Последний по дате файл по шаблону " & _ Template & vbCrLf & _ "Имя файла = " & LastFile & vbCrLf & _ "Дата коррекции = " & LastDate Else MsgBox "Вообще нет файлов с шаблоном " & Template End If |
||
Страница: 1 |