网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
08月28日漏签0天
vb吧 关注:156,084贴子:1,166,237
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 1回复贴,共1页
<<返回vb吧
>0< 加载中...

FSO对象模型在VB中的应用

  • 取消只看楼主
  • 收藏

  • 回复
  • webird
  • 函数调用
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
http://oursoft.nease.net/cn_article/OCX/09.HTM
从 Visual Basic 的第一版至今,VB中有关文件的处理都是通过使用 Open 、Write以及其它一些相关的语句和函数来实现的。随着软件技术的不断发展,加上面向对象编程概念的日臻成熟,这些文件操作语句已经不能适应软件不断增加的复杂程度的需要了。因此,从VB6.0开始,微软提出了一个全新的文件系统对象FSO。

一、简介

文件系统对象FSO的英文全称是File System Object ,这种对象模型提出了有别于传统的文件操作语句处理文件和文件夹的方法。通过采用object.method这种在面向对象编程中广泛使用的语法,将一系列操作文件和文件夹的动作通过调用对象本身的属性直接实现。

FSO 对象模型不仅可以象使用传统文件操作语句那样实现文件的创建、改变、移动和删除,而且可以检测是否存在指定的文件夹,如果存在,那么,这个文件夹又位于磁盘上的什么位置。更令人高兴的是FSO 对象模型还可以获取关于文件和文件夹的信息,如名称、创建日期或最近修改日期等以及当前系统中使用的驱动器的信息,如驱动器的种类是CD-ROM还是可移动磁盘,当前磁盘的剩余空间还有多少。而以前要获取这些信息必须通过调用Windows API函数集中的相应函数才能实现。

FSO对象模型包含在Scripting 类型库 (Scrrun.Dll)中,它同时包含了Drive、Folder、File、FileSystemObject和TextStream五个对象。其中Drive用来收集驱动器的信息,如可用磁盘空间或驱动器的类型;Folder用于创建、删除或移动文件夹,同时可以进行向系统查询文件夹的路径等操作;File的基本操作和Folder基本相同,所不同的是Files的操作主要是针对磁盘上的文件进行的;FileSystemObject是FSO对象模型中最主要对象,它提供了一套完整的可用于创建、删除文件和文件夹,收集驱动器、文件夹、文件相关信息的方法。需要注意的是,FSO对象模型提供的方法是冗余的,也就是说在实际使用中,FSO对象模型中包含的不同对象的不同方法进行的却是同样的操作,而且FileSystemObject对象的方法直接作用于其余对象,所以在后面的文章中并没有单独提到FileSystemObject对象,千万不要以为没有提到就不重要,事实上FileSystemObject对象在整个FSO对象模型中无处不在;最后的TextStream对象则是用来完成对文件的读写操作的。

在初步了解了FSO对象模型之后,下面我们通过实际的代码对不同的对象进行进一步的阐述。

二、FSO对象模型的应用

(一)创建FSO对象模型

由于FSO对象包含在Scripting 类型库 (Scrrun.Dll)中,所以在使用前首先需要在在工程中引用这个文件,单击“工程”,“引用”,然后在“引用”对话框中选中“Microsoft Scripting Runtime”前的复选框,然后单击“确定”。

