47.txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

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