📄 qqexpfileattr.html
字号:
<html>
<head>
<title>千千VB站 函数方法</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<body background="picbkgd.gif" tppabs="picbkgd.gif">
<marquee><b><blink>文件开启模式</blink></b></marquee>
<hr>
●适用于VB、VBA。<br>
●用法：传回值 = FileAttr(文件编号,传回模式)<br>
<hr>
○VB、VBA：<br>
<dl>
Private Sub Command1_Click()
<dd>
<dl>
Open "Temp.tmp" For Append As #1
<dd>Print FileAttr(1, 1)
</dl>
Close #1
</dl>
End Sub<br>
<p>●传回值：
<table border="1" width="100%">
<tr>
<th>Mode
<th>Value
<tr>
<td>Input
<td>1
<tr>
<td>Output
<td>2
<tr>
<td>Random
<td>4
<tr>
<td>Append
<td>8
<tr>
<td>Binary
<td>32
</table>
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>
</body>
</html>
</SCRIPT>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -