📄 11489.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<html>
  <head>
    <title>Re: 错误修正</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 错误修正</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:cas0865@tpts5.seed.net.tw">Spencer Yang</a> on March 30, 1999 at 01:22:37:<p>
In Reply to: <a href="11474.html">Re: Answer "使用 FileSystemObject 来取得某目录内的所有档案"</a> posted by Rong on March 29, 1999 at 20:42:54:<p>
抱歉，若干单字拼写错误，正确如下：<br>Private Sub Form_Load()<br>    Dim fso As New FileSystemObject<br>    Dim fld As Folder<br>    Dim fil As File<br>    Dim strPath As String<br>    strPath = "c:\"<br>    Set fld = fso.GetFolder(strPath)<br>    ListView1.View = lvwList ' 全部显示<br>    For Each fil In fld.Files<br>    ListView1.ListItems.Add , , fil.Name<br>    Next<p>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 11489-->
</ul><!--end: 11489-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -