FileSystemObject使用方法.doc

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