VB.NET中怎么实现文件操作

VB.NET中怎么实现文件操作,相信很多没有经验的人对此束手无策,为此本文总结了问题出现的原因和解决方法,通过这篇文章希望你能解决这个问题。

10年积累的成都网站设计、成都网站制作、外贸网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先制作网站后付款的网站建设流程,更有涞水免费网站建设让你可以放心的选择与我们合作。


1、VB.NET文件操作之判断光驱的盘符:

FunctionGetCDROM()\'返回光驱的盘符(字母)  DimFsoAsNewFileSystemObject\'创建FSO对象的一个实例  DimFsoDriveAsDrive,FsoDrivesAsDrives\'定义驱动器、驱动器集合对象  SetFsoDrives=Fso.Drives  ForEachFsoDriveInFsoDrives\'遍历所有可用的驱动器  IfFsoDrive.DriveType=CDRomThen\'如果驱动器的类型为CDrom  GetCDROM=FsoDrive.DriveLetter\'输出其盘符  Else  GetCDROM="" EndIf  Next  SetFso=Nothing SetFsoDrive=Nothing SetFsoDrives=Nothing EndFunction

2、VB.NET文件操作之判断文件、文件夹是否存在:

\'返回布尔值:True存在,False不存在,filername文件名  FunctionFileExist(filenameAsString)  DimFsoAsNewFileSystemObject  IfFso.FileExists(filename)=TrueThen  FileExist=True Else  FileExist=False EndIf  SetFso=Nothing EndFunction  \'返回布尔值:True存在,False不存在,foldername文件夹  FunctionFolderExist(foldernameAsString)  DimFsoAsNewFileSystemObject  IfFso.FolderExists(foldername)=TrueThen  FolderExist=True Else  FolderExist=False EndIf  SetFso=Nothing EndFunction

3、VB.NET文件操作之获取驱动器参数:

\'返回磁盘总空间大小(单位:M),Drive=盘符A,C,D...  FunctionAllSpace(DriveAsString)  DimFsoAsNewFileSystemObject,DrvAsDrive  SetDrv=Fso.GetDrive(Drive)\'得到Drv对象的实例  IfDrv.IsReadyThen\'如果该驱动器存在(软驱或光驱里有盘片,硬盘存取正常)  AllSpace=Format(Drv.TotalSize/(2^20),"0.00")\'将字节转换为兆  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  \'获取驱动器文件系统类型,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

看完上述内容,你们掌握VB.NET中怎么实现文件操作的方法了吗?如果还想学到更多技能或想了解更多相关内容,欢迎关注创新互联行业资讯频道,感谢各位的阅读!


网站题目:VB.NET中怎么实现文件操作
当前路径:http://scyanting.com/article/peojgo.html