MsgBox Folder.SubFolders.Count

Set SubFolder = Folder.SubFolders.Item("Program Files")

MsgBox SubFolder.Path

Set SubFolder = Folder.SubFolders("Program Files")

MsgBox SubFolder.Path

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

Set FSO = CreateObject("Scripting.FileSystemObject")

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

For Each SubFolder In Folder.SubFolders

WScript.Echo SubFolder.Name

Next

Создание нового подкаталога:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Set NewFolder = Folder.SubFolders.Add("New Folder")

Files

Синтаксис:

Files

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

MsgBox Folder.Files.Count

Set File = Folder.Files.Item("AUTOEXEC.BAT")

MsgBox File.Path

Set File = Folder.Files("AUTOEXEC.BAT")

MsgBox File.Path

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

Set FSO = CreateObject("Scripting.FileSystemObject")

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

For Each File In Folder.Files

WScript.Echo File.Name

Next

Методы

Copy

Синтаксис:

Copy(<Destination>,<Overwrite>)

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

Параметры:

• <Destination> - строка, путь (куда копировать).
• <Overwrite> - необязательный, булево (число). Заменять каталог, если он существует (True), или нет (False).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("D:\Job\Site")

Folder.Copy "D:\"

Move

Синтаксис:

Move(<Destination>)

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

Параметры:

• <Destination> - строка, путь (куда перемещать).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Folder = FSO.GetFolder("D:\Job\Site")

Folder.Move "D:\"

Delete

Синтаксис:

Delete(<Force>)

Назначение: удаляет каталог со всем содержимым.

Параметры:

• <Force> - необязательный, булево (число). Удалять каталог, если он имеет атрибут "только для чтения" (True), или нет (False).

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Folder.Delete

CreateTextFile

Синтаксис:

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

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

Параметры:

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Set TextStream = Folder.CreateTextFile("Test.txt")

Объект TextStream

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

Пример №1:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Пример №2:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Set TextStream = Folder.CreateTextFile("Test.txt")

Пример №3:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set TextStream = FSO.OpenTextFile("C:\autoexec.bat")

Пример №4:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

Set TextStream = File.OpenAsTextStream(1)

Свойства

AtEndOfLine

Синтаксис:

AtEndOfLine

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

Str = vbNullString

While Not TextStream.AtEndOfLine

Str = Str & TextStream.Read(1)

Wend

TextStream.Close

MsgBox Str

AtEndOfStream

Синтаксис:

AtEndOfStream

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

Str = vbNullString

While Not TextStream.AtEndOfStream

Str = Str & TextStream.ReadLine() & vbCrLf

Wend

TextStream.Close

MsgBox Str

Column

Синтаксис:

Column

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

Str = vbNullString

While Not TextStream.AtEndOfLine

Str = Str & TextStream.Column & ": " & TextStream.Read(1) & vbCrLf

Wend

TextStream.Close

MsgBox Str

Line

Синтаксис:

Line

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

Str = vbNullString

While Not TextStream.AtEndOfStream

Str = Str & TextStream.Line & ": " & TextStream.ReadLine() & vbCrLf

Wend

TextStream.Close

MsgBox Str

Методы

Close

Синтаксис:

Close

Назначение: закрывает открытый файл.

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

MsgBox TextStream.ReadAll()

TextStream.Close

Read

Синтаксис:

Read(<Characters>)

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

Параметры:

• <Characters> - число, количество символов, которое нужно считать.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

MsgBox TextStream.Read(13)

TextStream.Close

ReadAll

Синтаксис:

ReadAll

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

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

Описание: для больших файлов использование этого метода потребует больших ресурсов памяти.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

MsgBox TextStream.ReadAll()

TextStream.Close

ReadLine

Синтаксис:

ReadLine

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

Str = vbNullString

While Not TextStream.AtEndOfStream

Str = Str & TextStream.ReadLine() & vbCrLf

Wend

MsgBox Str

TextStream.Close

Skip

Синтаксис:

Skip(<Characters>)

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

Параметры:

• <Characters> - число, количество символов, которые нужно пропустить.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

MsgBox TextStream.Read(13)

TextStream.Skip 10

MsgBox TextStream.Read(10)

TextStream.Close

SkipLine

Синтаксис:

SkipLine

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

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

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set File = FSO.GetFile("C:\boot.ini")

Set TextStream = File.OpenAsTextStream(1)

MsgBox TextStream.ReadLine()

TextStream.SkipLine

MsgBox TextStream.ReadLine()

TextStream.Close

Write

Синтаксис:

Write(<String>)

Назначение: записывает в файл указанную строку. Символы возврата каретки и новой строки в файл не записываются.

Параметры:

• <String> - строка для записи в файл.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

TextStream.Write("Text")

TextStream.Close

WriteLine

Синтаксис:

WriteLine(<String>)

Назначение: записывает в файл указанную строку. В файл записываются символы возврата каретки и новой строки.

Параметры:

• <String> - необязательный, строка для записи в файл. Если опущен, в файл записывается пустая строка.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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

TextStream.WriteLine "Text"

TextStream.Close

WriteBlankLines

Синтаксис:

WriteBlankLines(<Lines>)

Назначение: записывает в файл указанное количество пустых строк (символы возврата каретки и новой строки).

Параметры:

• <Lines> - число, количество пустых строк, которое надо записать.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

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