VB中利用FSO对象对文件夹操作VIP免费

VB 中利用FSO 对象对文件夹操作 windows 还给我们提供了一个叫做FileSystemObject（简称FSO）对象。FSO 对象模型中包括了计算机文件系统所有的对象。见下。利用这些对象可以更方便的操作文件系统。 对象 功能 Drive 允许收集系统的驱动器信息，诸如驱动器的可用空间 Folder 允许创建、删除或移动文件夹，并向系统查询文件夹的名称、路径等等 Files 允许创建、删除或移动文件，并向系统查询文件的名称、路径等等 FileSysterObject 此为主要对象，提供一整套用于创建、删除、搜集相关信息，以及通常的操作驱动器，文件夹，和文件的方法。 TextStream 允许读写文本文件 下面我们一起来看看怎样用FSO 对象来显示、新建、修改以及删除目录。 FSO 对象模型包含在Scripting 的类型库中，此类型库存在于Scrrun.dll 文件中.使用FSO对象模型,首先要建立一个FileSystemObject 对象。有两种方法可以实现。一种是从”工程”菜单中的”引用”对话框选择”Microsoft Scripting Runtime”项 ,然后在代码窗口中声明一个FileSystemObject 类型的变量.语句如下: Dim fso As New FileSystemObject 另一种方法是在代码中使用CreatObject 方法动态的创建一个FileSystemObject 对象.语句如下: Dim fso As Object „ 声明对象变量 Set fso = CreatObject(“Scripting. FileSystemObject”) „创建FSO 对象 我们具体看看FileSystemObject 的主要属性. 1、驱动器 (1) Drives 属性是FileSystemObject 对象的唯一属性，它返回Drives 集合中所有可用驱动器的只读集合。对于可删除的驱动器，不需要将媒体插入其中，就可以在Drives 集合中显示出来。下面是它的主要属性有两个:一个是Count,另一个是Item.Count 属性返回Drives 集合或Dictionary对象中的条目数.Item 属性用来返回或设置Drives 集合或Dictionary对象中与指定关键字相关的项目. 下面代码说明了如何获得Drives 集合,以及如何用For Eacn……Next 语句来访问该集合中的每个Drive: Sub ShowDriveList() Dim fs As Object, d, dc, s,n 创建文件系统对象 Set fs = CreatObject(“Scripting. FileSystemObject”) 创建驱动器集合 Set dc= fs.Drives '取的驱动器对象 For Each d in dc s = s & d.DriveLetter & “-” „格式化文本 If d.DriverType = Remote Then „如果是Remote 类型的驱动器 n = d.ShareName...