ТОП 10:

For Each SubFolder In Folder.SubFolders



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:\")







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

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