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