📄 qqexp039.html
字号:
<html>
<head>
<title>千千VB站 VB函数清单</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body>
<marquee><blink><b>文件属性</b></blink></marquee>
<hr>
<table>
<tr>
<td>
<table border="1">
<caption>VB文件属性代码</caption>
<tr>
<th>0
<td>一般
<tr>
<th>1
<td>只读
<tr>
<th>2
<td>隐藏
<tr>
<th>4
<td>系统
<tr>
<th>16
<td>文件夹
<tr>
<th>32
<td>保存属性
</table>
<td>这些数值可以综合运用，当一个文件只读且又是保存属性，则属性代码为
1 + 32 = 33。
<p>隐藏文件夹的属性代号 2 + 16 = 18。
</table>
<p><a name="getattr">●GetAttr。<br>
得知文件的属性：
<dl>
Private Sub Command1_Click()
<dd>Print GetAttr("C:\Autoexec.Bat")
<dd>If GetAttr("C:\Autoexec.Bat") And 1 Then Print "此文件只读"
<dd>If GetAttr("C:\Autoexec.Bat") And 2 Then Print "此文件隐藏"
<dd>If GetAttr("C:\Autoexec.Bat") And 4 Then Print "此文件为系统文件"
<dd>If GetAttr("C:\Autoexec.Bat") And 16 Then Print "此文件为文件夹"
<dd>If GetAttr("C:\Autoexec.Bat") And 32 Then Print "此文件为保存属性"
</dl>
End Sub
<p><br>
</a><a name="setattr">●SetAttr。<br>
设定文件的属性：
<dl>
Private Sub Command1_Click()
<dd>SetAttr "C:\Autoexec.Bat", 1 + 2 + 32
<dd>Print "C:\Autoexec.Bat 此文件被设定成 只读 & 隐藏
& 保存属性"
</dl>
End Sub</a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -