VB6中FSO具体应用详解（个人实例版） 精品资料

VB6.0中FSO对象的具体应用(个人改进版)文前申明:原文为通用版实例代码,本菜鸟在每例之后加入一个简单的实例(均验证通过),供有需要的朋友参考.您正在看的VB教程是:VB入门基础认识VB的文件系统对象FSO。 在VB编程中经常需要和文件系统打交道，比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB推出文件系统对象(FileSystemObject)以前，完成这些功能需要调用WindowsAPI函数或者使用一些比较复杂的过程来实现，使编程复杂、可靠性差又容易出错。使用Windows提供的的文件系统对象，一切变得简单多了。以下笔者举出一些编程中比较|常用的例子，以函数或过程的形式提供给大家，读者可在编程中直接使用，也可以改进后实现更为强大的功能。 要应用FSO对象，须要引用一个名为Scripting的类型库，方法是，执行VB6.0的菜单项“工程/引用”，添加引用列表框中的“MicrosoftScriptingRuntime”一项。然后我们在“对象浏览器”中就可以看到Scripting类型库下的众多对象及其方法、属性。如果未添加此引用,运行时会出现以下错误:

11.判断光驱的盘符 FunctionGetCDROM()返回光驱的盘符(字母) DimFsoAsNewFileSystemObject'创建FS|O对象的一个实例 DimFsoDriveAsDrive,FsoDrivesAsDrives'定义驱动器、驱动器集合对象 SetFsoDrives=Fso.Drives ForEachFsoDriveInFsoDrives'遍历所有可用的驱动器 IfFsoDrive.DriveType=CDRomThen'如果驱动器的类型为CDrom GetCDROM=FsoDrive.DriveLetter'输出其盘符 Else GetCDROM="" EndIf Next SetFso=Nothing SetFsoDrive=Nothing SetFsoDrives=N|othing EndFunction个人改写实例:用以上代码验证电脑硬盘的盘符类型首先建立窗体,在设计模式把form的autoredraw设置为trueSubForm_Load()'首先在设计模式把form的autoredraw设置为trueDimFsoAsNewFileSystemObject'创建FSO对象的一个实例DimFsoDriveAsDrive,FsoDrivesAsDrives'定义驱动器、驱动器集合对象SetFsoDrives=Fso.DrivesForEachFsoDriveInFsoDrives'遍历所有可用的驱动器

2IfFsoDri|ve.DriveType=CDRomThen'如果驱动器的类型为CDromGetCDROM=FsoDrive.DriveLetter'输出其盘符Print"CDRom驱动器是:"PrintGetCDROMElseIfFsoDrive.DriveType=FixedThengetfixed=FsoDrive.DriveLetterPrint"固定驱动器是:"PrintgetfixedElseIfFsoDrive.DriveType=RemoteThengetremote=FsoDrive.DriveLetterPrint"网络驱动器是:"Printgetre|moteElseIfFsoDrive.DriveType=unknownThengetunknown=FsoDrive.DriveLetterPrint"未知驱动器是:"PrintgetunknowElseIfFsoDrive.DriveType=RamDiskThengetramdisk=FsoDrive.DriveLetterPrint"RAM磁盘是:"PrintgetramdiskEndIfNextSetFso=NothingSetFsoDrive=NothingSetFsoDrives=NothingEndSub2.判断文件、文件夹是否存在： '返|回布尔值:True存在，False不存在，filername文件名 FunctionFileExist(filenameAsString) DimFsoAsNewFileSystemObject

3 IfFso.FileExists(filename)=TrueThen FileExist=True Else FileExist=False EndIf SetFso=NothingEndFunction'返回布尔值:True存在，False不存在，foldername文件夹 FunctionFolderExist(foldernameAsString) D|imFsoAsNewFileSystemObject IfFso.FolderExists(foldername)=TrueThen FolderExist=True Else FolderExist=False EndIf SetFso=Nothing EndFunction个人改进实例:验证文件是否存在

4‘首先在form中建立一个文本框和一个按钮.文本框的multiline属性改为true运行时在文本框中输入文件名,格式为D:*.jpg,可以用通配符,或者固定文件名然后单击按钮来验证文件是否存在SubCommand1_Click()DimfsAsN|ewFileSystemObjectfilename=Text1.TextIffs.FileExists(filename)ThenText1.Text="存在"ElseText1.Text="不存在"EndIfEndSubPrivateSubForm_Load()Command1.Caption="验证"EndSub3、获取驱动器参数:返回磁盘总空间大小(单位：M)，Drive=盘符A,C,D... FunctionAllSpace(DriveAsString) DimFsoAsNewFileSy