精彩编程与编程技巧-获取文件或文件夹属性...

获取文件或文件夹属性 
     文件或文件夹有几个基本属性,那就是"只读","隐藏","存档","系统".当然我们也可以用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