工作总结VB.NET文件操作三个方法

在工作中总结了一些关于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 
 
 

【编辑推荐】

1. 实例分析VB.NET Treeview结构
2. 一见钟情VB.NET On Error语句
3. VB.NET共享成员高手经验谈
4. 描述VB.NET DirectCast运算符
5. 手把手指导VB.NET Socket编程

分享名称：工作总结VB.NET文件操作三个方法
文章URL：http://www.csdahua.cn/qtweb/news5/89705.html

网站建设、网络推广公司-快上网，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 快上网