Средства разработки приложений


Введение в объектную модель FSO - часть 3


Например: Dim fso As New FileSystemObject, fil As File Set fil = fso.GetFile("c:\test.txt")

Обратите внимание, однако, что вы не должны использовать методы Get для только что созданных объектов, так как функции создания объектов сразу возвращают вызывающей программе ссылку на созданный объект. Например, если вы создаете новую папку, используя метод CreateFolder, вам не нужно использовать метод GetFolder, чтобы обратиться к ее свойствам (таким как Name, Path, Size и т.д.), так как функция CreateFolder сразу возвращает ссылку на созданный объект. Чтобы получить доступ к свойствам созданной папки, достаточно воспользоваться соответствующей переменной (в данном случае fldr): Private Sub Create_Folder() Dim fso As New FileSystemObject, fldr As Folder Set fldr = fso.CreateFolder("C:\MyTest") MsgBox "Created folder: " & fldr.Name End Sub

Обращение к свойствам объекта

Получив доступ к объекту с помощью методов Get (или создав его), вы можете обращаться к его свойствам. Например, сначала вы получаете доступ к корневому каталогу диска c: методом GetFolder (так как папка уже существует): Set fldr = fso.GetFolder("c:\")

После этого вы можете проверить его свойство Name: Debug.Print "Folder name is: "; fldr.Name

Если Вы хотите узнать дату и время последнего изменения файла, используйте следующий синтаксис: Dim fso As New FileSystemObject, fil As File 'Получаем объект File, чтобы сделать запрос Set fil = fso.GetFile("C:\detlog.txt") 'Печатаем информацию Debug.Print "File last modified: "; fil.DateLastModified


Начало  Назад  Вперед



Книжный магазин