VB中FSO对象用法详解.docVIP

VB中FSO对象用法详解 要应用 FSO 对象，须要引用一个名为 Scripting 的类型库，方法是，执行 VB6.0 的菜单项“工程/引用”，添加引用列表框中的“Microsoft Scripting Runtime”一项。然后我们在“对象浏览器”中就可以看到 Scripting 类型库下的众多对象及其方法、属性。 1、判断光驱的盘符： Function GetCDROM() ′ 返回光驱的盘符(字母) Dim Fso As New FileSystemObject ′创建 FSO 对象的一个实例 Dim FsoDrive As Drive, FsoDrives As Drives ′定义驱动器、驱动器集合对象 Set FsoDrives = Fso.Drives For Each FsoDrive In FsoDrives ′遍历所有可用的驱动器 If FsoDrive.DriveType = CDRom Then ′如果驱动器的类型为 CDrom GetCDROM = FsoDrive.DriveLetter ′输出其盘符 Else GetCDROM = End If Next Set Fso = Nothing Set FsoDrive = Nothing Set FsoDrives = Nothing End Function 2、判断文件、文件夹是否存在： ′返回布尔值:True 存在，False 不存在，filername 文件名 Function FileExist(filename As String) Dim Fso As New FileSystemObject If Fso.FileExists(filename) = True Then FileExist = True Else FileExist = False End If Set Fso = Nothing End Function ′返回布尔值:True 存在，False 不存在，foldername 文件夹 Function FolderExist(foldername As String) Dim Fso As New FileSystemObject If Fso.FolderExists(foldername) = True Then FolderExist = True Else FolderExist = False End If Set Fso = Nothing End Function 3、获取驱动器参数: ′返回磁盘总空间大小(单位：M)，Drive = 盘符 A ,C, D ... Function AllSpace(Drive As String) Dim Fso As New FileSystemObject, Drv As Drive Set Drv = Fso.GetDrive(Drive) ′得到 Drv 对象的实例 If Drv.IsReady Then ′如果该驱动器存在(软驱或光驱里有盘片，硬盘存取正常) AllSpace = Format(Drv.TotalSize / (2 ^ 20), 0.00) ′将字节转换为兆 Else AllSpace = 0 End If Set Fso = Nothing Set Drv = Nothing End Function ′返回磁盘可用空间大小(单位：M)，Drive = 盘符 A ,C, D ... Function FreeSpace(drive) Dim Fso As New FileSystemObject, drv As drive Set drv = Fso.GetDrive(drive) If drv.IsReady Then FreeSpace = Format(drv.FreeSpace / (2 ^ 20), 0.00) End If Set Fso = Nothing Set Drv = Nothing End Function ′获取驱动器文件系统类型，Drive = 盘符 A ,C, D ... Function FsType(Drive As String) Dim Fso As New FileSystemObject, Drv As Drive Set Drv = Fso.GetDrive(Drive) If Drv.IsReady Then FsType = Drv.FileSystem Else FsType = End If Set Fso = Noth