建站
咨詢
售后
建站咨詢
新聞中心
這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
工作總結(jié)VB.NET文件操作三個(gè)方法
在工作中總結(jié)了一些關(guān)于VB.NET文件操作?，F(xiàn)在給大家舉出一些編程中比較常用的例子，以函數(shù)或過(guò)程的形式提供給大家，讀者可在編程中直接使用，也可以改進(jìn)后實(shí)現(xiàn)更為強(qiáng)大的功能。
1、VB.NET文件操作之判斷光驅(qū)的盤(pán)符：
專注于為中小企業(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)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
- FunctionGetCDROM()\'返回光驅(qū)的盤(pán)符(字母)
- 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\'輸出其盤(pán)符
- 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ù):
- \'返回磁盤(pán)總空間大小(單位：M)，Drive=盤(pán)符A,C,D...
- FunctionAllSpace(DriveAsString)
- DimFsoAsNewFileSystemObject,DrvAsDrive
- SetDrv=Fso.GetDrive(Drive)\'得到Drv對(duì)象的實(shí)例
- IfDrv.IsReadyThen\'如果該驅(qū)動(dòng)器存在(軟驅(qū)或光驅(qū)里有盤(pán)片，硬盤(pán)存取正常)
- AllSpace=Format(Drv.TotalSize/(2^20),"0.00")\'將字節(jié)轉(zhuǎn)換為兆
- Else
- AllSpace=0
- EndIf
- SetFso=Nothing
- SetDrv=Nothing
- EndFunction
- \'返回磁盤(pán)可用空間大小(單位：M)，Drive=盤(pán)符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=盤(pán)符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)
- 一見(jiàn)鐘情VB.NET On Error語(yǔ)句
- VB.NET共享成員高手經(jīng)驗(yàn)談
- 描述VB.NET DirectCast運(yùn)算符
- 手把手指導(dǎo)VB.NET Socket編程
名稱欄目：工作總結(jié)VB.NET文件操作三個(gè)方法
文章來(lái)源：http://www.dlmjj.cn/article/djhjhse.html
