Реферат: FSO – тяжелая артиллерия VB6

If fldr.IsRootFolder = True Then

Debug.Print "This folder is a root folder."

Else

Debug.Print "This folder isn't a root folder."

End If

' Создаемновуюпапкуобъектом FileSystemObject

fso.CreateFolder ("c:Bogus")

Debug.Print "Created folder C:Bogus"

' Печатаем основное имя папки

Debug.Print "Basename = " & fso.GetBaseName("c:bogus")

' Удаляем недавно созданную папку

fso.DeleteFolder ("c:Bogus")

Debug.Print "Deleted folder C:Bogus"

End Sub

Работа с Files (Файлами)

Вы можете работать с файлами в Visual Basic, используя новые объектно-ориентированные объекты FSO типа Copy, Delete, Move и OpenAsTextStream, так же, как и более старые существующие функции типа Open, Close, FileCopy, GetAttr, и т.д. Обратите внимание, что Вы можете перемещать, копировать или удалять файлы независимо от типа файла. Имеются две главных категории манипулирования файлами:

Создание, добавление или удаления данных, или чтение файлов;

Перемещение, копирование и удаление файлов;

Создание файлов и добавления данных с помощью File System Objects

Имеются три способа создать последовательный текстовый файл (иногда упоминаемый как "текстовый поток"). Один путь состоит в том, чтобы использовать метод CreateTextFile. Создаем пустой текстовый файл:

Dim fso As New FileSystemObject, fil As File

Set fil = fso.CreateTextFile("c:testfile.txt", True)

Обратите внимание, что модель объекта FSO еще не поддерживает создание произвольных (random) или двоичных (binary) файлов.

Другой путь состоит в том, чтобы использовать метод OpenTextFile объекта FileSystemObject с установкой флага ForWriting:

Dim fso As New FileSystemObject, ts As New TextStream

Set ts = fso.OpenTextFile("c:test.txt", ForWriting)

Или Вы можете использовать метод OpenAsTextStream с установкой флага ForWriting:

Dim fso As New FileSystemObject, fil As File, ts As TextStream

Set fso = CreateObject("Scripting.FileSystemObject")