Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic 5.0/6.0 - Файлы и папки

Все примеры / Файлы и папки

Выбор файлов по дате создания

Автор: Алексей Немиро | добавлено: 06.03.2010, 11:02 | просмотров: 2084 (2+) | комментариев: 0 | рейтинг: *x1
Пример показывает, как можно выбрать файлы из определенного каталога по определенной дате создания файлов.

Инструкции

Для проверки работы примера, разместите на форме элементы 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
Файлы filedate.zip (3,13 Кб)
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики