Ответить

http://vbnet.ru/faq/showtopic.asp?id=15  папка

Dim FSys As New FileSystemObject
Private Sub Form_Load()
Set qn = FSys.GetFolder("D:\2\attribute\")
List1.AddItem "Имя папки " & qn.Name
List1.AddItem "Полный путь " & qn.Path
List1.AddItem "Дата создания " & qn.DateCreated
List1.AddItem "Размер папки " & qn.Size
End Sub

http://vbnet.ru/faq/showtopic.asp?id=32   файл

Dim FSys As New FileSystemObject
Private Sub Form_Load()
Set qn = FSys.GetFile("D:\2\attributes\FileAtribs2.vbp")
List1.AddItem "Имя файла " & qn.Name
List1.AddItem "Полный путь " & qn.Path
List1.AddItem "Дата создания " & qn.DateCreated
List1.AddItem "Дата модификации " & qn.DateLastModified
List1.AddItem "Дата последнего доступа " & qn.DateLastAccessed
List1.AddItem "Размер файла " & qn.Size
End Sub

У меня сейчас нет возможности проверить, но попробуй в первом примере написать

List1.AddItem "Размер папки " & qn.DateLastModified

может есть такое свойство, а вообще в мсдн надо посмотреть

Ответить

Ой сорри

У меня сейчас нет возможности проверить, но попробуй в первом примере написать

List1.AddItem "дата последней модификации" & qn.DateLastModified

Ответить

все работает

огромное спасибо....

Ответить

А на счет 2 вопроса, без ListBox нельзя?

Ответить

Ответить

To <=Alex=>:

А можешь пример набросать, с использованием dir, например?

Ответить

Что-то в этом роде:

a=dir("*.txt")

Ответить

Не большое уточнение ответа Sharpа

a=dir("*.txt")

do while a<>""

a=dir() 'без параметра даст следующий файл

list1.additem a

loop

Ответить

Если тебе нужно получить список ВСЕХ  файлов по маске, то не пользуйся стандартным Басиковским DIR. Через него ты не получишь файлы с атрибутами системный и кажется еще скрытый. Пользуйся FSO. может  <=Alex=>  подскажет как через FSO

Ответить

Киньте тогда пример с использованием FSO плз.

Ответить

ФУНКЦИЯ Dir

Dir [(PathName[, Attributes])]
Dir$ [(PathName[, Attributes])]

Функция Dir служит для проверки существования каталога или файла, отвечающих заданному образцу. Функция поддерживает использование подстановочных знаков для нескольких символов(*) и одиночного символа(?) для указания нескольких файлов. Функция возвращает первое имя файла, имя которого соответствует аргументу PathName. Для получения остальных файлов, имена которых соответствуют PathName, следует повторно вызвать функцию Dir без аргументов. Последовательные вызовы функции без аргументов возможны до тех пор, пока имеются файлы или папки, соответствующие образцу первого вызова(с аргументами)
Примечание: Рекурсивные вызовы функции Dir запрещены

Возвращаемое значение

Функция возвращает данные типа String, структурно представляющего имя файла или папки, которые удовлетворяют указанному шаблону имени файла, набору атрибутов файла или метке тома на диске. Если аргумент PathName не найден, то функция Dir возвращает пустую строку(" ")
Примечание: Если после возврата функцией пустой строки, снова вызвать функцию без аргументов, то возникает ошибка времени исполнения Invalid procedure call or argument

Параметры

PathName

Необязательный аргумент. Строковое выражение, указывающее имя файла. Также может содержать имя каталога или папки и диска. При использовании имен файлов или папок, содержащих пробелы следует использовать дополнительные кавычки - Dir(""C:\Русский Проект\app.exe"") или Dir(Chr(34) & "C:\Русский Проект\app.exe" & Chr(34))
Примечание: Хотя PathName указан, как необязательный аргумент, он обязателен при первом вызове функции, а также в случаях, если задан аргумент Attributes

Attributes

Необязательный аргумент, содержащий константу или числовое выражение, описывающее атрибуты файла. Если этот аргумент опущен, возвращаются все файлы, имена которых удовлетворяют содержимому аргумента PathName. Допустимые значения Attributes

vbNormal=0

Обычное состояние файла.Используется по умолчанию

vbReadOnly=1

Атрибут только для чтения

vbHidden=2

Скрытый атрибут

vbSystem=4

Системный атрибут

vbVolume=8

Метка тома

vbDirectory=16

Каталог или папка

Примечание: Можно также указывать комбинации атрибутов путем их суммирования
Например, vbHidden+vbDirectory выводит скрытые папки

Ответить

В FSO нет выборки по маске.

Можно получить список всех файлов из директории:

Set Files = oFSO.GetFolder("c:\").Files

Перебрать все файлы:

For each File in Files

debug.print File.Name

next File

Объявления:

oFSO as New FileSystemObject

Files as Files

File as File

Ответить

По первому вопросу (дата последней модификации папки):

Через FSO можно узнать дату последней модификации папки:

oFSO.GetFolder("c:\").DateLastModified

но, мне кажется, это не то что ты имел ввиду. Эта дата на секунду-две позже, чем дата создания директории. Которую так же можно посмотреть через тот же FSO:

oFSO.GetFolder("c:\").DateCreated

Ответить

to boevik

>> но, мне кажется, это не то что ты имел ввиду. Эта дата на секунду-две позже, чем дата создания директории

Это как раз та дата , просто она меняется когда кто нить по сети заходит, проверенно!

Ответить