在工作中总结了一些关于VB.NET文件操作。现在给大家举出一些编程中比较常用的例子,以函数或过程的形式提供给大家,读者可在编程中直接使用,也可以改进后实现更为强大的功能。
1、VB.NET文件操作之判断光驱的盘符:
专注于为中小企业提供成都做网站、成都网站建设、成都外贸网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业辛集免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了成百上千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
- FunctionGetCDROM()\'返回光驱的盘符(字母)
- DimFsoAsNewFileSystemObject\'创建FSO对象的一个实例
- DimFsoDriveAsDrive,FsoDrivesAsDrives\'定义驱动器、驱动器集合对象
- SetFsoDrives=Fso.Drives
- ForEachFsoDriveInFsoDrives\'遍历所有可用的驱动器
- IfFsoDrive.DriveType=CDRomThen\'如果驱动器的类型为CDrom
- GetCDROM=FsoDrive.DriveLetter\'输出其盘符
- Else
- GetCDROM=""
- EndIf
- Next
- SetFso=Nothing
- SetFsoDrive=Nothing
- SetFsoDrives=Nothing
- EndFunction
2、VB.NET文件操作之判断文件、文件夹是否存在:
- \'返回布尔值:True存在,False不存在,filername文件名
- FunctionFileExist(filenameAsString)
- DimFsoAsNewFileSystemObject
- IfFso.FileExists(filename)=TrueThen
- FileExist=True
- Else
- FileExist=False
- EndIf
- SetFso=Nothing
- EndFunction
- \'返回布尔值:True存在,False不存在,foldername文件夹
- FunctionFolderExist(foldernameAsString)
- DimFsoAsNewFileSystemObject
- IfFso.FolderExists(foldername)=TrueThen
- FolderExist=True
- Else
- FolderExist=False
- EndIf
- SetFso=Nothing
- EndFunction
3、VB.NET文件操作之获取驱动器参数:
- \'返回磁盘总空间大小(单位:M),Drive=盘符A,C,D...
- FunctionAllSpace(DriveAsString)
- DimFsoAsNewFileSystemObject,DrvAsDrive
- SetDrv=Fso.GetDrive(Drive)\'得到Drv对象的实例
- IfDrv.IsReadyThen\'如果该驱动器存在(软驱或光驱里有盘片,硬盘存取正常)
- AllSpace=Format(Drv.TotalSize/(2^20),"0.00")\'将字节转换为兆
- Else
- AllSpace=0
- EndIf
- SetFso=Nothing
- SetDrv=Nothing
- EndFunction
- \'返回磁盘可用空间大小(单位:M),Drive=盘符A,C,D...
- FunctionFreeSpace(drive)
- DimFsoAsNewFileSystemObject,drvAsdrive
- Setdrv=Fso.GetDrive(drive)
- Ifdrv.IsReadyThen
- FreeSpace=Format(drv.FreeSpace/(2^20),"0.00")
- EndIf
- SetFso=Nothing
- SetDrv=Nothing
- EndFunction
- \'获取驱动器文件系统类型,Drive=盘符A,C,D...
- FunctionFsType(DriveAsString)
- DimFsoAsNewFileSystemObject,DrvAsDrive
- SetDrv=Fso.GetDrive(Drive)
- IfDrv.IsReadyThen
- FsType=Drv.FileSystem
- Else
- FsType=""
- EndIf
- SetFso=Nothing
- SetDrv=Nothing
- EndFunction
【编辑推荐】
网页标题:工作总结VB.NET文件操作三个方法
文章转载:http://www.shufengxianlan.com/qtweb/news5/89705.html
网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联