Офисные задачи в Outlook 2002

         

Программа 22.3. Работа с файлами



Программа 22.3. Работа с файлами

Sub Init_Series()

Dim inifile As Integer

Dim srv As String

inifile = FreeFile

iniPath = "C:\bookseries.ini" 'Открываем файл для чтения

Open iniPath For Input As tinifile

Do

Input tinifile, tmp series.Addltem tmp 'Цикл до конца файла

Loop Until EOF(inifile)

series.Listlndex = 0 End Sub

Прокомментируем эту программу. Сначала объявляется переменная inifile, с которой будет отождествлен файл. Далее открывается файл bookseries. ini (хранящийся в корне диска С), после чего в цикле от начала до конца файла считываются построчно значения для списка серий.

Естественно, что и вызов процедуры init_Series необходимо поместить в тело конструктора userForm_initialize, который теперь будет выглядеть следующим образом.



Содержание раздела