Заглавная страница
Избранные статьи
Случайная статья
Познавательные статьи
Новые добавления
Обратная связь

ТОП 10 на сайте

Приготовление дезинфицирующих растворов различной концентрации

Техника нижней прямой подачи мяча.

Франко-прусская война (причины и последствия)

Организация работы процедурного кабинета

Смысловое и механическое запоминание, их место и роль в усвоении знаний

Коммуникативные барьеры и пути их преодоления

Обработка изделий медицинского назначения многократного применения

Образцы текста публицистического стиля

Четыре типа изменения баланса

Задачи с ответами для Всероссийской олимпиады по праву

Мы поможем в написании ваших работ!

ЗНАЕТЕ ЛИ ВЫ?

Влияние общества на человека

Приготовление дезинфицирующих растворов различной концентрации

Практические работы по географии для 6 класса

Организация работы процедурного кабинета

Изменения в неживой природе осенью

Уборка процедурного кабинета

Сольфеджио. Все правила по сольфеджио

Балочные системы. Определение реакций опор и моментов защемления

Главная Избранные Случайная статья Познавательные Новые добавления Обратная связь FAQ

For Each SubFolder In Folder.SubFolders

⇐ ПредыдущаяСтр 2 из 3Следующая ⇒

WScript.Echo SubFolder.Name

Next

Свойства

Attributes

Синтаксис:

Attributes

Возвращаемое значение: число, набор флагов атрибутов папки. Флаги:

0 - Normal. Обычный файл (нет атрибутов).
1 - ReadOnly. Файл только для чтения. Чтение и запись.
2 - Hidden. Скрытый. Чтение и запись.
4 - System. Системный. Чтение и запись.
8 - Volume. Диск. Только чтение.
16 - Directory. Папка или файл. Только чтение.
32 - Archive. Архивный. Чтение и запись.
1024 - Alias. Ссылка или ярлык. Только чтение.
2048 - Compressed. Сжатый. Только чтение.

Замечание: чтение и запись или только чтение, в зависимости от атрибута.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Attrs = Folder.Attributes

Set Dict = CreateObject("Scripting.Dictionary")

Dict.Add "ReadOnly", 0

Dict.Add "Hidden", 0

Dict.Add "System", 0

Dict.Add "Volume", 0

Dict.Add "Directory", 0

Dict.Add "Archive", 0

Dict.Add "Alias", 0

Dict.Add "Compressed", 0

If Attrs And 2048 Then

Dict.Item("Compressed") = 1

End If

If Attrs And 1024 Then

Dict.Item("Alias") = 1

End If

If Attrs And 32 Then

Dict.Item("Archive") = 1

End If

If Attrs And 16 Then

Dict.Item("Directory") = 1

End If

If Attrs And 8 Then

Dict.Item("Volume") = 1

End If

If Attrs And 4 Then

Dict.Item("System") = 1

End If

If Attrs And 2 Then

Dict.Item("Hidden") = 1

End If

If Attrs And 1 Then

Dict.Item("ReadOnly") = 1

End If

Str = "Атрибуты папки """ & Folder.Path & """:" & vbCrLf

For Each Attr In Dict

Str = Str & Attr & " = " & Dict.Item(Attr) & vbCrLf

Next

MsgBox Str

DateCreated

Синтаксис:

DateCreated

Возвращаемое значение: дата создания каталога.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

DateLastAccessed

Синтаксис:

DateLastAccessed

Возвращаемое значение: дата последнего доступа к каталогу.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

DateLastModified

Синтаксис:

DateLastModified

Возвращаемое значение: дата последней модификации каталога.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

Drive

Синтаксис:

Drive

Возвращаемое значение: объект "Drive" диска, на котором находится каталог.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

IsRootFolder

Синтаксис:

IsRootFolder

Возвращаемое значение: булево (число). Признак того, является ли каталог корневым.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

Name

Синтаксис:

Name

Возвращаемое значение: имя каталога.

Замечание: чтение и запись.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

ParentFolder

Синтаксис:

ParentFolder

Возвращаемое значение: объект "Folder" родительского каталога.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

Path

Синтаксис:

Path

Возвращаемое значение: полный путь к каталогу.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

ShortName

Синтаксис:

ShortName

Возвращаемое значение: короткое имя каталога в формате 8.3.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

ShortPath

Синтаксис:

ShortPath

Возвращаемое значение: короткий путь к каталогу в формате 8.3.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

Size

Синтаксис:

Size

Возвращаемое значение: размер всех файлов и подкаталогов, входящих в данный каталог, в байтах.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

Type

Синтаксис:

Type

Возвращаемое значение: тип каталога. Информация, похожая на ту, которую можно увидеть в палитре свойств каталога в проводнике.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\Program Files")

Str = vbNullString

Str = Str & "Дата создания - " & Folder.DateCreated & vbCrLf

Str = Str & "Дата последнего доступа - " & Folder.DateLastAccessed & vbCrLf

Str = Str & "Дата последней модификации - " & Folder.DateLastModified & vbCrLf

Str = Str & "Диск - " & Folder.Drive.DriveLetter & vbCrLf

Str = Str & "Это корневой каталог - " & Folder.IsRootFolder & vbCrLf

Str = Str & "Имя - " & Folder.Name & vbCrLf

Str = Str & "Родительский каталог - " & Folder.ParentFolder.Path & vbCrLf

Str = Str & "Путь - " & Folder.Path & vbCrLf

Str = Str & "Короткое имя - " & Folder.ShortName & vbCrLf

Str = Str & "Путь в формате 8.3 - " & Folder.ShortPath & vbCrLf

Str = Str & "Размер - " & Folder.Size & vbCrLf

Str = Str & "Тип каталога - " & Folder.Type & vbCrLf

MsgBox Str

SubFolders

Синтаксис:

SubFolders

Возвращаемое значение: объект-коллекция "Folders", содержащая все подкаталоги данного каталога, включая скрытые и системные.

Замечание: только чтение.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("C:\")

⇐ Предыдущая 123 Следующая ⇒

Читайте также:

Техника прыжка в длину с разбега

Тактические действия в защите

История Олимпийских игр

История развития права интеллектуальной собственности

Последнее изменение этой страницы: 2016-07-11; просмотров: 268; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.129.22.135 (0.1 с.)