vb中利用fso对象对文件夹操作

《vb中利用fso对象对文件夹操作》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB中利用FSO对象对文件夹操作windows还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO对象模型中包括了计算机文件系统所有的对象。见下。利用这些对象可以更方便的操作文件系统。　　对象功能　　Drive允许收集系统的驱动器信息，诸如驱动器的可用空间　　Folder允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等　　Files允许创建、删除或移动文件，并向系统查询文件的名称、路径等等　　FileSysterObject此为主要对象，提供一整套用于创建、删除、搜集相关信息，以及通常的操作驱动

2、器，文件夹，和文件的方法。　　TextStream允许读写文本文件　　下面我们一起来看看怎样用FSO对象来显示、新建、修改以及删除目录。　　FSO对象模型包含在Scripting的类型库中，此类型库存在于Scrrun.dll文件中.使用FSO对象模型,首先要建立一个FileSystemObject对象。有两种方法可以实现。一种是从”工程”菜单中的”引用”对话框选择”MicrosoftScriptingRuntime”项,然后在代码窗口中声明一个FileSystemObject类型的变量.语句如下:　　DimfsoAsNewFileSys

3、temObject　　另一种方法是在代码中使用CreatObject方法动态的创建一个FileSystemObject对象.语句如下:　　DimfsoAsObject‘声明对象变量　　Setfso=CreatObject(“Scripting.FileSystemObject”)‘创建FSO对象　　我们具体看看FileSystemObject的主要属性.　　1、驱动器　　(1)Drives属性是FileSystemObject对象的唯一属性，它返回Drives集合中所有可用驱动器的只读集合。对于可删除的驱动器，不需要将媒体插入其中，就可

4、以在Drives集合中显示出来。下面是它的主要属性有两个:一个是Count,另一个是Item.Count属性返回Drives集合或Dictionary对象中的条目数.Item属性用来返回或设置Drives集合或Dictionary对象中与指定关键字相关的项目.　　下面代码说明了如何获得Drives集合,以及如何用ForEacn……Next语句来访问该集合中的每个Drive:　　SubShowDriveList()　　DimfsAsObject,d,dc,s,n　　创建文件系统对象　　Setfs=CreatObject(“Scriptin

5、g.FileSystemObject”)　　创建驱动器集合　　Setdc=fs.Drives　　'取的驱动器对象　　ForEachdindc　　s=s&d.DriveLetter&“-”‘格式化文本　　Ifd.DriverType=RemoteThen‘如果是Remote类型的驱动器　　　n=d.ShareName‘取得它的共享名　　Else　　　n=d.volumeName‘否则取得它的卷标　　Endif　　s=s&n&vbCrLf‘格式化文本　　Next　　MsgBoxs‘显示文本　　Endsub　　(2)当然我们也可以用Drive

6、对象.Drive对象提供了对磁盘驱动器或网络共享属性的访问方法.下面是它的主要属性及其解释:　　Availablespace驱动器已用空间DriveLetter驱动器指定的字母　　Freespace驱动器剩余空间DriverType驱动器类型　　TotalSize驱动器全部空间FileSystem驱动器文件系统　　IsReady驱动器是否已准备Path驱动器根目录　　SerizlNumber驱动器序列号VolumeName驱动器卷标　　ShareName驱动器共享名　　主要的方法就是GetDrive，此方法用来访问一个已有的驱动器，该方

7、法返回一个与指定路径中的驱动器相对应的Drive对象。下面的代码中，我们将说明怎样取得一个指定的驱动器的相关信息：　　SubShowFreeSpace(drvPath)‘显示指定目录下的驱动器的信息　　DimfsAsObject,d,s　　Setfs=CreateObject("Scripting.FileSystemObject")‘创建文件系统对象　　Setd=fs.GetDrive(fs.GetDriveName(drvPath))‘创建并得到指定取目录下的驱动器　　s="Drive"&UCase(drvPath)&"-"‘格式化

8、文本　　s=s&d.VolumeName&vbCrLf‘得到驱动器的卷标　　s=s&"FreeSpace:"&FormatNumber(d.FreeSpace/1024,0)　　'计算驱动器的剩余磁盘空间