FileSystemObject使用方法..docVIP

FileSystemObject对象位于File System对象模型的最高层，并且是该层次中惟一可以在外部创建的对象，也就是说它是惟一能使用New关键字的对象。 FileSystemObject对象有许多用来操作文件系统的方法和属性。下面先看一个例子，如下面的代码： Sub FileInfo()? ? Dim fs As Object? ? Dim objFile As Object? ? Dim strMsg As String? ??? Set fs = CreateObject(Scripting.FileSystemObject)? ? Set objFile = fs.GetFile(C:\Windows\System.ini)? ? strMsg = 文件名: objFile.Name vbCrLf? ? strMsg = strMsg 硬盘: objFile.Drive vbCrLf? ?strMsg = strMsg 创建日期: objFile.DateCreated vbCrLf? ? strMsg = strMsg 修改日期: objFile.DateLastModified vbCrLfMsgBox strMsg, , 文件信息End Sub FileInfo过程首先使用CreateObject函数创建一个FileSystemObject对象，用来访问计算机的文件系统。然后，使用GetFile方法创建一个File对象并返回对System.ini文件的引用。接着，利用File对象的Name属性、Drive属性、DateCreated属性、DateLastModified属性返回文件的相应信息。 下面详细介绍FileSystemObject对象的方法和属性。 BuildPath方法 其语法为： oFileSysObj.BuildPath (Path,Name) 其中，oFileSysObj为任何能够返回FileSystemObject对象的对象变量。参数Path必需，指定驱动器或文件夹路径，String类型，可以是绝对路径也可以是相对路径，不一定要包含驱动器名。参数Name必需，指定附加在Path后的文件夹或文件路径，String类型。参数Path或Name都不一定要求是当前已经存在的路径或文件夹。 BuildPath方法通过合并参数Path和文件夹或文件名生成一个字符串，并且在必要的地方加上正确的主机系统路径分隔符。该方法不能检验新的文件夹或文件名的有效性。 与人工合并两个字符串相比，使用BuildPath函数的惟一好处就是它能够选择正确的路径分隔符。 FileExists方法 FileExists方法用于判断指定的文件是否存在，若存在则返回True。其语法为： oFileSysObj.FileExists(FileSpec) 其中，oFileSysObj代表任何能够返回FileSystemObject对象的对象。参数FileSpec必需，代表文件的完整路径，String类型，不能包含有通配符。 如果用户有充分的权限，FileSpec可以是网络路径或共享名，例如： If ofs.FileExists(\\TestPath\Test.txt) Then 示例 Sub IfFileExists()? ? Dim fs As Object? ? Dim strFile As String? ? Set fs = CreateObject(Scripting.FileSystemObject)? ? strFile = InputBox(请输入文件的完整名称:)? ? If fs.FileExists(strFile) Then ? ?? ???MsgBox strFile 已经找到.? ? Else ? ?? ???MsgBox 该文件不存在.? ?End If End Sub GetFile方法 GetFile方法用来返回一个File对象。其语法为： oFileSysObj.GetFile (FilePath) 其中，oFileSysObj代表任何能够返回FileSystemObject对象的对象变量。参数FilePath必需，指定路径和文件名，String类型。可以是绝对路径或相对路径。如果FilePath是一个共享名或网络路径，GetFile确认该驱动器或共享是File对象创建进程的一部分。如果参数FilePath指定的路径的任何部分不能连接或不存在，就会产生错误。 GetFile方法返回的是File对象，而不是TextStream对象。File对象不是打开的文件，主要是用来完成如复制或移动文件和询问文件的属性之类的方法。尽管不能对File对象