工作总结VB.NET文件操作三个方法-vb.net with

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

【编辑推荐】