在VB中使用文件对象

2008-04-09 04:39:28来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  自从Visual Basic第一次发布到现在,它的大部分主要的特性大都被修改了不下一次。但文件操作部分确是个例外。在最原始的Basic语言中,文件就是用文件号(file number)来读写的。用一个数字来操作文件,或许者多少有一点晦涩难懂,这也令大多数的初学者感到不习惯和难以理解。

  随这Visual Basic Scripting Edition2.0版本的发布,微软提供了一种全新的文件操作方法��文件系统对象(FileSystemObject)。用对象编程,这正是开发者们所希望用到。这个对象,包括一些其他的相关对象,封装了所有的文件操作。这篇文章将向你介绍这些对象,并且展示如何利用它们来编程。

  要使用这些对象,在VB的应用程序中就必须引用Microsoft Scripting Runtime (C:\Windows\System\SCRRUN.DLL)对象库。但是如果是为Internet Explore 编写VBScript,直接使用就可以了。下面是这些对象的概要:

  • Drive 代表一个单独的驱动器,可以是软驱,硬盘,或者是光驱等其他存贮介质。

  • Drives 一个集合对象,包括系统中所有的驱动器。

  • File 代表系统中的一个磁盘文件。

  • Files 集合对象,是一些文件的集合。典型的是代表一个目录下的所有文件。

  • FileSystemObject 代表系统中整个文件系统的对象。包括所有驱动器,目录和文件。

  • Folder 代表一个目录,可以是本地的,也可以是远程目录。

  • Folders 一些目录的集合体。

  • TextStream 文本流对象,代表一个用来读写的打开的文件。

  想得到系统中所有的驱动器的信息,可以用下面的这段代码来实现。

Sub Main()

Dim objFSO As New Scripting.FileSystemObject

Dim drvLoop As Scripting.Drive

For Each drvLoop In objFSO.Drives

Debug.Print drvLoop.DriveLetter & ":\"

If drvLoop.DriveType = Fixed _

Or drvLoop.IsReady Then

Debug.Print " Total size _

& Format$(drvLoop.TotalSize / (1024 ^ 2), "#0.00 Mb")

Debug.Print " Free space: " _

& Format$(drvLoop.FreeSpace / (1024 ^ 2), "#0.00 Mb")

Debug.Print " Volume Label: " & drvLoop.VolumeName

Else

Debug.Print " Disk information unavailable"

End If

Next drvLoop

Set objFSO = Nothing

End Sub

  在试图存取像软盘,光盘这些可移动介质驱动器,特别是存取笔记本电脑的可交换驱动器的时候要注意:Windows总是认为驱动器是存在的,而不管是否真的有盘片在里面。这时候可以用Drive对象IsReady对象来检测驱动器是否准备好。否则可能造成VB应用程序的死锁。

  Drive对象还有一些其他的属性,可以用对象浏览器来察看它所有属性。

  除了可以遍历所有的驱动器,你也可以遍历某个文件夹下的所有文件。这在当你需要在整个驱动器中查找特定的文件的时候特别有用。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文件的个数。它也可以很容易的修改成文件列表,对特定的文件做指定的操作,等等。其中的关键在于目录数的遍历:

Option Explicit

Dim m_lngFileCount As Long 定义计数器

Dim m_objFSO As Scripting.FileSystemObject 定义文件系统对象

Sub Main()

Set m_objFSO = New Scripting.FileSystemObject

m_lngFileCount = 0

CheckFolder "C:\"

Debug.Print "C盘下GIF文件总数: " & m_lngFileCount

End Sub

Sub CheckFolder(strPath As String)

Dim objFolder As Scripting.Folder 文件夹对象

Dim objFile As Scripting.File 文件对象

Dim objSubdirs As Scripting.Folders 文件夹集合对象

Dim objLoopFolder As Scripting.Folder 文件夹对象

Debug.Print "Checking directory " & strPath

Set objFolder = m_objFSO.GetFolder(strPath)

检查目录中的文件

For Each objFile In objFolder.Files

If UCase$(Right$(objFile.ShortPath, 4)) = ".GIF" Then

这一段是条件检查,但找到的文件是否符合给定的条件,这儿通过取文件名的

最后4位看是不是“.GIF“来判断文件是否是GIF文件。

m_lngFileCount = m_lngFileCount 1

找到指定条件的文件后进行相应的操作,这儿是把计数器加一。

End If

Next objFile

在所有子目录中循环,计数。

Set objSubdirs = objFolder.SubFolders

For Each objLoopFolder In objSubdirs

CheckFolder objLoopFolder.Path

递归调用CheckFolder子过程,实现目录树的遍历。

Next objLoopFolder

Set objSubdirs = Nothing

Set objFolder = Nothing

End Sub

  为了简化这段代码,FileSystemObject对象和文件计数器都被定义为这个模块的全局变量(因此前面都加了m_前缀)。CheckFolder子程序开始时用C:\ 作为入口参数,一旦找到一个符合条件的文件,就把计数值加一。检查完下面的所有文件后,再用其子目录作为参数调用CheckFolder过程本身。当所有的目录都被作为参数调用了之后,所有的文件也就被检查晚了。这就是用递归遍历目录树的方法。所谓递归,就是过程直接或者间接的调用自身。最后,作为过程调用的结果,统计数字被Main过程显示出来。

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB、VFP设计右键弹出式菜

下一篇:VB调用API制作渐变的窗口背景色