Основы офисного программирования и язык VBA


Пример 14.1


Public Sub OpenTwoFiles()

Dim attr As Integer, Num As Integer

Dim MyFriend As Person ' объявление переменной

' Открываем файл с произвольным доступом для записи:

Num = FreeFile

Open "Friends" For Random Access Read Write As Num Len = Len(MyFriend)

PrintAttr (Num)

Debug.Print "Длина Записи:", Len(MyFriend)

' Открываем двоичный файл

Num = FreeFile

Open "pict.bmp" For Binary Access Read Lock Read As Num

PrintAttr (Num)

End Sub

Public Sub PrintAttr(ByVal Num As Integer)

'Эта процедура по номеру файла определяет его атрибуты

'и выводит соответствующее сообщение в окно отладки

Dim Msg As String, attr As Integer

attr = FileAttr(Num, 1)

Debug.Print "файл # ", Num

Select Case attr

Case 1: Msg = "Input"

Case 2: Msg = "Output"

Case 4: Msg = "Random"

Case 8: Msg = "Append"

Case 32: Msg = "Binary"

Case Else: Msg = "Таких файлов не бывает"

End Select

Debug.Print "Открыт для ", Msg

End Sub




Начало  Назад  Вперед



Книжный магазин