result = GetAttr(txtFile.Text) lblResult.Caption = "&&H" & Hex$(result)
If result And vbNormal Then chkNormal.Value = vbChecked Else chkNormal.Value = vbUnchecked End If If result And vbReadOnly Then chkReadOnly.Value = vbChecked Else chkReadOnly.Value = vbUnchecked End If If result And vbHidden Then chkHidden.Value = vbChecked Else chkHidden.Value = vbUnchecked End If If result And vbSystem Then chkSystem.Value = vbChecked Else chkSystem.Value = vbUnchecked End If If result And vbDirectory Then chkDirectory.Value = vbChecked Else chkDirectory.Value = vbUnchecked End If If result And vbArchive Then chkArchive.Value = vbChecked Else chkArchive.Value = vbUnchecked End If End Sub
Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Получение атрибутов файла", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!