我们常常和文件系统打交道，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(Filename).SizeThen  
MsgBox"目标驱动器空间太小！",vbCritical\'目标驱动器空间不够，退出  
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\'如果目标文件夹不存在，创建之  
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