|
В данном примере вы можете узнать о том, как
можно получить сведения о файле с использованием
FileSystemObject. Для использования этого примера
установите ссылку на Microsoft Scripting Runtime
через меню Project | References.
И не забудьте расположить на форме элемент ListBox!
В этом примере вы можете узнать: Имя файла,
Полный путь, Дата создания, Дата модификации,
Дата последнего доступа, Размер файла
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
|