如何使用VB.NET文件系统对象

小编给大家分享一下如何使用VB.NET文件系统对象,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

创新互联为客户提供专业的成都做网站、网站制作、程序、域名、空间一条龙服务,提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、成都做手机网站等网站方面业务。

我们常常和文件系统打交道,VB.NET文件系统对象推出之后,一切变得简单多了。要应用FSO对象,须要引用一个名为Scripting的类型库,方法是,执行VB6.0的菜单项“工程/引用”,添加引用列表框中的“MicrosoftScriptingRuntime”一项。然后我们在“对象浏览器”中就可以看到Scripting类型库下的众多对象及其方法、属性。

1,VB.NET文件系统对象之获取系统文件夹路径:

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

2,VB.NET文件系统对象综合运用:一个文件备份通用过程:

\'Filename=文件名,Drive=驱动器,Folder=文件夹(一层)  SubBackupFile(FilenameAsString,DriveAsString,FolderAsString)  DimFsoAsNewFileSystemObject\'创建FSO对象实例  DimDest_pathAsString,CounterAsLong  Counter=0 DoWhileCounter<6\'如果驱动器没准备好,继续检测。共检测6秒  CounterCounter=Counter+1  CallWaitfor(1)\'间隔1秒  IfFso.Drives(Drive).IsReady=TrueThen ExitDo  EndIf  Loop  IfFso.Drives(Drive).IsReady=FalseThen\'6秒后目标盘仍未准备就绪,退出  MsgBox"目标驱动器"&Drive&"没有准备好!",vbCritical  ExitSub  EndIf  IfFso.GetDrive(Drive).FreeSpace":"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\'如果目标文件夹不存在,创建之  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文件系统对象”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


名称栏目:如何使用VB.NET文件系统对象
当前URL:http://scyanting.com/article/jhesdd.html