Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

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.")

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



Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки