VB6中FSO具体应用详解(个人实例版)

《VB6中FSO具体应用详解(个人实例版)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VB6.0中FSO对象的具体应用(个人改进版)文前申明:原文为通用版实例代码,本菜鸟在每例之后加入一个简单的实例(均验证通过),供有需要的朋友参考.您正在看的VB教程是:VB入门基础认识VB的文件系统对象FSO。 在VB编程中经常需要和文件系统打交道，比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB推出文件系统对象(FileSystemObject)以前，完成这些功能需要调用WindowsAPI函数或者使用一些比较复杂的过程来实现，使编程复杂、可靠性差又容易出错。使用Windows提供的的文件系统对象，一切变得简单多了。以下笔者举出一些编程中比较常用的例子，以函数或过程的形式提供给

2、大家，读者可在编程中直接使用，也可以改进后实现更为强大的功能。 要应用FSO对象，须要引用一个名为Scripting的类型库，方法是，执行VB6.0的菜单项“工程/引用”，添加引用列表框中的“MicrosoftScriptingRuntime”一项。然后我们在“对象浏览器”中就可以看到Scripting类型库下的众多对象及其方法、属性。如果未添加此引用,运行时会出现以下错误:1.判断光驱的盘符 FunctionGetCDROM()返回光驱的盘符(字母) DimFsoAsNewFileSystemObject'创建FSO对象的一个实例 DimFsoDriveAsDrive,FsoDrivesA

3、sDrives'定义驱动器、驱动器集合对象 SetFsoDrives=Fso.Drives ForEachFsoDriveInFsoDrives'遍历所有可用的驱动器 IfFsoDrive.DriveType=CDRomThen'如果驱动器的类型为CDrom GetCDROM=FsoDrive.DriveLetter'输出其盘符 Else GetCDROM="" EndIf Next SetFso=Nothing SetFsoDrive=Nothing SetFsoDrives=Nothing EndFunction个人改写实例:用以上代码验证电脑硬盘的盘符类型首先建立窗体,在设计模式把fo

4、rm的autoredraw设置为trueSubForm_Load()'首先在设计模式把form的autoredraw设置为trueDimFsoAsNewFileSystemObject'创建FSO对象的一个实例DimFsoDriveAsDrive,FsoDrivesAsDrives'定义驱动器、驱动器集合对象SetFsoDrives=Fso.DrivesForEachFsoDriveInFsoDrives'遍历所有可用的驱动器IfFsoDrive.DriveType=CDRomThen'如果驱动器的类型为CDromGetCDROM=FsoDrive.DriveLetter'输出其盘符Prin

5、t"CDRom驱动器是:"PrintGetCDROMElseIfFsoDrive.DriveType=FixedThengetfixed=FsoDrive.DriveLetterPrint"固定驱动器是:"PrintgetfixedElseIfFsoDrive.DriveType=RemoteThengetremote=FsoDrive.DriveLetterPrint"网络驱动器是:"PrintgetremoteElseIfFsoDrive.DriveType=unknownThengetunknown=FsoDrive.DriveLetterPrint"未知驱动器是:"Printgetu

6、nknowElseIfFsoDrive.DriveType=RamDiskThengetramdisk=FsoDrive.DriveLetterPrint"RAM磁盘是:"PrintgetramdiskEndIfNextSetFso=NothingSetFsoDrive=NothingSetFsoDrives=NothingEndSub2.判断文件、文件夹是否存在： '返回布尔值:True存在，False不存在，filername文件名 FunctionFileExist(filenameAsString) DimFsoAsNewFileSystemObject IfFso.FileExis

7、ts(filename)=TrueThen FileExist=True Else FileExist=False EndIf SetFso=NothingEndFunction'返回布尔值:True存在，False不存在，foldername文件夹 FunctionFolderExist(foldernameAsString) DimFsoAsNewFileSystemObject IfFso.Folder