在工作中總結(jié)了一些關(guān)于VB.NET文件操作?，F(xiàn)在給大家舉出一些編程中比較常用的例子，以函數(shù)或過(guò)程的形式提供給大家，讀者可在編程中直接使用，也可以改進(jìn)后實(shí)現(xiàn)更為強(qiáng)大的功能。
1、VB.NET文件操作之判斷光驅(qū)的盤符：

FunctionGetCDROM()\'返回光驅(qū)的盤符(字母)  
DimFsoAsNewFileSystemObject\'創(chuàng)建FSO對(duì)象的一個(gè)實(shí)例  
DimFsoDriveAsDrive,FsoDrivesAsDrives\'定義驅(qū)動(dòng)器、驅(qū)動(dòng)器集合對(duì)象  
SetFsoDrives=Fso.Drives  
ForEachFsoDriveInFsoDrives\'遍歷所有可用的驅(qū)動(dòng)器  
IfFsoDrive.DriveType=CDRomThen\'如果驅(qū)動(dòng)器的類型為CDrom  
GetCDROM=FsoDrive.DriveLetter\'輸出其盤符  
Else  
GetCDROM="" 
EndIf  
Next  
SetFso=Nothing 
SetFsoDrive=Nothing 
SetFsoDrives=Nothing 
EndFunction 

2、VB.NET文件操作之判斷文件、文件夾是否存在：

\'返回布爾值:True存在，F(xiàn)alse不存在，filername文件名  
FunctionFileExist(filenameAsString)  
DimFsoAsNewFileSystemObject  
IfFso.FileExists(filename)=TrueThen  
FileExist=True 
Else  
FileExist=False 
EndIf  
SetFso=Nothing 
EndFunction  
\'返回布爾值:True存在，F(xiàn)alse不存在，foldername文件夾  
FunctionFolderExist(foldernameAsString)  
DimFsoAsNewFileSystemObject  
IfFso.FolderExists(foldername)=TrueThen  
FolderExist=True 
Else  
FolderExist=False 
EndIf  
SetFso=Nothing 
EndFunction  

3、VB.NET文件操作之獲取驅(qū)動(dòng)器參數(shù):

\'返回磁盤總空間大小(單位：M)，Drive=盤符A,C,D...  
FunctionAllSpace(DriveAsString)  
DimFsoAsNewFileSystemObject,DrvAsDrive  
SetDrv=Fso.GetDrive(Drive)\'得到Drv對(duì)象的實(shí)例  
IfDrv.IsReadyThen\'如果該驅(qū)動(dòng)器存在(軟驅(qū)或光驅(qū)里有盤片，硬盤存取正常)  
AllSpace=Format(Drv.TotalSize/(2^20),"0.00")\'將字節(jié)轉(zhuǎn)換為兆  
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  
\'獲取驅(qū)動(dòng)器文件系統(tǒng)類型，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. 實(shí)例分析VB.NET Treeview結(jié)構(gòu)
2. 一見(jiàn)鐘情VB.NET On Error語(yǔ)句
3. VB.NET共享成員高手經(jīng)驗(yàn)談
4. 描述VB.NET DirectCast運(yùn)算符
5. 手把手指導(dǎo)VB.NET Socket編程