如何使用VB.NET文件系統(tǒng)對象

小編給大家分享一下如何使用VB.NET文件系統(tǒng)對象，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

我們常常和文件系統(tǒng)打交道，VB.NET文件系統(tǒng)對象推出之后，一切變得簡單多了。要應(yīng)用FSO對象，須要引用一個名為Scripting的類型庫，方法是，執(zhí)行VB6.0的菜單項(xiàng)“工程/引用”，添加引用列表框中的“MicrosoftScriptingRuntime”一項(xiàng)。然后我們在“對象瀏覽器”中就可以看到Scripting類型庫下的眾多對象及其方法、屬性。

1，VB.NET文件系統(tǒng)對象之獲取系統(tǒng)文件夾路徑：

\'返回Windows文件夾路徑  FunctionGetWindir()  DimFsoAsNewFileSystemObject  GetWindir=Fso.GetSpecialFolder(WindowsFolder)  SetFso=Nothing EndFunction  \'返回Windows\\System文件夾路徑  FunctionGetWinSysdir()  DimFsoAsNewFileSystemObject  GetWinSysdir=Fso.GetSpecialFolder(SystemFolder)  SetFso=Nothing EndFunction

2，VB.NET文件系統(tǒng)對象綜合運(yùn)用：一個文件備份通用過程：

\'Filename=文件名，Drive=驅(qū)動器，F(xiàn)older=文件夾(一層)  SubBackupFile(FilenameAsString,DriveAsString,FolderAsString)  DimFsoAsNewFileSystemObject\'創(chuàng)建FSO對象實(shí)例  DimDest_pathAsString,CounterAsLong  Counter=0 DoWhileCounter<6\'如果驅(qū)動器沒準(zhǔn)備好，繼續(xù)檢測。共檢測6秒  CounterCounter=Counter+1  CallWaitfor(1)\'間隔1秒  IfFso.Drives(Drive).IsReady=TrueThen ExitDo  EndIf  Loop  IfFso.Drives(Drive).IsReady=FalseThen\'6秒后目標(biāo)盤仍未準(zhǔn)備就緒，退出  MsgBox"目標(biāo)驅(qū)動器"&Drive&"沒有準(zhǔn)備好！",vbCritical  ExitSub  EndIf  IfFso.GetDrive(Drive).FreeSpace<Fso.GetFile(Filename).SizeThen  MsgBox"目標(biāo)驅(qū)動器空間太小！",vbCritical\'目標(biāo)驅(qū)動器空間不夠，退出  ExitSub  EndIf  IfRight(Drive,1)<>":"Then  DriveDrive=Drive&":"  EndIf  IfLeft(Folder,1)<>"\\"Then  Folder="\\"&Folder  EndIf  IfRight(Folder,1)<>"\\"Then  FolderFolder=Folder&"\\"  EndIf  Dest_path=Drive&Folder  IfNotFso.FolderExists(Dest_path)Then\'如果目標(biāo)文件夾不存在，創(chuàng)建之  Fso.CreateFolderDest_path  EndIf  Fso.CopyFileFilename,Dest_path&Fso.GetFileName(Filename),True  \'拷貝，直接覆蓋同名文件  MsgBox"文件備份完畢。",vbOKOnly  SetFso=Nothing EndSub  PrivateSubWaitfor(DelayAsSingle)\'延時過程，Delay單位約為1秒  DimStartTimeAsSingle  StartTime=Timer DoUntil(Timer-StartTime)>Delay  Loop  EndSub

以上是“如何使用VB.NET文件系統(tǒng)對象”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對大家有所幫助，如果還想學(xué)習(xí)更多知識，歡迎關(guān)注億速云行業(yè)資訊頻道！