要创建FSO对象可以采用两种方法,一种是将一个变量声明为FSO对象类型:Dim fsoTest As New FileSystemObject;另一种是通过CreateObject方法创建一个FSO 对象:Set fsoTest = CreateObject(“Scripting.FileSystemObject")。在实际使用中具体采用哪种声明方法,可根据个人的使用习惯而定。

完成了FSO对象模型的创建之后,就可以利用创建的对象模型的方法访问下属各个对象的属性来获取所需信息或进行相关操作了,具体的方法在下面结合各个对象分别讲述。

(二)Drive对象

上面已经提到Drive对象是用来获取当前系统中各个驱动器的信息的。由于Drive对象没有方法,其应用都是通过属性表现出来的,所以我们必须熟悉Drive对象的属性:

AvailableSpace:返回在指定的驱动器或网络共享上的用户可用的空间容量。

DriveLetter :返回某个指定本地驱动器或网络驱动器的字母,这个属性是只读的。

DriveType:返回指定驱动器的磁盘类型。

FileSystem: 返回指定驱动器使用的文件系统类型。

FreeSpace:返回指定驱动器上或共享驱动器可用的磁盘空间,这个属性是只读的。



  • webird
  • 函数调用
    6
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

IsReady:确定指定的驱动器是否准备好。

Path :返回指定文件、文件夹、或驱动器的路径。

RootFolder :返回一个 Folder 对象,该对象表示一个指定驱动器的根文件夹。只读属性。

SerialNumber:返回用于唯一标识磁盘卷标的十进制序列号。

ShareName:返回指定驱动器的网络共享名

TotalSize :以字节为单位,返回驱动器或网络共享的总空间大小。

VolumeName :设置或返回指定驱动器的卷标名。

从上面的属性可以看到Drive对象基本上包含了日常操作所需的全部的驱动器信息,因此在使用中是非常方便的。下面通过一个实例讲述Drive对象的使用。首先在VB中建立一个工程,然后添加一个命令按钮,将其Caption设置为“TestDrive”,然后在click事件中加入以下代码:

Dim fsoTest As New FileSystemObject 

Dim drv1 As Drive, sReturn As String

Set drv1 = fsoTest.GetDrive(“C:\")

sReturn = “Drive " & “C:\" & vbCrLf

sReturn = sReturn & “VolumeName" & drv1.VolumeName & vbCrLf

sReturn = sReturn & “Total Space: " & FormatNumber(drv1.TotalSize / 1024, 0)

sReturn = sReturn & “Kb" & vbCrLf

sReturn = sReturn & “Free Space: " & FormatNumber(drv1.FreeSpace / 1024, 0)

sReturn = sReturn &“Kb" & vbCrLf

sReturn = sReturn &“FileSystem:" & drv1.FileSystem & vbCrLf

MsgBox sReturn

其中GetDrive方法返回一个与指定路径中的驱动器相对应的 Drive 对象。该方法的语法格式为object.GetDrive drivespec,object是一个FSO对象的名称,drivespec用于指定驱动器的名称。

按F5运行上述代码,按下TestDrive按钮就会弹出一个消息框显示C盘的信息。

(三)Folder对象

在FSO 对象模型中,提供了丰富的有关文件夹操作的方法,这些方法分别是:

FileSystemObject对象有关文件夹的方法:

CreateFolder :创建一个文件夹 。

DeleteFolder:删除一个文件夹 。

MoveFolder :移动一个文件夹 。

CopyFolder:复制一个文件夹 。

FolderExists: 查找一个文件夹是否在驱动器上 。

GetFolder :获得已有Folder对象的一个实例 。

GetParentFolderName: 找出一个文件夹的父文件夹的名称。

GetSpecialFolder: 找出系统文件夹的路径。

Folder对象的方法:

Delete :创建一个文件夹 。

Move :移动一个文件夹 。

Copy:复制一个文件夹。

Name:检索文件夹的名称。

在此需要强调一点,前面我们曾经提到过FSO对象模型包含的方法是冗余的,所以Folder对象的Delete、Move、Copy方法和FileSystemObject对象的DeleteFolder、MoveFolder、CopyFolder方法实际上是相同的,因此在实际使用中可以任选其中的一种。

和Drive对象一样,下面通过实例演示Folder对象的应用。在VB下新建一个工程,然后在上面添加三个命令按钮,然后在Form1的通用部分加入以下代码:

Option Explicit

Dim fsoTest As New FileSystemObject

Dim folder1 As Folder

并且分别在三个命令按钮的click事件输入以下代码:

Private Sub CmdCreate_Click()

' 获取 Folder 对象。

Set folder1 = fsoTest.GetFolder(“C:")

'创建文件夹

fsoTest.CreateFolder (“C:\Test")

MsgBox “folder C:\Test has created"

End Sub

Private Sub CmdDelete_Click()

' 获取 Drive 对象。

Set folder1 = fsoTest.GetFolder(“C:")

'删除文件夹 

fsoTest.DeleteFolder (“C:\Test")

MsgBox“folder C:\Test has deleted"

End Sub

Private Sub CmdGetPro_Click()

'获取文件夹的有关信息 

Dim sReturn As String

Set folder1 = fsoTest.GetFolder(“C:\Windows")



登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 1回复贴,共1页
<<返回vb吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示