добрый день)
вопрос такой:
есть код, в котором сканируется папка и имена найденных в ней текстовых файлов добавляются в ListBox, что нужно добавить в код чтобы выводилась вместе с именем и дата создания файла? 
вот код:


Это сообщение отредактировал(а) Martisha - 28.11.2008, 08:21

Martisha, в данном случае ты делаешь велосипед на мой взгляд. в VCL есть компонент FileListBox. 
Его свойство
Drive - определяет диск 
Directory - определяет каталог - по умолчанию корневой
Mask -  определяет фильтрацию (в твоем случае - *.txt) 

дата создания хранится в SearchRec.FindData.ftCreationTime, передавай еще одним параметром в EditFile()

Это сообщение отредактировал(а) AntonN - 28.11.2008, 09:01

у структуры TSearchRec помимо значения name есть и date, можно его через datetostr() передавать в listbox, например функцие EditFile() передавать еще одну переменную
но все же, Martisha, уверенна, что именно это надо?

подробнее..если можно  



ятак делала, но вылазят ошибки(

Добавлено через 45 секунд

да, это очень нужно

Добавлено через 5 минут и 6 секунд

на date ругается

видмо память меня подводит. в справке по TSearchRec все довольно хорошо описано, есть там атрибут хранящий дату и время, в переменно, если не путаю, типа datetime, ее нужно отдельно в строку переводить, может по этому ошибки?

может..


сейчас почитаю)

о FileListBox кстати тоже   

  

Там нету такого поля date


FindData (Windows only) contains additional information such as the file creation time, last access time, and both the long and short file names.

Это сообщение отредактировал(а) Christoph - 28.11.2008, 12:14

Дату и время хранит поле Time. 

toTHandle: спасибо
все таки, пора по новой инсталить делфи, а то как-то неловко, в самом деле...

точно)

THandle, и что с этим делать?  

Добавлено через 2 минуты и 12 секунд
mrbrooks, 

ну с этим понятно, а вот

это не совсем ясно..в справке очень мало написано

конвертировать в нужный формат 

FindData хранит время создания файла. Валер ты читал мой пост выше? Хотя написано что в Time хранться тоже время создания, надо проверить

Это сообщение отредактировал(а) Christoph - 28.11.2008, 13:29

я пробовала, только в результате выводится число имесяц правильно, а дальше какой то набор цифр

Добавлено через 1 минуту и 26 секунд

а с FindData сложнее, не совсем понятно как с ним работать

Добавлено через 2 минуты и 5 секунд
и всправке про FindData ненаписано практически ничего

с Time у меня выводит набор чисел...только через FindData нада, если получится выложу ....

Martisha, надо изменить формат вывода даты и времени, делфи под рукой нет, код привести не могу, но почитать об этом можно в справке по типу timedate (или datetime, где же моя память)

Стоп. Что вам тут надо? Вывести дату файла? Так есть же функция FileDateToDateTime например:



Это сообщение отредактировал(а) THandle - 28.11.2008, 14:24

вот такой вот код нашла, осталось только добавить в ListBox, чтоб рядом с названием файла отображалось:


Добавлено через 5 минут и 13 секунд
THandle, мне нужнои дату и времясоздания папки получить и чтоб все это выводилось в ListBox, т.е. там должно выводиться название файла и имя..

Добавлено через 13 минут и 48 секунд

так только число выводит, а время как вывести?

Martisha, нашли мой старый код  

P.S.
Поправил

Это сообщение отредактировал(а) Rrader - 1.12.2008, 16:27

было бы неплохо, самой не получается разобраться(

Добавлено через 2 минуты и 21 секунду

ага))

Добавлено через 12 минут и 44 секунды
вернее ее кто то ужеизменил и я уже нашла его)

Rrader, помоги мне разобраться в своейпроцедуре, пока ничего не пойму

Мой код медленее 
Чтоб показать что мой код тупит допишу еще вот что

  


Это сообщение отредактировал(а) Christoph - 28.11.2008, 21:54

Christoph, твой код будет не слабо тупить на папках с большим количеством файлов при обновлении ListBox'а. Тут нужен Begin(End)Update.

Где try..finally?

Почему оформления такое корявое?))

Это кто тебе сказал Rrader?    

Про форматы даты и времени.

Christoph, ну а ты возьми попробуй свой код и код Rrader'а на папке Windows допустим. Там файлов много. Вот и посмотри на ListBox.

Насчет оформления: разве хорошо оформлено?
Почитай допустим это:

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=802

Насчет try..finally - должно присутствовать при всех освобождениях ресурсов в том числе и FindClose.

А вообще да, я Rrader'а поддерживаю   

А по-моему try..finally должно присутствовать там, где хотя бы теоритически может возникнуть ошибка. А какая ошибка может возникнуть в приведенном коде? Только Out of memory при создании SR. Но ведь при этом SR и не создасться. try..finally тут лишнее, а вот Begin(End)Update действительно нужен 

