中学生早点应该吃什么:程序问题

用GetAttr函数获得属性：
返回值:Integer型，为一个文件，目录或文件夹的属性

用法：GetAttr(pathname)
GetAttr函数部分返回值
常数 值 描述

vbNormal 0 常规

vbReadOnly 1 只读

vbHidden 2 隐藏

vbSystem 4 系统

vbDirectory 16 目录或文件夹

vbArchive 32 上次备份以后，文件已经改变

'//********************************************\\'

用SetAttr语句设置属性：
返回值:无
用法：SetAttr pathname,attributes

'////////////////////////////////////////////////

示例：

'//获取当前目录下的file.exe文件属性
'//由i的值可知道其属性
Dim i As Integer
i = GetAttr(App.Path & "\file.exe")
Print i

'//将当前目录下的file.exe文件设置为系统+隐藏
SetAttr App.Path & "\file.exe",vbHidden + vbSystem

ATTRIB

引用:
--------------------------------------------------------------------------------
========
DOS命令
========

1．功能：修改指定文件的属性。
2．类型：外部命令。
3．格式：ATTRIB[文件名][R][——R][A][——A][H][——H][S][——S][/S]
4．使用说明：
（1）选用R参数，将指定文件设为只读属性，使得该文件只能读取，无法写入数据或删除；选用——R参数，去除只读属性；
（2）选用A参数，将文件设置为档案属性；选用——A参数，去除档案属性；
（3）选用H参数，将文件调协为隐含属性；选用——H参数，去隐含属性；
（4）选用S参数，将文件设置为系统属性；选用——S参数，去除系统属性；
（5）选用/S参数，对当前目录下的所有子目录及作设置。
--------------------------------------------------------------------------------

干嘛用命令
window下改多方便的

开始菜单——》运行——》cmd
输入：help attrib 就可以看到attrib命令的具体用法啦

attrib

在网上搜搜吧