For Each Drive In FSO.Drives

Объект FileSystemObject

Содержание:

Создание объекта

Свойства

Drives

Методы

CreateFolder

CopyFile

CopyFolder

MoveFile

MoveFolder

DeleteFile

DeleteFolder

BuildPath

GetAbsolutePathName

GetBaseName

GetExtensionName

GetFileName

GetParentFolderName

GetDriveName

DriveExists

FileExists

FolderExists

GetDrive

GetFile

GetFolder

GetSpecialFolder

GetTempName

CreateTextFile

OpenTextFile

GetStandardStream

GetFileVersion

Объект Drive

Создание объекта

Свойства

AvailableSpace

DriveLetter

DriveType

FileSystem

FreeSpace

IsReady

Path

RootFolder

SerialNumber

ShareName

TotalSize

VolumeName

Объект File

Создание объекта

Свойства

Attributes

DateCreated

DateLastAccessed

DateLastModified

Drive

Name

ParentFolder

Path

ShortName

ShortPath

Size

Type

Методы

Copy

Move

Delete

OpenAsTextStream

Объект Folder

Создание объекта

Свойства

Attributes

DateCreated

DateLastAccessed

DateLastModified

Drive

IsRootFolder

Name

ParentFolder

Path

ShortName

ShortPath

Size

Type

SubFolders

Files

Методы

Copy

Move

Delete

CreateTextFile

Объект TextStream

Создание объекта

Свойства

AtEndOfLine

AtEndOfStream

Column

Line

Методы

Close

Read

ReadAll

ReadLine

Skip

SkipLine

Write

WriteLine

WriteBlankLines

Создание объекта

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Свойства

Drives

Синтаксис:

Drives

Возвращаемое значение: объект-коллекция "Drives".

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

For Each Drive In FSO.Drives

MsgBox Drive.DriveLetter

Next

Другой пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Drives = FSO.Drives

MsgBox "Всего дисков - " & Drives.Count

Set DriveC = Drives.Item("C:")

MsgBox "Диск C: имеет метку " & DriveC.VolumeName

Методы

CreateFolder

Синтаксис:

CreateFolder(<Foldername>)

Назначение: создаёт каталог с указанным именем.

Параметры:

• <Foldername> - строка, путь к каталогу. Если такой каталог уже существует, произойдёт ошибка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CreateFolder "C:\New Folder"

CopyFile

Синтаксис:

CopyFile(<Source>,<Destination>,<Overwrite>)

Назначение: копирует один или несколько файлов.

Параметры:

• <Source> - строка, путь к источнику копирования (что копировать). В последнем компоненте параметра можно использовать групповые символы "*" и "?".
• <Destination> - строка, путь назначения (куда копировать).
• <Overwrite> - необязательный, булево (число). Перезаписывать существующие файлы, или нет. По умолчанию - True (перезаписывать). Если файл, который нужно перезаписать, имеет атрибут read-only, возникнет ошибка (независимо от установки этого параметра).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFile "C:\*.bat", "A:\", 0

CopyFolder

Синтаксис:

CopyFolder(<Source>,<Destination>,<Overwrite>)

Назначение: рекурсивно копирует каталог.

Параметры:

• <Source> - строка, путь к источнику копирования (что копировать). В последнем компоненте параметра можно использовать групповые символы "*" и "?".
• <Destination> - строка, путь назначения (куда копировать).
• <Overwrite> - необязательный, булево (число). Перезаписывать существующие файлы, или нет. По умолчанию - True (перезаписывать). Если файл, который нужно перезаписать, имеет атрибут read-only, возникнет ошибка (независимо от установки этого параметра).

Описание: процесс копирования прерывается после первой возникшей ошибки.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.CopyFolder "C:\NewFolder\*", "C:\TEMP\", 0

MoveFile

Синтаксис:

MoveFile(<Source>,<Destination>)

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

Параметры:

• <Source> - строка, путь к источнику копирования (что копировать). В последнем компоненте параметра можно использовать групповые символы "*" и "?".
• <Destination> - строка, путь назначения (куда копировать).

Описание: процесс перемещения прерывается после первой возникшей ошибки. Если перемещаемый файл уже существует или является папкой в Destination, возникнет ошибка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.MoveFile "C:\*.txt", "A:\"

MoveFolder

Синтаксис:

MoveFolder(<Source>,<Destination>)

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

Параметры:

