Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам