![]() |
![]() ![]() v.5.2011.12.30 |
Бесплатные домены для портфолио и электронных визиток |
|
Visual Basic 5.0/6.0 - Файлы и папкиВсе примеры / Файлы и папкиВыбор файлов по дате создания
Автор: Алексей Немиро | добавлено: 06.03.2010, 11:02 | просмотров: 2164 (1+) | комментариев: 0 | рейтинг:
Пример показывает, как можно выбрать файлы из определенного каталога по определенной дате создания файлов.
![]() ИнструкцииДля проверки работы примера, разместите на форме элементы DriveListBox, DirListBox, FileListBox, ListBox, CommandButton, два элемента TextBox.КодOption Explicit 'Автор: Немиро Алексей, 21.11.2007 'Aleksey$Nemiro.Ru admin@kbyte.ru 'http://aleksey.nemiro.ru http://kbyte.ru Private Sub Command1_Click() If Not IsDate(Text2) Then MsgBox "Дата должна быть в формате DD.MM.YYYY!", vbCritical: Exit Sub Dim d As Date Dim i As Long, ic As Long ic = File1.ListCount - 1 d = CDate(Text2) List1.Clear For i = 0 To ic File1.ListIndex = i If DateDiff("y", FileDateTime(File1.Path & "\" & File1.FileName), d) = 0 Then List1.AddItem (File1.FileName) End If Next i End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive File1.Path = Dir1.Path End Sub
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах. Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все примеры этого автора (всего: 286)
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Все похожие примеры (всего: 75)
Добавлять комментарии могут только зарегистрированные пользователи сайта. Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации ![]() Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь. Нет комментариев... |
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
|
|