И оформление - это уже дело каждого. Строгих стандартов в оформлении нет. По мне так код сволне читаем.

Это сообщение отредактировал(а) Poseidon - 28.11.2008, 16:59

Поручишся? Поддерживаю THandle.

Добавлено через 44 секунды

...за исключением случая, когда работаешь в команде или пишешь для других, как сейчас...

Christoph, очень странно, при использовании вашего кода выходит совсем не та дата..


Rrader, пробовала использовать ваш старый код, но почему то в ListBox ничего не добавляется..
что означает эта строка? вернее куда добавляется строка S?

и эта еще: 

Это сообщение отредактировал(а) Martisha - 1.12.2008, 09:04

почему то когда делаю так:


после выполнения

идет сразу в конецпроцедуры..
а если я комментю это выражение, то выводит в ListBox название папки а не файла и дату странную..год вообще нет тот((
почему так?

попробуй не комментить, а поставить тело цикла, после repeat первой строчкой

?

так ошибки вылазят


а так, выдает дату..только она почему то одинаковая для всех записей и совсем даже не та(

Добавлено через 3 минуты и 29 секунд
мне вообще даже не дата важнее а время создания файла, как нибудь возможно время вытащить? часы, минуты там...это важно, как не знаю( дату то я сама могу, а вот часы и минуты не знаю как..  

в справке по типу TDateTime опмано как получать дату, а как время

Проверьте и сравните эту дату с той, что в свойствах файла в проводнике. Должно совпадать.




Это сообщение отредактировал(а) Rrader - 1.12.2008, 14:17

Rrader, так выводится текущее время, а не время создания папки   

дату я так вывела, причем она выводится отдельно в другом ListBox-е, что удобнее для меня в дальнейшей работе..вот со временем только не понятно..  
вот вывод даты создания папки:


может что нибудь в моем коде добавить возможно для вывода времени? 

DateToStr заменить на TimeToStr

  точно!!!
пасибки всем)))
вопрос закрыт!    

Почему летнее время не интуитивно.

Добавлено @ 15:20

Неа, в первом варианте (как и Christoph) забыл из UTC перевести в местное время.

Добавлено @ 15:24


1. Всё же используйте правильно try/finally:


2. SearchRec.Time - это время в формате DOS. Оно имеет низкую точность. Если вы сравните вывод своей программы с тем, что показывает Проводник - то увидите разницу в несколько секунд по времени. Лучше бы вам использовать метку времени записанную в SearchRec.FindData.ftCreationTime - это точное время. 


3. Кроме того, TSearchRec.Time эквивалентно TSearchRec.FindData.ftLastWriteTime - т.е. последней дате модификации, а вовсе не времени создания файла.

Это сообщение отредактировал(а) CodeMonkey - 1.12.2008, 15:52

CodeMonkey, спасибо, учту   

и все равно, так выдается не то время(..в принципе разница не существенна, так что пойдет и так!   

Блин, точно, и с Folder ошибся 

А время создания часом не перепутали с временем последней модификации? SearchRec.Time - содержит именно время последней модификации и вы сказали, что этот вариант вас устроил. Но в самом вопросе вы просили время создания, поэтому вам написали с SearchRec.FindData.ftCreationTime - временем создания. 
Если всё же нужно время последней модификации, то берите ftLastWriteTime вместо ftCreationTime (ещё есть ftLastAccessTime - время последнего доступа).

Добавлено через 1 минуту и 12 секунд

Хорошо бы тогда показать, какое время выдаётся, какое вы ожидаете увидеть и почему вы ожидаете увидеть это время (где вы его узнали).

CodeMonkey, почему то выдается время одинаковое для всех текстовых фалов..но ведь такого же не может быть!


наверное я ошиблась в формулировке, но то, что получилось меня устраивает..

обязательно попробую)

Добавлено через 6 минут и 7 секунд
CodeMonkey, 

действительно подошло))   

Уважаемые форумчане помогите чайнику организовать поиск файлов на диске. У меня не получается не один промер который здесь указан. Программа ищет на корне диска, а в каталоги и подкаталоги заходить нехочет помогите чайнику. У меня цель написать программу которая бы отлавиливала расширение Tmp и удаляла его. Помогите пожалуйста.

Chinese, http://forum.vingrad.ru/sources/topic-205111.html

Ну и в DRKB примеры должны быть.

В том то и дело что если ты говоришь *.* То поиск идёт везде, а если ставишь вместо звёздочек скажем  *.TXT то он ищет только накорню,  в каталоги и подкаталоги не глядит.

Ну разумеется: расширения-то у каталогов нет. Под такую маску они не подходят.

Chinese, вот что то типа такого, с проверкой на расширение. Только соответственно сделай вместо добавления в список удаление файла.

Я не понял, где здесь проверяется расширение. Пожалуйста обясните как его проверять. пробывал сравнивать rSearchRec.Name с *.tmp, но он ничего не выдавал. Помогите.

http://forum.vingrad.ru/faq/topic-212851.html