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

Dim fil1 As File, ts As TextStream

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

MsgBox "Writing file"

' Записьлинии

Set fil1 = fso.GetFile("c:testfile.txt")

Set ts = fil1.OpenAsTextStream(ForWriting)

ts.Write "Hello World"

ts.Close

' Чтение содержания файла

Set ts = fil1.OpenAsTextStream(ForReading)

s = ts.ReadLine

MsgBox s

ts.Close

End Sub

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

Модель объекта FSO имеет два метода для перемещения, копирования и удаления файлов:

Переместитефайл - File.Move or FileSystemObject.MoveFile

Копируйтефайл - File.Copy or FileSystemObject.CopyFile

Удалитефайл - File.Delete or FileSystemObject.DeleteFile

Этот пример создает текстовый файл в корневой директории дисковода C, пишет некоторую информацию в нем, перемещает его в каталог, называемый tmp, делает копию его в каталог, называемый temp, затем удаляет копии из обоих каталогов. Чтобы выполнять этот пример, удостоверитесь, что Вы имеете каталоги, именованные tmp и temp в корневой директории дисковода C

Sub Manip_Files()

Dim fso As New FileSystemObject, txtfile, fil1, fil2

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

MsgBox "Writing file"

txtfile.Write ("This is a test.")

txtfile.Close

MsgBox "Moving file to c:tmp"

' Код обработки файла в корне C:

Set fil1 = fso.GetFile("c:testfile.txt")