获取文件或文件夹属性

　　


                   文件或文件夹有几个基本属性,那就是"只读","隐藏","存档","系统".当然我们也可以用Vb方便的读出这些属性.

请看下例:

>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.

>>步骤2----添加如下代码:



Private Declare Function GetFileAttributes Lib "kernel32" Alias _

"GetFileAttributesA" (ByVal lpFileName As String) As Long



Const FILE_ATTRIBUTE_READONLY = &H1

Const FILE_ATTRIBUTE_HIDE = &H2

Const FILE_ATTRIBUTE_ARCHIVE = &H20

Const FILE_ATTRIBUTE_SYSTEM = &H4

Const FILE_ATTRIBUTE_DIRECTORY = &H10

Const FILE_ATTRIBUTE_NORMAL = &H80



Private Sub Command1_Click()

Dim InputFileName As String

InputFileName = "C:\autoexec.bat"



If (GetFileAttributes(InputFileName) And _

FILE_ATTRIBUTE_READONLY) Then

MsgBox "只读" '只读

End If



If (GetFileAttributes(InputFileName) And _

FILE_ATTRIBUTE_HIDE) Then

MsgBox "隐藏" '隐藏

End If



If (GetFileAttributes(InputFileName) And _

FILE_ATTRIBUTE_ARCHIVE) Then

MsgBox "存档" '存档

End If



If (GetFileAttributes(InputFileName) And _

FILE_ATTRIBUTE_SYSTEM) Then

MsgBox "系统" '系统

End If



If (GetFileAttributes(InputFileName) And _

FILE_ATTRIBUTE_DIRECTORY) Then

MsgBox "文件夹" '系统

Else

MsgBox "文件" '文件

End If

End Sub



>>步骤3----编译运行,按下Command1,弹出的对话框会告诉你文件或文件夹的基本属性.