认识VB的文件系统对象--FSO

转载 2006年05月28日 21:28:00
        在 VB 编程中经常需要和文件系统打交道,比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB 推出文件系统对象(File System Object)以前,完成这些功能需要调用 Windows API 函数或者使用一些比较复杂的过程来实现,使编程复杂、可靠性差又容易出错。使用 Windows 提供的的文件系统对象,一切变得简单多了。以下笔者举出一些编程中比较常用的例子,以函数或过程的形式提供给大家,读者可在编程中直接使用,也可以改进后实现更为强大的功能。
        要应用 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 = Nothing
Set Drv = Nothing
End Function
4,获取系统文件夹路径:
'返回 Windows 文件夹路径
Function GetWindir()
Dim Fso As New FileSystemObject
GetWindir = Fso.GetSpecialFolder(WindowsFolder)
Set Fso = Nothing
End Function
'返回 Windows/System 文件夹路径
Function GetWinSysdir()
Dim Fso As New FileSystemObject
GetWinSysdir = Fso.GetSpecialFolder(SystemFolder)
Set Fso = Nothing
End Function
5,综合运用:一个文件备份通用过程:
'Filename = 文件名,Drive = 驱动器,Folder = 文件夹(一层)
Sub BackupFile(Filename As String, Drive As String, Folder As String)
Dim Fso As New FileSystemObject '创建 FSO 对象实例
Dim Dest_path As String, Counter As Long
Counter = 0
Do While Counter < 6 '如果驱动器没准备好,继续检测。共检测 6 秒
Counter = Counter + 1
Call Waitfor(1) '间隔 1 秒
If Fso.Drives(Drive).IsReady = True Then
Exit Do
End If
Loop
If Fso.Drives(Drive).IsReady = False Then '6 秒后目标盘仍未准备就绪,退出
MsgBox " 目标驱动器 " & Drive & " 没有准备好! ", vbCritical
Exit Sub
End If
If Fso.GetDrive(Drive).FreeSpace < Fso.GetFile(Filename).Size Then
MsgBox "目标驱动器空间太小!", vbCritical '目标驱动器空间不够,退出
Exit Sub
End If
If Right(Drive, 1) <> ":" Then
Drive = Drive & ":"
End If
If Left(Folder, 1) <> "/" Then
Folder = "/" & Folder
End If
If Right(Folder, 1) <> "/" Then
Folder = Folder & "/"
End If
Dest_path = Drive & Folder
If Not Fso.FolderExists(Dest_path) Then '如果目标文件夹不存在,创建之
Fso.CreateFolder Dest_path
End If
Fso.CopyFile Filename, Dest_path & Fso.GetFileName(Filename), True
'拷贝,直接覆盖同名文件
MsgBox " 文件备份完毕。", vbOKOnly
Set Fso = Nothing
End Sub
Private Sub Waitfor(Delay As Single) '延时过程,Delay 单位约为 1 秒
Dim StartTime As Single
StartTime = Timer
Do Until (Timer - StartTime) > Delay
Loop
End Sub

认识 VB 的文件系统对象 FSO

    在 VB 编程中经常需要和文件系统打交道,比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB 推出文件系统对象(File System Object)以前,完成这些功能需要调用 Win...
  • zhangking
  • zhangking
  • 2004年03月15日 09:17
  • 1437

认识VB的文件系统对象FSO

在 VB 编程中经常需要和文件系统打交道,比如获取硬盘的剩余空间、判断文件夹或文件是否存在等。在VB 推出文件系统对象(File System Object)以前,完成这些功能需要调用 Windows...
  • feier2004
  • feier2004
  • 2005年04月17日 18:23
  • 572

一些常用的vb函数/过程[操作FSO方面]

此函数从字符串中分离出路径Public Function ParsePath(sPathIn As String) As StringDim i As IntegerFor i = Len(sPath...
  • peterb
  • peterb
  • 2006年01月12日 20:28
  • 1142

VB 中 FSO 对象模型介绍

在 VB 中应用 FSO 对象模型介绍           从 Visual Basic 的第一版至今,VB 中有关文件的处理都是通过使用 Open 、Write 以及其它一...
  • whchensir
  • whchensir
  • 2013年12月22日 00:25
  • 948

VB 读取文件 VB6.0 实用FSO

file1 = "c:\Myfile10001.txt"     Const ForReading = 1, ForWriting = 2, ForAppending = 3     Dim fs...
  • angel20082008
  • angel20082008
  • 2015年04月24日 19:19
  • 4642

fso 对象不能创建

服务器缺少了FSO,网站就不能正常上传文件,本来为了网站安全,就把FSO删除了,但后来引发了很多后遗症,那么,如何还原呢?1、首先在系统盘中查找scrrun.dll,如果存在这个文件,请跳到第三步,如...
  • jgwei
  • jgwei
  • 2011年01月28日 11:01
  • 736

如何用fso重命名文件夹

fso.MoveFolder "c:/temp", "c:/tempOK" 
  • try530
  • try530
  • 2006年10月21日 23:44
  • 757

fso对象完成对硬盘文件的处理

whichfile=Server.MapPath("abandonship.txt")   得到文件名 Set fso = CreateObject("Scripting.FileSystemObje...
  • abandonship
  • abandonship
  • 2005年01月18日 09:34
  • 1020

VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息

FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下:在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime在代码最顶端添加Impo...
  • songkexin
  • songkexin
  • 2007年05月21日 07:12
  • 1966

VB6中的FSO对象模型

 在编程中,我们经常需要对文件系统中的驱动器、文件夹和文件进行处理,比如收集驱动器的相关信息;创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO(File System Objec...
  • caocg504
  • caocg504
  • 2008年01月10日 14:01
  • 299
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:认识VB的文件系统对象--FSO
举报原因:
原因补充:

(最多只允许输入30个字)