说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB获取文件或文件夹属性

HTML文档下载 WORD文档下载 PDF文档下载
VB获取文件或文件夹属性
文件或文件夹有几个基本属性,那就是"只读","隐藏","存档","系统".当然我们也可以用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,弹出的对话框会告诉你文件或文件夹的基本属性.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