小说阅读网站,千年殇

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

工作總結(jié)VB.NET文件操作三個(gè)方法

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

專注于為中小企業(yè)提供成都做網(wǎng)站、成都網(wǎng)站建設(shè)、成都外貿(mào)網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)辛集免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了成百上千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

 
 
   
  
  FunctionGetCDROM()\'返回光驅(qū)的盤符(字母)    
  
  DimFsoAsNewFileSystemObject\'創(chuàng)建FSO對象的一個(gè)實(shí)例    
  
  DimFsoDriveAsDrive,FsoDrivesAsDrives\'定義驅(qū)動(dòng)器、驅(qū)動(dòng)器集合對象    
  
  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對象的實(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

【編輯推薦】

實(shí)例分析VB.NET Treeview結(jié)構(gòu)
一見鐘情VB.NET On Error語句
VB.NET共享成員高手經(jīng)驗(yàn)談
描述VB.NET DirectCast運(yùn)算符
手把手指導(dǎo)VB.NET Socket編程

新聞標(biāo)題：工作總結(jié)VB.NET文件操作三個(gè)方法
當(dāng)前鏈接：http://fisionsoft.com.cn/article/djhjhse.html

新聞中心

其他資訊