在VB中使用文件对象

原创 2001年10月10日 14:07:00

在VB中使用文件对象

纲要

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



正文 


在VB中使用文件对象
作 者 : 扬眉

   自从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过程显示出来。

   只要把检验文件是否为GIF文件的部分换成其它的条件,再把计数的语句换成想要执行的语句块。每当找到符合条件的语句后,就会执行这个语句块。这样就可以很容易的把代码修改用于其它的用途。

   如果你曾今用过Dir函数来实现同样的功能,那么你一定会感到用对象编程的方便之处。不论你是想检查文件属性,还是创建新的文件,或者其它任何关于文件的操作,新的文件对象都会为你节省不少时间,而且是代码更加易于理解。

在VB中使用文件对象

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:16
  • 97

VB6对象浏览器的用法

估计不少书都把这个强大的工具忽略了,这里补充一下。在VB6的IDE里按下F2,或者选择【视图】菜单的【对象浏览器】菜单项,就可以打开对象浏览器。对象浏览器可以看到一个库中的全部类,模块,枚举的定义。...
  • JiLuoXingRen
  • JiLuoXingRen
  • 2013年07月27日 02:11
  • 6523

vb中的类与对象

vb的对象与类。vb,一个不是完全面向对象的编程语言,相对于其它高级编程语言来说,在它上面,基于对象的编程应用更为泛。对于对象,只不过是类的实例化罢了,而类,是众多对象的抽象的一个庞大集合。类实例化对...
  • u013067402
  • u013067402
  • 2014年08月27日 11:52
  • 5120

在VB中将类对象序列化为字符串

有时候,我们需要把一个类对象序列化成字符串保存起来,或者通过网络传输给另一台机器,然后再异步或异地克隆出原来的类对象,比如ACCESS没有服务器端,而我们加它加了一个服务器代理程序,代理程序负责把查询...
  • lyserver
  • lyserver
  • 2010年08月03日 10:41
  • 2922

VB6.0 对象库未注册解决办法

方法一:  利用管理员权限,打开cmd,利用指令强行进行注册 方法二:  重新下载  Service pack6 ,打开一个已经引用过该类库的项目,再关掉该项目。然后在新项目中再重新引用一次...
  • czf2505
  • czf2505
  • 2015年03月23日 15:32
  • 1740

VB中的Err对象

       在VB中经常会遇到错误的处理,Err是一个全局的对象。每个过程都最好防置一个处理错误的语句块,最好是On Err 放在第一行,在代码的最后防止处理错误的代码。下面总结一下关于Err的知识...
  • xudepeng0813
  • xudepeng0813
  • 2011年02月12日 20:30
  • 3478

在VB中怎样调用外部文件中的代码

 问题:比如:在"D:/1/123.txt有如下代码: msgbox"123456" 怎样调用它.使程序运行后能弹出123456答:借助Microsoft(R) Script Control控件可以轻...
  • kmlxk
  • kmlxk
  • 2008年03月08日 10:43
  • 3646

VB中对象的声明和绑定

对象声明有一下集中办法: 1,直接声明和创建实例并赋值给变量 Dim ObjectVarName As New [ClassLibName.]ClassName 2,先声明一个对象变量类型,然后...
  • qq_38507850
  • qq_38507850
  • 2017年11月18日 11:31
  • 128

VB中使用ASP对象实例

开发步骤:1.新建立Activex Dll 项目2.修改Project 名称3.修改Module名称4.添加引用:在NT和98下开发时,必须在项目中引用Microsoft Transaction Se...
  • xqf222
  • xqf222
  • 2006年06月10日 11:16
  • 1342

用VB 代码读取 Excel 内容

常规的方法可能是循环读取每一行每一个格子的内容并存入 Recordset 并保存 此处使用Open Recordset 的方式,将 Excel Worksheet 作为一个数据源直接读取 ...
  • DJ2008
  • DJ2008
  • 2017年05月25日 11:16
  • 2254
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在VB中使用文件对象
举报原因:
原因补充:

(最多只允许输入30个字)