Around the World in 80 Days. Reader. Книга для чтения

FSO – тяжелая артиллерия VB6

Полученный в результате использования этих методов текст может быть сохранен в символьной переменной и анализироваться Lef , Righ и Mid. Обратите внимание, что константа vb ewLi e содержит символ или символы (в зависимости от операционной системы) чтобы продвинуть курсор к началу следующей линии (возврат каретки). Знайте, что концы некоторых символьных переменных могут иметь такие непечатаемые символы. Sub Read Files() Dim fso As ew FileSys emObjec , x file Dim fil1 As File, s As ex S ream Se x file = fso.Crea e ex File("c: es file. x ", rue) MsgBox "Wri i g file" ' Запись линии Se fil1 = fso.Ge File("c: es file. x ") Se s = fil1.Ope As ex S ream(ForWri i g) s.Wri e "Hello World" s.Close ' Чтение содержания файла Se s = fil1.Ope As ex S ream(ForReadi g) s = s.ReadLi e MsgBox s s.Close E d Sub Перемещение, копирование и удаление файлов Модель объекта FSO имеет два метода для перемещения, копирования и удаления файлов: Переместите файл - File.Move or FileSys emObjec .MoveFile Копируйте файл - File.Copy or FileSys emObjec .CopyFile Удалите файл - File.Dele e or FileSys emObjec .Dele eFile Этот пример создает текстовый файл в корневой директории дисковода C, пишет некоторую информацию в нем, перемещает его в каталог, называемый mp, делает копию его в каталог, называемый emp, затем удаляет копии из обоих каталогов.