• <Source> - строка, путь к источнику копирования (что копировать). В последнем компоненте параметра можно использовать групповые символы "*" и "?".
• <Destination> - строка, путь назначения (куда копировать).

Описание: процесс перемещения прерывается после первой возникшей ошибки. Если перемещаемый каталог уже существует или является файлом в Destination, возникнет ошибка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.MoveFolder "C:\New Folde*", "C:\TEMP\"

DeleteFile

Синтаксис:

DeleteFile(<Filespec>,<Force>)

Назначение: удаляет указанный файл.

Параметры:

• <Filespec> - строка, путь к файлу. В последнем компоненте параметра можно использовать групповые символы "*" и "?".
• <Force> - необязательный, булево (число). Определяет, удалять или нет файлы с атрибутом read-only. По умолчанию - False (не удалять).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFile "A:\*", 0

DeleteFolder

Синтаксис:

DeleteFolder(<Folderspec>,<Force>)

Назначение: удаляет указанную папку.

Параметры:

• <Folderspec> - строка, путь к папке. В последнем компоненте параметра можно использовать групповые символы "*" и "?".
• <Force> - необязательный, булево (число). Определяет, удалять или нет файлы с атрибутом read-only. По умолчанию - False (не удалять).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

FSO.DeleteFolder "A:\*", 0

BuildPath

Синтаксис:

BuildPath(<Path>,<Name>)

Назначение: добавляет к заданному пути новое имя. Если необходимо, вставляется "\".

Параметры:

• <Path> - строка, путь.
• <Name> - строка, имя файла.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Path = FSO.BuildPath("C:\Program Files", "New Folder")

MsgBox Path

