VBNet - Форум

Вопрос: GetFiles Добавлено: 20.04.09 16:15

Автор вопроса: Sergey

А нельзя никак в GetFiles прописать какой-нибудь TimeCreation, чтобы доставать из папки файлы только с определенным временем?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #1	Добавлено: 20.04.09 16:18
	мда)) я тебе уже давал код ты посматри на него получше там всё есть Ответить

Номер ответа: 2 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #2	Добавлено: 20.04.09 16:38
	Вот что я тебе давал: Dim data As Date = "08.04.2009" Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim g() As String = IO.Directory.GetFiles("C:\1", ".", IO.SearchOption.AllDirectories) Dim f As New System.IO.FileInfo("C:\1") Dim data2 As String For Each filename As String In g data2 = f.CreationTime f = New System.IO.FileInfo(filename) Dim x As Short = Len(f.CreationTime.ToString) data2 = data2.Substring(0, x - 9) If data2 = data Then listbox1.items.add(filename) End If Next End Sub А вот что тебе нужно сейчас: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim время As String = "18:33:03" Dim g() As String = IO.Directory.GetFiles("C:\1", ".", IO.SearchOption.AllDirectories) Dim f As New System.IO.FileInfo("C:\1") Dim data2 As String For Each filename As String In g data2 = f.CreationTime f = New System.IO.FileInfo(filename) Dim x As Short = Len(f.CreationTime.ToString) data2 = data2.Substring(11, 8) If data2 = время Then ListBox1.Items.Add(filename) End If Next End Sub Многа отличий? Ответить

Номер ответа: 3 Автор ответа: maza_____ ICQ: 9968842 Вопросов: 40 Ответов: 337	Web-сайт: vkontakte.ru/id25563295 добавляйтесь в друзья)) Профиль \| \| #3	Добавлено: 20.04.09 17:00
	maza_^ пишет: im x As Short = Len(f.CreationTime.ToString) тока вот эта строчка уже не нужна Ответить

Номер ответа: 4 Автор ответа: Sergey Вопросов: 39 Ответов: 87	Профиль \| \| #4	Добавлено: 20.04.09 17:44
	maza_^ Я имел ввиду прямо после GetFiles() написать. Твой код я понял. Только очень медленно работает, потому, как файлы просматриваются по сети и их неимоверное количество. Но все равно спасибо! Ответить

Номер ответа: 5 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #5	Добавлено: 20.04.09 22:28
	Dim TestDate = #3/4/2009# Dim Directory = New DirectoryInfo("C:\Windows\") Dim LastFiles = From F In Directory.GetFiles _ Where F.CreationTime = TestDate По-другому боюсь вряд ли сделаешь. Разве что применять какие-то другие механизмы обмена данными, индексирование и т.п. Ответить

Номер ответа: 6 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #6	Добавлено: 20.04.09 22:31
	maza_^, у тебя в коде какд минимум 3 вещи за которые я бы наказал. Dim время As String = "18:33:03" Для даты и времени используется тип DateTime а не то что ты тут написал Dim f As New System.IO.FileInfo("C:\1") Эту стрчоку убрать. Или в крайнейм случае оставить Dim f As System.IO.FileInfo Ну и далее, где идет "сравнение времени" через строки - тоже прибить и сделать нормально через DateTime. Ответить

Номер ответа: 7 Автор ответа: Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549	Web-сайт: okazani.ru Профиль \| \| #7	Добавлено: 21.04.09 01:18
	http://www.compress.ru/article.aspx?id=10643&iid=433#02 Ответить

Страница: 1 |