📄 ba43.htm
字号:
<HTML>
<HEAD>
<TITLE>在VB中使用文件对象 </TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><font class="a"><b>在VB中使用文件对象</b>
</font></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"> </p>
<p align="right"><font class="a" size="-1" face="宋体">作 者 : 扬眉
</font></p>
<p align="left"><font class="a" size="-1" face="宋体"> 自从Visual
Basic第一次发布到现在，它的大部分主要的特性大都被修改了不下一次。但文件操作部分却是个例外。在最原始的Basic语言中，文件就是用文件号（file
number）来读写的。用一个数字来操作文件，或许者多少有一点晦涩难懂，这也令大多数的初学者感到不习惯和难以理解。
</font></p>
<p align="left"><font class="a" size="-1" face="宋体"> 随着Visual
Basic Scripting Edition2.0版本的发布，微软提供了一种全新的文件操作方法——文件系统对象（FileSystemObject）。用对象编程，这正是开发者们所希望用到。这个对象，包括一些其他的相关对象，封装了所有的文件操作。这篇文章将向你介绍这些对象，并且展示如何利用它们来编程。要使用这些对象，在VB的应用程序中就必须引用Microsoft
Scripting Runtime （C:\Windows\System\SCRRUN.DLL）对象库。但是如果是为Internet
Explore 编写VBScript，直接使用就可以了。下面是这些对象的概要： </font></p>
<p><font class="a" size="-1" face="宋体"> * Drive - 代表一个单独的驱动器，可以是软驱，硬盘，或者是光驱等其他存贮介质。
</font></p>
<p><font class="a" size="-1" face="宋体"> * Drives - 一个集合对象，包括系统中所有的驱动器。
</font></p>
<p><font class="a" size="-1" face="宋体"> * File - 代表系统中的一个磁盘文件。
</font></p>
<p><font class="a" size="-1" face="宋体"> * Files - 集合对象，是一些文件的集合。典型的是代表一个目录下的所有文件。
</font></p>
<p><font class="a" size="-1" face="宋体"> * FileSystemObject
- 代表系统中整个文件系统的对象。包括所有驱动器，目录和文件。 </font></p>
<p><font class="a" size="-1" face="宋体"> * Folder - 代表一个目录，可以是本地的，也可以是远程目录。
</font></p>
<p><font class="a" size="-1" face="宋体"> * Folders - 一些目录的集合体。
</font></p>
<p><font class="a" size="-1" face="宋体"> * TextStream - 文本流对象，代表一个用来读写的打开的文件。
</font></p>
<p><font class="a" size="-1" face="宋体"> 想得到系统中所有的驱动器的信息，可以用下面的这段代码来实现。
<br>
Sub Main()<br>
Dim objFSO As New Scripting.FileSystemObject<br>
Dim drvLoop As Scripting.Drive<br>
<br>
For Each drvLoop In objFSO.Drives<br>
Debug.Print drvLoop.DriveLetter & ":\"<br>
If drvLoop.DriveType = Fixed _<br>
Or drvLoop.IsReady Then<br>
Debug.Print " Total size: " _<br>
& Format$(drvLoop.TotalSize / (1024 ^ 2), "#0.00
Mb")<br>
Debug.Print " Free space: " _<br>
& Format$(drvLoop.FreeSpace / (1024 ^ 2), "#0.00
Mb")<br>
Debug.Print " Volume Label: " & drvLoop.VolumeName<br>
Else<br>
Debug.Print " Disk information unavailable"<br>
End If<br>
<br>
Next drvLoop<br>
<br>
Set objFSO = Nothing<br>
<br>
End Sub<br>
</font></p>
<p><font class="a" size="-1" face="宋体"> 在试图存取像软盘，光盘这些可移动介质驱动器，特别是存取笔记本电脑的可交换驱动器的时候要注意：Windows总是认为驱动器是存在的，而不管是否真的有盘片在里面。这时候可以用Drive对象IsReady对象来检测驱动器是否准备好。否则可能造成VB应用程序的死锁。
</font></p>
<p><font class="a" size="-1" face="宋体"> Drive对象还有一些其他的属性，可以用对象浏览器来察看它所有属性。
</font></p>
<p><font class="a" size="-1" face="宋体"> 除了可以遍历所有的驱动器，你也可以遍历某个文件夹下的所有文件。这在当你需要在整个驱动器中查找特定的文件的时候特别有用。Recursion
is also very helpful in these cases since you need to keep
performing the same action as you work your way down the tree.
下面这段代码用来统计所有GIF文件的个数。它也可以很容易的修改成文件列表，对特定的文件做指定的操作，等等。其中的关键在于目录数的遍历：
<br>
Option Explicit<br>
Dim m_lngFileCount As Long '定义计数器<br>
Dim m_objFSO As Scripting.FileSystemObject '定义文件系统对象<br>
<br>
Sub Main()<br>
Set m_objFSO = New Scripting.FileSystemObject<br>
m_lngFileCount = 0<br>
CheckFolder "C:\"<br>
Debug.Print "C盘下GIF文件总数: " & m_lngFileCount<br>
End Sub<br>
<br>
Sub CheckFolder(strPath As String)<br>
Dim objFolder As Scripting.Folder '文件夹对象<br>
Dim objFile As Scripting.File '文件对象<br>
Dim objSubdirs As Scripting.Folders '文件夹集合对象<br>
Dim objLoopFolder As Scripting.Folder '文件夹对象<br>
<br>
Debug.Print "Checking directory " & strPath<br>
Set objFolder = m_objFSO.GetFolder(strPath)<br>
<br>
' 检查目录中的文件<br>
For Each objFile In objFolder.Files<br>
If UCase$(Right$(objFile.ShortPath, 4)) = ".GIF"
Then <br>
'这一段是条件检查，但找到的文件是否符合给定的条件，这儿通过取文件名的<br>
'最后4位看是不是“.GIF“来判断文件是否是GIF文件。<br>
m_lngFileCount = m_lngFileCount + 1<br>
'找到指定条件的文件后进行相应的操作，这儿是把计数器加一。<br>
End If<br>
Next objFile<br>
<br>
' 在所有子目录中循环，计数。<br>
Set objSubdirs = objFolder.SubFolders<br>
For Each objLoopFolder In objSubdirs<br>
CheckFolder objLoopFolder.Path <br>
'递归调用CheckFolder子过程，实现目录树的遍历。<br>
Next objLoopFolder<br>
<br>
Set objSubdirs = Nothing<br>
Set objFolder = Nothing<br>
<br>
End Sub<br>
</font></p>
<p><font class="a" size="-1" face="宋体"> 为了简化这段代码，FileSystemObject对象和文件计数器都被定义为这个模块的全局变量（因此前面都加了m_前缀）。CheckFolder
子程序开始时用C:\ 作为入口参数，一旦找到一个符合条件的文件，就把计数值加一。检查完下面的所有文件后，再用其子目录作为参数调用CheckFolder过程本身。当所有的目录都被作为参数调用了之后，所有的文件也就被检查完了。这就是用递归遍历目录树的方法。所谓递归，就是过程直接或者间接的调用自身。最后，作为过程调用的结果，统计数字被Main过程显示出来。
</font></p>
<p><font class="a" size="-1" face="宋体"> 只要把检验文件是否为GIF文件的部分换成其它的条件，再把计数的语句换成想要执行的语句块。每当找到符合条件的语句后，就会执行这个语句块。这样就可以很容易的把代码修改用于其它的用途。
</font></p>
<p><font class="a" size="-1" face="宋体"> 如果你曾今用过Dir函数来实现同样的功能，那么你一定会感到用对象编程的方便之处。不论你是想检查文件属性，还是创建新的文件，或者其它任何关于文件的操作，新的文件对象都会为你节省不少时间，而且是代码更加易于理解。
</font></p>
<p><font class="a" size="-1" face="宋体">转载自Chinabyte网络学院</font>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba42.htm">（上一页）</a>---<a href="ba44.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -