无创产前检测多少钱:有关vb程序问题

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 14:53:12
getattr 这个,是那个对像的..要创建什么对像才能使用它呢??
还麻烦举个例子..谢谢..谢谢 .~~~~

GetAttr 是基本VB函数,并不是对象

语法

GetAttr(pathname)

返回一个 Integer,此为一个文件、目录、或文件夹的属性。
必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。

返回值

由 GetAttr 返回的值,是下面这些属性值的总和:

常数 值 描述
vbNormal 0 常规
vbReadOnly 1 只读
vbHidden 2 隐藏
vbSystem 4 系统文件
vbDirectory 16 目录或文件夹
vbArchive 32 上次备份以后,文件已经改变
vbalias 64 指定的文件名是别名

举例:
Private Sub Command1_Click()
MsgBox GetAttr("c:\command.com")
End Sub

报告返回值为 6
说明该文件的属性是:
vbHidden 2 隐藏 + vbSystem 4 系统文件

如果我没记错,是返回文件或文件夹属性的一个函数.
if (getattr("c:\boot.ini") and vbreadonly)>0 then
msgbox ("这个文件是只读的")
endif