Path = FSO.BuildPath("C:\Program Files\", "New Folder")

MsgBox Path

GetAbsolutePathName

Синтаксис:

GetAbsolutePathName(<Pathspec>)

Назначение: возвращает полный путь для заданного относительного пути (из текущего каталога).

Параметры:

• <Pathspec> - строка, относительный путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Path = FSO.GetAbsolutePathName("..")

MsgBox Path

Path = FSO.GetAbsolutePathName(".\aaa\bbb\ccc.txt")

MsgBox Path

GetBaseName

Синтаксис:

GetBaseName(<Path>)

Назначение: возвращает имя (без расширения) последнего компонента в заданном пути.

Параметры:

• <Path> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Name = FSO.GetBaseName("Q:\aaa\bred\MySuperFile.txt")

MsgBox Name

GetExtensionName

Синтаксис:

GetExtensionName(<Path>)

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

Параметры:

• <Path> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Name = FSO.GetExtensionName("Q:\aaa\bred\MySuperFile.txt")

MsgBox Name

GetFileName

Синтаксис:

GetFileName(<Path>)

Назначение: возвращает имя (с расширением) последнего компонента в заданном пути.

Параметры:

• <Path> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Name = FSO.GetFileName("Q:\aaa\bred\MySuperFile.txt")

MsgBox Name

GetParentFolderName

Синтаксис:

GetParentFolderName(<Path>)

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

Параметры:

• <Path> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Name = FSO.GetParentFolderName("Q:\aaa\bred\MySuperFile.txt")

MsgBox Name

GetDriveName

Синтаксис:

GetDriveName(<Path>)

Назначение: возвращает имя диска в заданном пути.

Параметры:

• <Path> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Name = FSO.GetDriveName("X:\aaa\bred\MySuperFile.txt")

MsgBox Name

DriveExists

Синтаксис:

DriveExists(<Drivespec>)

Назначение: возвращает True, если указанный диск сущесвтвует, и False в противном случае.

Параметры:

• <Drivespec> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Disk = "A:"

MsgBox "Диск " & Disk & " существует = " & FSO.DriveExists(Disk)

Disk = "Q:"

MsgBox "Диск " & Disk & " существует = " & FSO.DriveExists(Disk)

FileExists

Синтаксис:

FileExists(<Filespec>)

Назначение: возвращает True, если указанный файл сущесвтвует, и False в противном случае.

Параметры:

• <Filespec> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

File = "C:\Program Files\1Cv77\BIN\1cv7s.exe"

MsgBox "Файл " & File & " существует = " & FSO.FileExists(File)

File = "С:\1.txt"

MsgBox "Файл " & File & " существует = " & FSO.FileExists(File)

FolderExists

Синтаксис:

FolderExists(<Folderspec>)

Назначение: возвращает True, если указанный каталог сущесвтвует, и False в противном случае.

Параметры:

• <Folderspec> - строка, путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Folder = "C:\Program Files"

MsgBox "Каталог " & Folder & " существует = " & FSO.FolderExists(Folder)

Folder = "С:\ProgramFiles"

MsgBox "Каталог " & Folder & " существует = " & FSO.FolderExists(Folder)

GetDrive

Синтаксис:

GetDrive(<Folderspec>)

Назначение: возвращает объект "Drive" по указанному имени или пути.

Параметры:

• <Folderspec> - строка, имя диска или путь к корневому каталогу диска, возможно UNC-путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Drive = FSO.GetDrive("C:")

MsgBox Drive.FileSystem

Set Drive = FSO.GetDrive("C:\")

MsgBox Drive.FileSystem

Set Drive = FSO.GetDrive("\\Server\1C_Predpr")

MsgBox Drive.FileSystem

GetFile

Синтаксис:

GetFile(<Filespec>)

Назначение: возвращает объект "File" по указанному пути.

Параметры:

• <Filespec> - строка, путь.

Описание: если файл не существует, произойдёт ошибка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\autoexec.bat")

MsgBox File.Size

GetFolder

Синтаксис:

GetFolder(<Folderspec>)

Назначение: возвращает объект "Folder" по указанному пути.

Параметры:

• <Folderspec> - строка, путь.

Описание: если каталог не существует, произойдёт ошибка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

MsgBox Folder.ShortName

GetSpecialFolder

Синтаксис:

GetSpecialFolder(<Folderspec>)

Назначение: возвращает объект "Folder" для некоторых специальных папок Windows.

Параметры:

• <Folderspec> - число, определяет специальную папку. Возможные значения:
• 0 - Каталог Windows.
• 1 - Системный каталог библиотек и драйверов.
• 2 - Каталог временных файлов, путь к которому хранится в переменной среды "TMP".

Описание: если каталог не существует, произойдёт ошибка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

For i=0 To 2

Set Folder = FSO.GetSpecialFolder(i)

MsgBox Folder.Path

Next

GetTempName

Синтаксис:

GetTempName()

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

Параметры: нет.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

MsgBox FSO.GetTempName()

CreateTextFile

Синтаксис:

CreateTextFile(<Filename>,<Overwrite>,<Unicode>)

Назначение: создаёт новый текстовый файл и возвращает объект "TextStream", указывающий на него.

Параметры:

• <Filename> - строка, путь к файлу.
• <Overwrite> - необязательный, булево (число). Перезаписывать файл, если он существует (True), или нет (False). По умолчанию - False. Если указано False и файл существует - произойдёт ошибка.
• <Unicode> - необязательный, булево (число). Файл в формате Unicode (True), или ASCII (False). По умолчанию - False.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set TextStream = FSO.CreateTextFile("C:\Test.txt")

OpenTextFile

Синтаксис:

OpenTextFile(<Filename>,<Iomode>,<Create>,<Format>)

Назначение: открывает текстовый файл и возвращает объект "TextStream", указывающий на него.

Параметры:

• <Filename> - строка, путь к файлу.
• <Iomode> - необязательный, число. Возможные значения:
• 1 - Открыть файл только для чтения.
• 2 - Открыть файл для записи. Если файл уже существовал, его содержимое теряется.
• 8 - Открыть файл для добавления. Если файл уже существовал, информация будет дописываться в конец файла.
• <Create> - необязательный, булево (число). Создавать файл, если он не существует (True), или нет (False). По умолчанию - False.
• <Format> - необязательный, число. Возможные значения:
• -2 - Открыть файл в формате, используемом системой по умолчанию.
• -1 - Открыть файл в формате Unicode.
• 0 - Открыть файл в формате ASCII (по умолчанию).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set TextStream = FSO.OpenTextFile("C:\Test.txt", 2, True)

GetStandardStream

Синтаксис:

GetStandardStream(<StandardStreamType>,<Unicode>)

Назначение: возвращает объект "TextStream", ассоциированный с потоком "StdIn", "StdOut" или "StdErr".

Параметры:

• <StandardStreamType> - число, определяет поток. Возможные значения:
• 0 - StdIn.
• 1 - StdOut.
• 2 - StdErr.
• <Unicode> - необязательный, булево (число). True - формат Unicode, False - ASCII. По умолчанию - False.

Описание: метод применим при запуске административного скрипта в консоли с помощью CScript.exe.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set stdout = fso.GetStandardStream(1)

stdout.WriteLine "Hello, VBScript."

GetFileVersion

Синтаксис:

GetFileVersion(<Path>)

Назначение: возвращает номер версии исполняемого файла (строка).

Параметры:

• <Path> - строка, путь к файлу.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

MsgBox FSO.GetFileVersion("C:\Program Files\1Cv77\BIN\1cv7s.exe")

MsgBox FSO.GetFileVersion("C:\Program Files\1cv8\bin\1cv8.exe")

Объект Drive

Создание объекта

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.Drives.Item("C:")

Свойства

AvailableSpace

Синтаксис:

AvailableSpace

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

DriveLetter

Синтаксис:

DriveLetter

Возвращаемое значение: строка - буква, ассоциированная с ресурсом.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

DriveType

Синтаксис:

DriveType

Возвращаемое значение: число - определяет тип ресурса. Возможные значения:

• 0 - неизвестное устройство.
• 1 - устройство со сменным носителем.
• 2 - жёсткий диск.
• 3 - сетевой диск.
• 4 - CD-ROM.
• 5 - RAM-диск.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

FileSystem

Синтаксис:

FileSystem

Возвращаемое значение: cтрока - тип файловой системы (FAT, NTFS или CDFS).

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

FreeSpace

Синтаксис:

FreeSpace

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

IsReady

Синтаксис:

IsReady

Возвращаемое значение: булево (число) - True, если устройство готово, иначе - False. Актуально для устройства со сменным носителем или CD-ROM.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

Path

Синтаксис:

Path

Возвращаемое значение: строка - путь к диску (например, "C:", но не "C:\").

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

RootFolder

Синтаксис:

RootFolder

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

SerialNumber

Синтаксис:

SerialNumber

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

ShareName

Синтаксис:

ShareName

Возвращаемое значение: строка - сетевое имя диска, если диск сетевой (иначе - пустая строка).

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

TotalSize

Синтаксис:

TotalSize

Возвращаемое значение: число - общий объём диска в байтах.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

VolumeName

Синтаксис:

VolumeName

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set DriveC = FSO.GetDrive("C:")

Str = "Диск C:" & vbCrLf & _

"AvailableSpace: " & DriveC.AvailableSpace & vbCrLf & _

"DriveLetter: " & DriveC.DriveLetter & vbCrLf & _

"DriveType: " & DriveC.DriveType & vbCrLf & _

"FileSystem: " & DriveC.FileSystem & vbCrLf & _

"FreeSpace: " & DriveC.FreeSpace & vbCrLf & _

"IsReady: " & DriveC.IsReady & vbCrLf & _

"Path: " & DriveC.Path & vbCrLf & _

"RootFolder (Path): " & DriveC.RootFolder.Path & vbCrLf & _

"SerialNumber: " & DriveC.SerialNumber & vbCrLf & _

"ShareName: " & DriveC.ShareName & vbCrLf & _

"TotalSize: " & DriveC.TotalSize & vbCrLf & _

"VolumeName: " & DriveC.VolumeName

MsgBox Str

Объект File

Создание объекта

Пример №1:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\autoexec.bat")

Пример №2:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Set File = Folder.Files("autoexec.bat")

Пример №3:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Set File = Folder.Files.Item("autoexec.bat")

Свойства

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 File = FSO.GetFile("C:\autoexec.bat")

Attrs = File.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 = "Атрибуты файла """ & File.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 File = FSO.GetFile("C:\autoexec.bat")

Str = vbNullString

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

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

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

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

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

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

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

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

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

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

Str = Str & "Тип файла - " & File.Type

MsgBox Str

DateLastAccessed

Синтаксис:

DateLastAccessed

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\autoexec.bat")

Str = vbNullString

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

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

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

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

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

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

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

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

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

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

Str = Str & "Тип файла - " & File.Type

MsgBox Str

DateLastModified

Синтаксис:

DateLastModified

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\autoexec.bat")

Str = vbNullString

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

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

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

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

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

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

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

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

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

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

Str = Str & "Тип файла - " & File.Type

MsgBox Str

Drive

Синтаксис:

Drive

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\autoexec.bat")

Str = vbNullString

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

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

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

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

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

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

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

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

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

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

Str = Str & "Тип файла - " & File.Type

MsgBox Str

Name

Синтаксис:

Name

Возвращаемое значение: имя файла.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\autoexec.bat")

Str = vbNullString

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

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

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

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