Visual Basic 6. Руководство разработчика



         

Объект - часть 2


Константа

Значение

Описание

Normal

0

Обычный файл

Readonly

1

Файл "только для чтения" "Скрытый" файл

Hidden

2

System

4

"Системный" файл

Volume

8

Метка дискового устройства

Directory

16

Папка или каталог

Archive

32

Файл изменен после последнего сохранения

Alias

64

Ссылка или ярлык

Compressed

128

"Сжатый" файл

Чтобы узнать, имеет ли файл атрибут "только для чтения", используйте следующий оператор.

If this.FileAttributes And 32 Then

MsgBox "Read-only file"

End If

Можно использовать функцию MsgBox(), чтобы предложить пользователю отменить атрибут "только для чтения".

If thisFile.Attributes And 32 Then

reply = MsgBox("This is a read only file. _

Delete it anyway?", vbYesNo)

'(Это файл только для чтения. Удалять?...)

  If reply = vbYes Then

thisFile.Attributes = thisFile.Attributes + 32

Else

thisFile.Delete

End If

Delete - это метод объекта File, который удаляет заданный файл. Его описание приведено в следующем параграфе.

Обычно при установке атрибута файла другие его атрибуты не сбрасываются. Например, чтобы добавить атрибут "скрытый" файлу, который имеет атрибут "только для чтения", используется оператор

thisFile.Attributes = aFile.Attributes + 2

или

thisFile.Attributes = aFiie.Attributes Or 2

Для отмены определенного атрибута следует определить установлен ли он, а затем вычесть его значение из значения свойства

Attributes. Для отмены атрибута "скрытый" используют следующий оператор.

If thisFile.Attributes And 2 Then

thisFile.Attributes = thisFile.Attributes - 2

End If

DateCreated. Это свойство "только для чтения", возвращающее дату и время создания заданного файла или папки.

thisFile.DateCreated

Следующий код вычисляет "возраст" файла в днях. Можно вычислить его и в других величинах, умножив или разделив на соответствующую константу.




Содержание  Назад  Вперед